2018-10-01から1ヶ月間の記事一覧
Option Explicit ' --------------------------------------------------------------------------------------------------------------------- ' 定数 ' ----------------------------------------------------------------------------------------------…
Option Explicit ' --------------------------------------------------------------------------------------------------------------------- ' 定数 ' ----------------------------------------------------------------------------------------------…
Public globalWb前回実行結果 As Workbook Sub グループ表示非表示の切り替え() Dim obj試験データシート As cls試験データシート Set obj試験データシート = New cls試験データシート obj試験データシート.表示非表示の切替 End Sub Sub createSELECT文() f…
Option Explicit ' --------------------------------------------------------------------------------------------------------------------- ' 定数 ' ----------------------------------------------------------------------------------------------…
Public wb起動元ブック As Workbook Public wb前回実行結果 As Workbook Private Sub btnSQL生成_Click() wb起動元ブック.Activate Dim obj試験データシート As cls試験データシート Set obj試験データシート = New cls試験データシート Dim obj対象シート A…
Option Explicit ' --------------------------------------------------------------------------------------------------------------------- ' 定数 ' ----------------------------------------------------------------------------------------------…
Option Explicit ' --------------------------------------------------------------------------------------------------------------------- ' 定数 ' ----------------------------------------------------------------------------------------------…
Option Explicit ' --------------------------------------------------------------------------------------------------------------------- ' 定数 ' ----------------------------------------------------------------------------------------------…
Option Explicit ' --------------------------------------------------------------------------------------------------------------------- ' 定数（共通） ' --------------------------------------------------------------------------------------…
Option Explicit ' --------------------------------------------------------------------------------------------------------------------- ' 定数 ' ----------------------------------------------------------------------------------------------…
Attribute VB_Name = "Util" Option Explicit ' --------------------------------------------------------------------------------------------------------------------- ' 定数 ' -------------------------------------------------------------------…
