[VBA][Excel]Not演算子の使用例


※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

Private Sub CommandButton1_Click()


'Sheet1にCommandButtonを2つ、Lableを1つ配置します

Dim i As Integer


'A列の初期化
Sheet1.Columns(1).Clear

Sheet1.CommandButton2.Enabled = Not Sheet1.CommandButton2.Enabled


If Not (Sheet1.CommandButton2.Enabled) Then
    Sheet1.Label1.Visible = False
Else
    Sheet1.Label1.Visible = True
End If


If Sheet1.CommandButton2.Enabled Then
    Exit Sub
End If


i = 1

'「iが6以上」ではない、つまり「iが6未満」の間、繰り返し
Do While Not (i >= 6)

    Sheet1.Cells(i, 1).Value = i
    i = i + 1

Loop


End Sub

CommandButton1 のクリックの度に切り替わります

vba-excel-not-enzanshi