'***************************************************************************************************
' オブジェクト型変数 Module1(Module)
'
' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!]
'***************************************************************************************************
'変更日付 Rev 変更履歴内容------------------------------------------------------------------------>
'03/06/27(1.00)新規作成
'16/11/19(1.10)*.xlsm化
'20/01/17(1.11)記述整理等
'***************************************************************************************************
Option Explicit
'***************************************************************************************************
' ■■■ 説明用サンプル ■■■
'***************************************************************************************************
'* 処理名 :TEST2
'* 機能 :オブジェクト型変数
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2003年06月27日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:※プロシージャレベルで説明しますが、モジュールレベルでも同じです。
'* これはExcel特有のオブジェクトデータ型です。
'* 注意事項:カーソルが砂時計になる
'***************************************************************************************************
Sub TEST2()
'-----------------------------------------------------------------------------------------------
Dim A As Application ' Excel.Application自身
Dim B As Workbook ' ワークブック
Dim C As Worksheet ' ワークシート
Dim D As Window ' ウィンドウ
Dim E As Range ' セル及びセル範囲
' 各Object変数に実体(実際は参照)をセットする
Set A = Excel.Application
Set B = ThisWorkbook
Set C = ActiveSheet
Set D = ActiveWindow
' Set E = Selection.Range
' 実体をセットしてからプロパティやメソッドを扱う
A.Cursor = xlWait ' マウスカーソルが「砂時計」になる
A.StatusBar = "あああああ" ' ステータスバーに文字を表示する
' TEST2を動かした場合は砂時計にままになるので、「砂時計の解除(TEST2_Clear)」を実行して下さい。
End Sub
'------------------------------------------<< End of Source >>--------------------------------------
'***************************************************************************************************
' オブジェクト操作のサンプル Module1(Module)
'
' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!]
'***************************************************************************************************
'変更日付 Rev 変更履歴内容------------------------------------------------------------------------>
'03/06/27(1.00)新規作成
'16/11/19(1.10)*.xlsm化
'20/01/17(1.11)記述整理等
'***************************************************************************************************
Option Explicit
'***************************************************************************************************
' ■■■ 説明用サンプル ■■■
'***************************************************************************************************
'* 処理名 :TEST3
'* 機能 :オブジェクト操作のサンプル
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2003年06月27日
'* 作成者 :井上 治
'* 更新日 :2003年06月27日
'* 更新者 :井上 治
'* 機能説明:これはオブジェクト変数を宣言せず直接利用する例です。
'* 注意事項:
'***************************************************************************************************
Sub TEST3()
'-----------------------------------------------------------------------------------------------
Application.Cursor = xlWait ' マウスカーソルが「砂時計」になる
Application.StatusBar = "あああああ" ' ステータスバーに文字を表示する
' このブックのシート数を表示
MsgBox ThisWorkbook.Worksheets.Count
Application.Cursor = xlDefault ' マウスカーソルをデフォルトに戻す
Application.StatusBar = False ' ステータスバーを元に戻す
End Sub
'------------------------------------------<< End of Source >>--------------------------------------
'***************************************************************************************************
' オブジェクト操作のサンプル② Module1(Module)
'
' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!]
'***************************************************************************************************
'変更日付 Rev 変更履歴内容------------------------------------------------------------------------>
'03/06/27(1.00)新規作成
'16/11/19(1.10)*.xlsm化
'20/01/17(1.11)記述整理等
'***************************************************************************************************
Option Explicit
'***************************************************************************************************
' ■■■ 説明用サンプル ■■■
'***************************************************************************************************
'* 処理名 :TEST3
'* 機能 :オブジェクト操作のサンプル②
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2003年06月27日
'* 作成者 :井上 治
'* 更新日 :2003年06月27日
'* 更新者 :井上 治
'* 機能説明:これはオブジェクト変数を宣言せず直接利用する例②です。
'* 注意事項:
'***************************************************************************************************
Sub TEST3()
'-----------------------------------------------------------------------------------------------
' Excel.Applicationのオブジェクトを1つにまとめる
With Application
.Cursor = xlWait ' マウスカーソルが「砂時計」になる
.StatusBar = "あああああ" ' ステータスバーに文字を表示する
' このブックのシート数を表示
MsgBox ThisWorkbook.Worksheets.Count
.Cursor = xlDefault ' マウスカーソルをデフォルトに戻す
.StatusBar = False ' ステータスバーを元に戻す
End With
End Sub
'------------------------------------------<< End of Source >>--------------------------------------
'***************************************************************************************************
' ワークシートを追加するサンプル Module1(Module)
'
' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!]
'***************************************************************************************************
'変更日付 Rev 変更履歴内容------------------------------------------------------------------------>
'03/07/16(1.00)新規作成
'16/11/19(1.10)*.xlsm化
'20/01/17(1.11)記述整理等
'***************************************************************************************************
Option Explicit
'***************************************************************************************************
' ■■■ シート上のボタン起動処理 ■■■
'***************************************************************************************************
'* 処理名 :TEST4
'* 機能 :ワークシートを追加する例①
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2003年07月16日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Sub TEST4()
'-----------------------------------------------------------------------------------------------
Dim cntSh As Long ' シート数カウンタ
With ThisWorkbook
' 本ブックのシート数を取得
cntSh = .Worksheets.Count
' 新しいシートを最後に追加する①
.Worksheets.Add After:=.Worksheets(cntSh)
End With
End Sub
'***************************************************************************************************
'* 処理名 :TEST5
'* 機能 :ワークシートを追加する例②
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2003年07月16日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Sub TEST5()
'-----------------------------------------------------------------------------------------------
Dim objSh As Worksheet ' 追加したワ-クシート
Dim cntSh As Long ' シート数カウンタ
With ThisWorkbook
' 本ブックのシート数を取得
cntSh = .Worksheets.Count
' 新しいシートを最後に追加する②
Set objSh = .Worksheets.Add(After:=.Worksheets(cntSh))
' シート名を設定する
objSh.Name = "新シート(" & cntSh & ")"
End With
End Sub
'------------------------------------------<< End of Source >>--------------------------------------