お世話になります。
マクロを作成するのに、If~Thenを使用したいのですが上手く使えません。
<例>
A列に文字・数字が入っているとき→B列に”い”、C列に”う”、D列に”え”と反映させる。
A列が空白のセルになったら→その行はすべて空白にする。
行数は50行程度の予定です。
A B C D
1 あ い う え
2 空白 空白 空白 空白
3 あ い う え
4 空白 空白 空白 空白
----------------------------------------------------------
数値に対して一致・大小等の条件であれば、問題なく作成できたのですが…。
私の探し方が悪いのだとは思いますが、
セルが空白か否かを判断して文字を反映させる、というのが見つけられませんでした。
関数を使えば簡単なのは承知しておりますが、その他の処理をすべてマクロで作成したので、
できれば統一させてしまいたい…と思っています。
初心者用の本を見ながら作成している初心者ですが、何卒ご教示頂けませんでしょうか?
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんな感じ
Sub ボタン1_Click()
For i = 1 To 50
If Range("A" & i).Value = "" Then
Range("B" & i).Value = ""
Range("C" & i).Value = ""
Range("D" & i).Value = ""
Range("E" & i).Value = ""
Else
Range("B" & i).Value = "い"
Range("C" & i).Value = "う"
Range("D" & i).Value = "え"
Range("E" & i).Value = "お"
End If
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
VBAコンボボックスで選択した値...
-
Excelで、あるセルの値に応じて...
-
Worksheets メソッドは失敗しま...
-
Changeイベントでの複数セルの...
-
VBA 列が空白なら別のマクロへ...
-
VBAを使って検索したセルをコピ...
-
セルに値が入っていた時の処理
-
【Excel VBA】 B列に特定の文字...
-
文字列の結合を空白行まで実行
-
Cellsのかっこの中はどっちが行...
-
VBA 何かしら文字が入っていたら
-
VBAで、特定の文字より後を削除...
-
IIF関数の使い方
-
VBA 値と一致した行の一部の列...
-
エクセルVBA シートモジュール...
-
複数の列の値を結合して別の列...
-
Excel マクロ VBA 別シートのセ...
-
【VBA】複数行あるカンマ区切り...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
URLのリンク切れをマクロを使っ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
VBA 何かしら文字が入っていたら
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
Changeイベントでの複数セルの...
-
VBAの構文 3列置きにコピーし...
-
VBAのFind関数で結合セルを検索...
-
【Excel VBA】 B列に特定の文字...
-
VBAで指定範囲内の空白セルを左...
-
VBAでのリスト不一致抽出について
-
セルに値が入っていた時の処理
-
VBAコンボボックスで選択した値...
おすすめ情報