初期設定

Public globalWb前回実行結果 As Workbook

Sub グループ表示非表示の切り替え()

    Dim obj試験データシート As cls試験データシート
    Set obj試験データシート = New cls試験データシート
    
    obj試験データシート.表示非表示の切替
    
End Sub

Sub createSELECT文()

    frmSQL生成.Show
    
    Excel.Application.CutCopyMode = False
    
End Sub

Sub set抽出条件()

    Dim obj設定シート As cls設定シート
    Set obj設定シート = New cls設定シート
    
    obj設定シート.set抽出条件

End Sub

Sub Auto_Open()

    Application.OnKey "{F9}", "createSELECT文"

End Sub