15. 03.シート　アクティブなシートを取得　　
Option Explicit
Option VBASupport 1

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

Sub Main

'シートの選択
Dim sheet As Worksheet
sheet = ActiveSheet
sheet.Cells(1,"B") = sheet.Name

End Sub


前へ ／ 次へ