If文

##########  サンプル   ##########

    Dim nRes As Integer
    
    '
    nRes = MsgBox("本当に打点を削除しますか?", vbYesNo, App.Title)
    
    If nRes = vbYes Then
        
        '処理

    ElseIf nRes = vbNo Then
    
        Exit Sub
        
    End If

    

---

<戻る>

楽天モバイル[UNLIMITが今なら1円] ECナビでポインと Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！

無料ホームページ 無料のクレジットカード 海外格安航空券 解約手数料０円【あしたでんき】 海外旅行保険が無料！ 海外ホテル