不知道這個有什么作用，但是看了后面的實例才知道他的用處非常大
  學(xué)習(xí)達(dá)人
|
ltm_518
展開
|
 |
YJ-Here
展開
Sub test（）
'workbooks 當(dāng)前打的開的所有工作簿
'worksheets 指定工作簿下的所有工作表
'range（"a1:c6"） 指定單元格格區(qū)域下的所有單元格
Dim wb As Workbook, ws As Worksheet, rng As Range
For Each wb In Workbooks
MsgBox wb.Name
Next wb
For Each ws In Worksheets
MsgBox ws.Name
Next ws
For Each rng In Range（"a1:c3"）
MsgBox rng.Address & "=" & rng.Value
Next rng
End Sub |
|
|
游客
展開
|
|
|
任立冬08
展開
|
|
|
大春哥
展開
|
 |
T613480on
展開
|
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。