作者:乔山办公网日期:
返回目录:excel表格制作
Sub Traversal()
Dim rg As Range
For Each rg In Range("A1:Q10") '遍历zdA1:Q10
rg.Value = 100 '将值专设为100
Next
End Sub
祝你成功!
不好意思只看标属题了
Sub Traversal()
For Each c In ActiveSheet.Comments '遍历批注
c.Parent.Interior.ColorIndex = 3 '设为红色
Next
End Sub
这段小程序就把一个zdEXCEL文件专中每个工作表的A1单元格填上属了a
Sub tt()
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Cells(1, 1).Value = "a"
Next
End Sub
这段小程序就把一zhidao个EXCEL文件中每个工内作表的A1单元容格填上了a
Sub tt()
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Cells(1, 1).Value = "a"
Next
End Sub