エクセル マクロ

質問

A列とB列のどちらか、もしくは両方が空白（０ではなく空白です）の場合、C列に1と入力する という動作をマクロボタンで実行したいのですが上手くいきません。教えてください。

回答No.1

keithin · ベストアンサー

ＡＬＴ＋Ｆ１１でＶＢＥ画面を開く
挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
if range("A1") <> "" or range("B1") <> "" then
range("C1") = 1
end if
end sub

ファイルメニューから終了してエクセルに戻る
シート上にオートシェイプ（若しくは「フォーム」のコマンドボタン）を配置、右クリックしてマクロの登録でマクロを登録する。

＃ご相談の説明不足（フォローはしませんので、皆さんから寄せられた回答を参考に自力で応用してみて下さい）
１．エクセルでは「ボタン」として
　　ActiveXコントロール（コントロールツールボックス）のコマンドボタン
　　フォームのコマンドボタン
　　オートシェイプの図形やＪＰＧ、ＧＩＦ画像など
　　などを利用することができます。具体的にどれを使うか（使いたい理由がなにかあるのか）に応じて、具体的なマクロの書き振りとか用意の仕方が違うので、ごっちゃにしてはいけません

２．Ａ列、Ｂ列、Ｃ列の「具体的にどの行について」そういう事をしたいのか説明がありません。
　たとえば回答したように「固定のこの行について」そうできればよいのか
　たとえば「Ａ列に記入してある一番下の行」のように具体的な対象となる行をマクロに探させて、その行のＣ列に結果を記入したいとか

回答No.2

keithin

あらまちがいた

＞A列とB列のどちらか、もしくは両方が空白（０ではなく空白です）の場合

sub macro1r1()
if range("A1") = "" or range("B1") = "" then range("C1") = 1
end sub

失礼しました。

あるいは
ir application.counta(range("A1:B1")) < 2 then
とかでもいいです。

＃それとも「ゼロではなく空白の場合」とわざわざ補足を入れているのは、セルに実際には「何か記入してあって、それがどーなってる場合には」というナイショの条件付きのお話なのかもしれませんね。