Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 单元格格式更改_Excel_Vba - Fatal编程技术网

Excel 单元格格式更改

Excel 单元格格式更改,excel,vba,Excel,Vba,我想更改每个工作表上单元格B4中的格式,但第一个和最后一个除外,我这样做了: Dim num As Integer num = ActiveWorkbook.Sheets.Count For i = 2 To num - 1 ActiveWorkbook.Sheets(i).Range(B4).NumberFormat = "00" Next i 首先,我检查了我拥有的工作表的数量,然后从一张工作表转到最后一张工作表之前的一张工作表,但我得到一个错误:/在定义范围时只需添加引号: Di

我想更改每个工作表上单元格
B4
中的格式,但第一个和最后一个除外,我这样做了:

Dim num As Integer
num = ActiveWorkbook.Sheets.Count
For i = 2 To num - 1
    ActiveWorkbook.Sheets(i).Range(B4).NumberFormat = "00"
Next i

首先,我检查了我拥有的工作表的数量,然后从一张工作表转到最后一张工作表之前的一张工作表,但我得到一个错误:/

在定义范围时只需添加引号:

Dim num As Integer
num = ActiveWorkbook.Sheets.Count
For i = 2 To num - 1
    ActiveWorkbook.Sheets(i).Range("B4").NumberFormat = "00"
Next i
谢谢:)将在6分钟内标记您的答案