Question

我希望我的宏更新整个工作簿的字体，大小和verticalaligment，但我能找到的所有选项都是逐页完成的。这不是太麻烦，但我想知道你是否不能全局设置这些并用1命令更新整个工作簿。

-(void)getCategories

{

         Service *srv=[[Service alloc]init];

         NSString *str=@"http://streamtvbox.com/site/api/matrix/";//?country_code=91&phone=9173140993&fingerprint=2222222222";
         NSString *method=@"channels";
         NSMutableDictionary *dict=[[NSMutableDictionary alloc]init];

         [srv postToURL:str withMethod:method andParams:dict completion:^(BOOL success, NSDictionary *responseObj)
         {
              NSLog(@"%@",responseObj);
              arrayCategories = [responseObj valueForKey:@"categories"];
         }];
   }


- (NSInteger)tableView:(UITableView *)tableView numberOfRowsInSection:(NSInteger)section

{
       return arrayCategories.count;
}

- (UITableViewCell *)tableView:(UITableView *)tableView cellForRowAtIndexPath:(NSIndexPath *)indexPath

{

        static NSString *simpleTableIdentifier = @"ChannelCell";

        UITableViewCell *cell = [tableView dequeueReusableCellWithIdentifier:simpleTableIdentifier];

        if (cell == nil) {

            cell = [[UITableViewCell alloc] initWithStyle:UITableViewCellStyleDefault reuseIdentifier:simpleTableIdentifier];
        }

        cell.textLabel.text = [[arrayCategories objectAtIndex:indexPath.row]valueForKey:@"categories"];

        return cell;
}

Answer 1

如果这适合您，您可以使用Styles。更改工作簿的默认样式非常快，但可能有副作用。试试吧。

With ActiveWorkbook.Styles("Normal").Font
    .Name = "Aharoni"
    .Size = 11
End With

Answer 2

此代码应遍历工作簿中的每个工作表并更改属性。

Sub SetFormat()
Dim ws as Worksheet
    For Each ws in Worksheets
         With ws
            .Cells.Font.Name = "Segoe UI"
            .Cells.Font.Size = 10
            .Cells.VerticalAlignment = xlCenter
         End With
    Next ws
End Sub

如何设置整个工作簿的字体和大小而不是逐页？

2 个答案: