Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


19547 / 76736 ←次へ | 前へ→

【62619】Re:項目チェックするVBAを作成したいのですが
発言  Jaka  - 09/8/12(水) 12:57 -

引用なし
パスワード
   Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A10" Then
  If Target.Value = "新規" Then
   With Range("L10:CW10")
     If Application.CountIf(.Cells, "●") <> .Count Then
       MsgBox "エラー"
     End If
   End With
  End If
End If
End Sub

A11
A12
も同じようなパターンでコードを書く。
あ、A11の場合は、こんな感じになるのかな?

If Application.CountIf(.Cells, "●") + _
  Application.CountIf(.Cells, "○") + _
  Application.CountIf(.Cells, "×") <> .Count Then

End If

0 hits

【62618】項目チェックするVBAを作成したいのですが みみ 09/8/12(水) 11:10 発言
【62619】Re:項目チェックするVBAを作成したいのです... Jaka 09/8/12(水) 12:57 発言
【62621】Re:項目チェックするVBAを作成したいのです... ponpon 09/8/12(水) 16:45 発言
【62701】Re:項目チェックするVBAを作成したいのです... 脱 初心者 09/8/25(火) 11:24 発言

19547 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free