A01027 - 在状态栏中显示信息 - P15

admin · 发表于 2019-2-15 08:29:51

您需要登录才可以下载或查看，没有账号？注册

x

Public Sub 技巧1_027()7 W4 k. i/ A- T$ } N
Dim cel As Range, myrange As Range, myAddress As String
4 B; e$ R1 ?6 S* c; ^2 K5 P
Cells.Clear
/ Z6 I S6 I7 K7 P( W* f% A3 H
Set myrange = Sheet1.Range("A1:M500"), c; A ?9 Y8 E4 c& Y5 ~
For Each cel In myrange6 k7 Z0 h# [* X+ ` a, @) p7 h/ N
myAddress = cel.Address(RowAbsolute:=False, ColumnAbsolute:=False)
6 k- V' y- H. \( x
Application.StatusBar = "正在计算单元格 " & myAddress & " 的数据..." l% x. c* s0 B) Y! N
cel.Value = cel.Value + 500
# I* m0 }+ G8 ^. A9 ]& F5 d; E
Next
x( X- d# R2 @& R7 a% V. X
Application.StatusBar = False5 \6 q2 y1 a+ s6 D. |
End Sub

复制代码

		自动登录	找回密码
密码			注册

[VBA精品课] A01027 - 在状态栏中显示信息 - P15