- ベストアンサー
VBAのif文とfor文の使用方法
- VBAのif文とfor文を使って、指定した条件に基づいた処理を行う方法について説明します。
- 具体的には、指定したセルに入力された数字を条件として、他のセルの値を取得する処理を行う方法について解説します。
- さらに、既に特定のセルに値が存在する場合には処理をスキップする方法も紹介します。
- TaikooniQ1
- お礼率26% (37/138)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- VBAのコード forを使用した処理
おはようございます。 どうしてもコードが思いつかないので質問させていただきます。 やりたいこと 例 A１～A5セルにランダムに『今日』や『明日』の文字が入っている として B１セルに『１』、B２セルに『２』、B3セルに『３』Bセルに『４』 とそれぞれ数字が入力されているとします。 例えばもし A２セルとA4セルに『今日』という文字が有れば、C1セルに B２セルの値とB４セルの値を足したものを反映させたいのですが どうしてもfor文を使用すると最後の数字 （このパターンだとB４の数字を張り付けられるだけになります。） どうしたらSUM関数みたいに連続してB２とB４セルの値を 足せるようなコードをかけるのでしょうか？ すいませんが下記にコードを記載します。 出来ましたらこうしたらうまく計算できるよ！ というコードを記載していただけないでしょうか？ 宜しくお願い致します。 Sub test() Dim i As Long For i = 1 To 5 If Cells(i, "A").Value = "今日" Then Range("C1") = Cells(i, "A") ←ここの処理コードが間違っていますよね End If Next i End Sub
- ベストアンサー
- Excel（エクセル）
- Excelでfor文とif文の操作をしたいです
Excelについての質問です。 Excelで、画像のようにシート1のA列にアルファベットと数字のデータがあり（重複はありません）、B列に1～5の数字が入っているとします。 この時、シート2のB列に、シート2のA列で指定したものと一致する、シートAのB列の値を入力したいです。 （この例の場合、上から順に5、4、1です） プログラミング言語でいう、いわゆるfor文とif文の併用で for(i=1;i<4;i++){ for (j=1;j<8;j++){ if(シート1のセルAj==シート2のセルAi){ シート2のセルBiにシート1のセルBjを値を入れる ループを抜ける } } } というような感じになると思います。（間違っていたら申し訳ないです。） こういった処理は、Excelのマクロで可能でしょうか？ また、できればどうすれば実現できるか、教えていただけると助かります。 よろしくお願いいたします。
- ベストアンサー
- その他([技術者向] コンピューター)
- VBA教えて下さい
for nextの使い方がわかりません 変数を使用し条件に当てはまる数値だけ 処理するといった内容です 考えたコード sub test() dim a as variant dim b as variant dim i as variant with workbooks("book1").activesheet set a =.range("A5") set b =.range("B5") end with with workbooks("book2").activesheet for i = 80 to 110 if a = cells(i,1) then b.value = cells(i,2) end if next i end sub このコードにてやりたい事は まず、book1の今開いてるシートを参照し A5セル、B5セルをセットし (例えばA5は2と入力している B5セルは10000と入力している) 次に、book2の今開いてるシートを参照し もし、1行目の80～110どれかのセルの数字が 変数aと同じ値ならば (A行80～110行のセルの数字2があれば 例えば85列) 変数bの数字を2行目の80～110に条件に当てはまるセルに移す (B行85列にB5セルの値10000を移す) ()の部分は例えで書いてます 読みにくかったら無視でお願いしますm(__)m 指定の仕方など間違ってると思うので コードを書いてくれると助かります 回答お願いしますm(__)m
- ベストアンサー
- Visual Basic
- EXCEL2002 VBAのループ処理について
セルB1～B24に入力した数字を i とすると、 コマンドボタンを押したときに、セルB1～B24にの全てに値が入力されていて、 セル（ F & i )が空白であれば、そこにセルA1の値を入れるようなマクロを作成しています。 セル（ F & i )への入力は、セルB1～B24の全部に数値が入力されており、セル（ F & i )が空白があるときのみ処理が実行されるように。どちらかが満たされない場合には、メッセージボックスを表示し、処理しないようにしたいのですが、どうしても途中まで入力されてしまいます。 以下のようなコードですが、何か良い方法はないでしょうか？ Private Sub CommandButton1_Click() 'ロール確認 Dim 入力 As String, パレット As String Dim i As Long, t As Long For i = 1 To 24 入力 = Range("B" & i) パレット = Range("F" & i) If 入力 = "" Then MsgBox "aaa" Exit For End If 'パレットNo.転記 If パレット <> "" Then MsgBox "bbb" Exit For ElseIf パレット = "" Then Range("F" & 入力).Value = Range("A1").Value End If Next i End Sub
- 締切済み
- オフィス系ソフト
- if文で困っています。
define A 5 void main(void) int i; scanf("%d", &i); if (i <= A){ このような形をつくったのですが、if文のところで質問があります。 「数字をいくつか入力し、その入力したデータ数が５つより少ないときに・・・」というようなプログラムにしたいのですが、この場合、「入力した数値が5.0以下であるときに・・・」というプログラムになっているのではないかと、困っています。どちらが正しいのでしょうか？
- ベストアンサー
- C・C++・C#
- IF文の作り方
エクセル VBA 超入門のものなんですけど、質問させてください。 A1のセルに １を入力したら、セルD１に正解を表示させ、 それ以外なら不正解を表示させたいのですが、 以下の文でつくると 実行した最初しか起動してないような気がするのですが、教えてください。どうすればセルA1を入力するたびに、 正解、不正解をD１に表示させれるでしょうか？ Sub テスト() If Range("A1") = "1" Then Range("D1").Value = "正解" Else Range("D1").Value = "不正解" End If End Sub
- ベストアンサー
- Visual Basic
- VBA 結合されているセルのオートフィル
先程同じような質問をしてしまい すいませんが 結合されているセルのオートフィルのやり方が今一つわかりません でしたので質問させていただきます。 やりたいこと A列・・・A1セル『1』A2セル『2』・・・A10セル『10』と 数字が入っています。 BとC列・・・結合されており B1C1セル『1000』B2C2セル『1100』と数字が入っています。 F1セル・・・1～10までの数字が入っています。 処理内容 F1セルに『5』と数字が入っている場合 B5C5セルを選択後、数字が入っているB2C2セルまで移動します。 そのあと、B5C5セルではなく B4C4セルまで『1100』とオートフィルしたいのですが 可能でしょうか。 それともこのような処理をしたい場合オートフィルをするのは 間違っているのでしょうか？ すいませんがｺｰﾄﾞ記載していますので 回答宜しくお願い致します。 コード Sub Macro1() Dim a As Variant Dim i As Variant Dim RSta As Long Set a = Range("F1") '検索値'例えば5と入力したら For i = 1 To 10 If a.Value = Cells(i, 1).Value Then 'F1セルに５と入力されA５セルの数字が５なら If Cells(i, 2) = "" Then 'B5セルの値が何もなければ RSta = Cells(i, 2).End(xlUp).Row 'ここでBとCセルの結合されているセルの数字が入っている 一番上のセルを選択し Range("B" & RSta, "C" & RSta).AutoFill Destination:=Range("B" & RSta, "C"), Type:=xlFillCopy 'このコードが間違っているらしくうまくできません。ここでBとCの結合されているセル２行目から4行目までをオートフィル（数字のコピーのみを実施したい） End If End If Next i End Sub
- ベストアンサー
- Excel（エクセル）
- ExcelのIF文のバグ？
現在、関数を利用して処理したいデータベースがあります。 =IF(B21<=数値入力!G14,2,3) このような記述のセルがシート内にあります。 ・B21には数値で6 ・数値入力!G14には数値で10 が入っています。この文をEnterで確定すると、なぜか数字の0が出力されます。 2か3,もしくはErrorが出るならわかりますが、0が出力されている状態はどのような原因が考えられますでしょうか？ ちなみに、 =IF(6<=数値入力!G14,2,3) このように入力すると3を出力します。B21が文字例になっているのではないかと何度も疑いましたが、数値でした。
- 締切済み
- その他(業務ソフトウェア)
- if文の中にfor文なのか、for文の中にif文なのか
for文の中に分岐を作って計算するのと、if文を先に書いてからfor文にするのとではどちらが一般的ですか？ for ( i = 0; i < n; i++) { if ( a > b ) { y = i; } else { y = i * 2; } printf( "%d", y ); } とするか、 if ( a > b ) { for ( i = 0; i < n; i++) { y = i; } } else { for ( i = 0; i < n; i++) { y = i * 2; } } printf( "%d", y ); とするかという事です。 ちなみにプログラムは適当ですのでちょっとしたミスはご勘弁ください。 個人的には後者の方が分岐が少ない分負担は減ると思うのですが、前者の方がすっきりとしているのでこちらを使いたいのです。 もちろん、微々たる差なので好きな方を使えという意見もあると思いますが、皆さんはどちらを使いますか？
- ベストアンサー
- C・C++・C#
- if文の中のif文・・・について
質問させていただきます。 if文の中のif文の記述の仕方について質問があります。 例えば if ( x > 0 ){ a = b+c; if ( a > 1) d = e+f; ・・・１ if ( a < 1) d = e-f; ・・・２ if ( a = 1 ) d = 1-g; ・・・３ } h = d + i; aが1より大きい場合は、1の処理を、aが1より小さい場合は2の処理を、aが1と同じであった場合、3の処理をして最終的に、h = d + i;の式の d に代入して h を求めたいと思っているのですが、うまくゆきません。 if文の中のif文の記述はどのようにすればよいのでしょうか？ よろしければご教示よろしくお願いします。
- ベストアンサー
- C・C++・C#
お礼
ありがとうございます。 助かりました！