13. 03.シート シートへのアクセス方法  
以下のようにアクセスします。

Dim sheet as Worksheet

sheet = Sheets("TestSheet")
sheet.cells(1,1) = "TestMsg"


列指定はアルファベットでもいけますね。

Option Explicit
Option VBASupport 1

REM  *****  BASIC  *****

Sub Main

Dim sheet as Worksheet
sheet = Sheets("TestSheet")
sheet.cells(1,"B") = "TestMsgB1"

End Sub


シート名は日本語でもOKでした。

Option Explicit
Option VBASupport 1

REM  *****  BASIC  *****

Sub Main

Dim sheet as Worksheet
sheet = Sheets("テストシート")
sheet.cells(1,"B") = "TestMsgB1"

End Sub


前へ次へ