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
前へ / 次へ