
初心者の質問です。
エクセルでⅭ列にはAとBの差額が計算されています。
Ⅽ1からⅭ6の全てのセル(6個)がそれぞれ0である場合にOKとなるマクロを教えてください。
+と-が同額の場合、Ⅽ8の合計が0となるので、Ⅽ8の値で判断できない場合があるためです。
Sub 確認()
If ActiveSheet.Range("C1:C6").Value = 0 Then ←この箇所がエラーになります。
MsgBox "OK"
Else
MsgBox "NG"
End If
End Sub
よろしくお願いします。


No.3ベストアンサー
- 回答日時:
マクロを使わない方法もあります。
セルC9などの適当な空いてるセルに以下の式を入れます。=IF(COUNTIF(C1:C6,"=0")=6,"OK","NG")
できるだけマクロは使わないで、ワークシート関数で対応する方法を考えるべきだと私は思っています。
ちなみにVBAでRangeを使った場合、今のような式でエラーにならないのは含まれるセルが1個の時だけです。セル範囲を指定した場合はセル範囲の個数と同じ大きさの配列変数が必要になるし、その中身を調べるには1個ずつループで取り出して比較するしかないので、面倒です。
というわけでこのCOUNTIF関数をVBAから使えればそれが一番楽ちんだということになります。以下みたいにすればできます。
If Application.WorksheetFunction.CountIf(Range("C1:C6"), "=0")=6 Then
ご丁寧にありがとうございました。
アドバイスを踏まえて考えてみると、別の列を使うことなく「=IF(COUNTIF(C1:C6,"=0")=6,"OK","NG")」の式をC8で使えばC1~C6までの結果を判定できすます。
マクロで計数不一致を判断して帳票の印刷可否を制御する方法と合わせて利用します。
No.2
- 回答日時:
シートに余裕があれば、空いているところにC列の二乗を出力し、それを合計して0ならば・・・。
ありがとうございました。今は、別の列に0でない場合には1とする条件を入れ、合計欄でチェック。
条件式を入れた列を非表示にして運用しています。マクロで一括処理する方法はないかと色々考えたのですが、知識不足でした。
今後ともよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【初月無料キャンペーン実施中】オンライン健康相談gooドクター
24時間365日いつでも医師に健康相談できる!詳しくはコチラ>>
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
4
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
5
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
6
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
7
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
8
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
9
ExcelVBAで、選択範囲内で同じ値が入力されたセルを調べる
Visual Basic(VBA)
-
10
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
11
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
12
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
13
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
14
エクセルで、「複数のセルの中に"が一つでもある時」の式は
Excel(エクセル)
-
15
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
16
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
17
VBA 見つからなかった時の処理
Excel(エクセル)
-
18
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
19
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
20
EXCELのVBAでLenB関数について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
Excel vbaで特定の文字以外が入...
-
5
EXCELで変数をペーストしたい
-
6
ExcelVBAで、選択範囲内で同じ...
-
7
セル色なしの行一括削除
-
8
screenupdatingが機能しなくて...
-
9
Word版VBで表の任意の箇所を...
-
10
VBからEXCELのセルの値を取得す...
-
11
【VBA】指定したセルと同じ値で...
-
12
ユーザーフォーム内のテキスト...
-
13
クリックされたセルの位置を取...
-
14
ExcelのVBAで数字と文字列をマ...
-
15
VBSでエクセル内の行数を取得す...
-
16
Excel2003 複数セル1列の入力済...
-
17
特定行の色を変えたい(FlexGrid)
-
18
セルの値だけクリップボードに...
-
19
連続する複数のセル値がすべて0...
-
20
Excelのハイパーリンクにマクロ...
おすすめ情報
公式facebook
公式twitter