![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.4ベストアンサー
- 回答日時:
そもそも A,B,C が何を指しているのかが不明ですけど。
(Range型の変数?)不特定な場所のセルに対してって事であればループも For Each~Next を使用して、
Sub megu()
Dim r As Range
For Each r In Range("A1,B2,C3")
If r.Value = "" Then
r.Value = "******"
Else
End If
Next
End Sub
こんな感じにも書けますけど。
No.3
- 回答日時:
NO2 です。
For NEXT も Do Until Loopもこの場合横(列)に1列づつ移動します。Cells(Row,Column)のため・・・たとえば、縦(行)で移動したい場合はCells(CntI,1)と設定してくださいね。
No.2
- 回答日時:
私なら、同じシートのモジュール内にプロシジャーを入れて繰り返し処理をしたり、Value値のオブジェクトがセルであるならばFor NextやDo Until~Loopで繰り返し処理を行いますね。
たとえばセルが連続して100個つながっているのであれば・・・・
Public Sub TEST1()
Dim CHKCELL As Range
Dim CNTI As Long
Set CHKCELL = Range("A1")
For CNTI = 1 To 100
If CHKCELL.Cells(1, CNTI).Value = "" Then
CHKCELL.Cells(1, CNTI).Value = "XXXXX"
End If
Next CNTI
End Sub
たとえば、文字が入力しているセルまでなら
Public Sub TEST2()
Dim CHKCELL As Range
Dim CNTI As Long
Set CHKCELL = Range("A1")
Do Until CHKCELL.Cells(1, CNTI).Value <> ""
CHKCELL.Cells(1, CNTI).Value = "XXXXX"
CNTI = CNTI + 1
Loop
End Sub
セルに統一性がないなら・・・
Public Sub TEST3()
Call XXXXNYURYOKU(Range("A1"))
Call XXXXNYURYOKU(Range("D1"))
Call XXXXNYURYOKU(Range("G3"))
End Sub
Private Sub XXXXNYURYOKU(ByVal RngCELL As Range)
If RngCELL.Value = "" Then
RngCELL.Value = "XXXXX"
End If
End Sub
yamachan5407様、ご回答ありがとうございました。
初心者なので、ご回答いただいた例文をひとつづつ確認してコードを作りたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでのループ順序について 3 2023/03/13 10:55
- Visual Basic(VBA) エクセル VBAで複数セル選択時エラーになる問題 3 2022/10/04 02:40
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
VBAで、離れた複数の列に対して処理を施すには?
Visual Basic(VBA)
-
-
4
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
5
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
6
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
7
EXCELのVBAでRange(A1:C4")を変数にする方法を教え"
Visual Basic(VBA)
-
8
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
9
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
10
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
11
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
12
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
13
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
14
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
-
15
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
16
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
17
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
18
エクセルVBAでシートモジュールでのパブリック変数
Excel(エクセル)
-
19
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
20
エクセルのマクロで結合セルに値を貼り付けたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
【Excel VBA】一番右端セルまで...
-
特定の色のついたセルを削除
-
Excel UserForm の表示位置
-
入力規則のリスト選択
-
【ExcelVBA】値を変更しながら...
-
Excel VBAでCheckboxの名前を変...
-
Excelで空白セル直前のセルデー...
-
【VBA】【ユーザーフォーム_Lis...
-
DataGridViewのフォーカス遷移...
-
Worksheet_Change
-
VBA:日付を配列に入れ別セルに...
-
下記のマクロの説明(意味)を...
-
Excel VBA IF文がうまく動作し...
-
「VBA」会議室予約表の作成
-
DataGridViewで指定したセルの...
-
EXCEL VBA 1つのセル内の文字に...
-
EXCELマクロからCSVファイルを...
-
エクセルVBA 配列からセルに「...
-
excelで結合セルの場合にエラー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excel UserForm の表示位置
-
エクセルVBA 配列からセルに「...
-
EXCEL VBA 文中の書式ごと複写...
-
特定の色のついたセルを削除
-
【Excel VBA】一番右端セルまで...
-
Excelで空白セル直前のセルデー...
-
【VBA】写真の貼り付けコードが...
-
VBAコードについて教えてくださ...
-
【VBA】【ユーザーフォーム_Lis...
-
Excel 範囲指定スクショについ...
-
VBAでユーザーフォームにセル値...
-
VBA:日付を配列に入れ別セルに...
-
VBA にて、条件付き書式で背景...
-
Excel VBAでCheckboxの名前を変...
-
複数指定セルの可視セルのみを...
-
Excel VBA IF文がうまく動作し...
-
エクセルのカーソルを非表示に...
-
入力規則のリスト選択
-
VBA 複数条件の分岐処理の上手...
おすすめ情報
ご回答いただきました皆様、ありがとうございました。
質問の仕方もわかっておらずご迷惑をおかけしております。
皆様から教えて頂いたコードを試してみて、またご報告させていただきます。
この度は本当にありがとうございました。
ご回答いただきました皆様へ
この度は、大変丁寧なご回答を頂き、本当にありがとうございました。
現状、私の力不足で解決には至っておりませんが、
ご教示いただきました事を無駄にしないよう、精進します。