14. 03.シート シートをアクティブにする  
Option Explicit
Option VBASupport 1

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

Sub Main

'シートの選択
Dim sheet As Worksheet
sheet = Sheets("テストシート")
sheet.Cells(1,"B") = "TestMsgB1"

'シートをアクティブにする
sheet.Activate

End Sub


前へ次へ