平成30/ 2018-12-14 11:09
VBA/基本

>> Function
Function aaa
    Exit Function
End Function



___ If
___
If j = 1 Then
End If

If Not j = 1 Then
End If


____ For
____
    For i = 1 To 1000
        If Cells(i, 1) = "合計" Then
            Set Target = Cells(i, 1)
            Exit For
        End If
    Next i


____ Do
____
Do Until j > 5
    j = j + 1

    If j = 1 Then
        Exit Do
    End If
Loop


___  メッセージ
___
MsgBox "ウイルスに感染しています。", vbCritical, "警告"


____ Access終了したいとき
____
DoCmd.Quit



____ Thanks.
____
01.MsgBox関数を使ってメッセージを表示する
http://www.geocities.jp/cbc_vbnet/function/mseegefunction.html

Excel(エクセル) VBA入門:繰り返し処理(For~Next,Do~Loop)
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_for_next.html

DoCmd.Quit メソッド (Access)
http://msdn.microsoft.com/ja-jp/library/office/ff191887.aspx

Ifを使用した条件判断
http://homepage1.nifty.com/rucio/main/dotnet/Samples151/Sample177If.htm


VBScript