Excel精英培训网

 找回密码
 注册

如何同时给多个工作表指定单元格同时赋值

热度 1已有 1913 次阅读2012-9-1 11:53 |个人分类:VBA

一、方法一(不用循环)

Sub s1()

Dim i&
Dim rg As Range
For i = 1 To Worksheets.Count
Worksheets(i).Select Replace:=False
Next
Selection.Value = "1314"
Range("a3").Select
Selection.Value = "####"

End Sub

二、循环 SelectedSheets

Sub s2()
Dim sh As Object
Dim sra As String
sra = Selection.Address
For Each sh In ActiveWindow.SelectedSheets
If TypeName(sh) = "Worksheet" Then
sh.Range(sra).Interior.ColorIndex = 3
End If
Next
End Sub


刚表态过的朋友 (0 人)

评论 (0 个评论)

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 02:59 , Processed in 0.369817 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

返回顶部