初心者の質問です。
エクセルでⅭ列には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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) excel VBA if文について 3 2022/03/27 17:42
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
5
VBAでセル入力の数式に変数を用いたい
Excel(エクセル)
-
6
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
7
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
8
フォントの大きさ
Visual Basic(VBA)
-
9
別のシートから値を取得するとき
Visual Basic(VBA)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
マクロについて質問です 範囲内のセルが空白か調べるにはどのようなプログラムになるんでしょうか? セル
Visual Basic(VBA)
-
12
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
13
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
14
Excel-vba 文字列と変数を連結して更に変数として扱いたい
その他(プログラミング・Web制作)
-
15
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
16
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
17
(Excel VBA)and,orについて
Excel(エクセル)
-
18
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
19
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
20
文字列が連続しているかどうか調べたいのですが、良い方法はないでしょうか
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで指定した日付から過去の...
-
ExcelVBAを使って、値...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excel vbaで特定の文字以外が入...
-
特定のセルが空白だったら、そ...
-
VBAでセルをクリックする回...
-
任意フォルダから画像をすべて...
-
screenupdatingが機能しなくて...
-
TODAY()で設定したセルの日付...
-
EXCELのVBA-フィルタ抽出後の...
-
EXCELで変数をペーストしたい
-
特定の文字を条件に行挿入とそ...
-
DataGridViewの各セル幅を自由...
-
Excel VBAで、 ヘッダーへのセ...
-
セルの結果でマクロ実行
-
ExcelVBAで、選択範囲内で同じ...
-
3桁または4桁の数値を時刻に...
-
セル色なしの行一括削除
-
連続する複数のセル値がすべて0...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
TODAY()で設定したセルの日付...
-
EXCELで変数をペーストしたい
-
Excel VBA、 別ブックの最終行...
-
Excelのプルダウンで2列分の情...
-
VBA コピーして次の値まで貼り...
-
screenupdatingが機能しなくて...
-
エクセルVBAでコピーして順...
-
VBA初心者です。結合セルを保持...
-
セル色なしの行一括削除
-
VBAでセルをクリックする回...
-
Excel vbaで特定の文字以外が入...
-
DataGridViewの各セル幅を自由...
-
特定の文字を条件に行挿入とそ...
-
【VBA】指定したセルと同じ値で...
おすすめ情報