| 
    
     |  | ユーザーフォームで「OK」をクリックすると「文字色クリア」を実行し、 「CANCEL」をクリックするとそのまま終了させたいのですが…
 
 内容は以下の通りです。
 簡単な内容で申し訳ないのですが教えて下さい。
 
 '【クリア確認】
 
 クリア確認.Show
 
 If クリア確認.CommandButton1 = True Then
 GoTo 文字色クリア
 Else
 GoTo クリアせずに終了
 End If
 
 '【文字色クリア】
 
 文字色クリア:
 
 工事概要.Cells(2, 7).Font.FontStyle = "標準"
 工事概要.Cells(2, 7).Font.ColorIndex = 1
 工事概要.Cells(2, 7).Interior.ColorIndex = 2
 
 クリアせずに終了:
 
 End Sub
 
 ユーザーフォームの方は…
 
 Private Sub CommandButton1_Click()
 Commandbutton1 = True
 Unload クリア確認
 End Sub
 
 Private Sub CommandButton2_Click()
 Commandbutton2 = False
 Unload クリア確認
 End Sub
 
 |  |