マクロを停止してブックを開く

起動したら自動で実行し、そのまま終了するExcelブックを

マクロを無効にして起動するプロシジャです。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Sub bkOpenNoMacro()

    Dim str As String

    Dim sWB As String

    ’　ブック名を指定する

sWB = "XXXXXV2_R6_Auto.xlsm"

  '　ブックのフルパスを作る

    str = ThisWorkbook.Path & "\" & sWB

　’　マクロを無効にする

    Application.EnableEvents = False

　' ブック

    Workbooks.Open str

  ’　マクロを有効に戻す

    Application.EnableEvents = True   

End Sub

QUERY関数 選択項目が空白のとき、IFで対応する

 

=if(G5=1

,query(MEV!B11:K500,"SELECT B,D,E,G,H,I,K WHERE (D >= '"&D2&"' and D <= '"&E2&"') and (E>="&D3&" and E<="&E3&") and (G ="&E5&") and (H ="&F5&")")

,query(MEV!B11:K500,"SELECT B,D,E,G,H,I,K WHERE (D >= '"&D2&"' and D <= '"&E2&"') and (E>="&D3&" and E<="&E3&") "))

 

FILTER 1, 2, 3, ALL

TgtCELL　を２つにして範囲指定にする