- 締切済み
VBA if文の作法
if a=1 then b=1 end if を if a=1 then b=1 と書けますよね。 しかし、以下のような書き方だとa=1がFALSEでもその次のif b=1 then c=1の判定をしに行きます。なぜこの書き方がいけないのでしょうか？ if a=1 then if b=1 then c=1 end if
- tanakanono
- お礼率69% (269/385)
- その他（プログラミング・開発）
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
みんなの回答
手元のVBA7.1で試してみましたが、a=1がFALSEならその次のif b=1 then c=1の判定をしには行きませんよ。 aの値が本当に1になっているのではないですか。 VBAの動作そのものを確かめるなら、a=1の代わりにFALSEとして走らせてみるといいです。
- f272
- ベストアンサー率46% (8013/17127)
その書き方でいけないことはありません。なにか勘違いしているのでは？
お礼
確かに問題ないです。今手元にコードがないので明日再確認してみます。
- dogs_cats
- ベストアンサー率38% (278/717)
記載されたコードで問題無いと思いますけど、下記でa=0だとmsgboxを表示しません。全てのコードの記載が無いと判断出来ないでしょうね。 Sub test() a = 0 b = 1 If a = 1 Then If b = 1 Then c = 1 MsgBox c End If End Sub
お礼
確かに問題ないです。今手元にコードがないので明日再確認してみます。
関連するQ&A
- VBAでIF文を作成したが、もう少しまとめたい。
以下のようなＶＢＡを作成しました。 動作に問題はないのですが、 もっと簡単にまとめることができる気がしますが、うまくできません。 何かやりかたはあるのでしょうか。 宜しくお願い致します。 If Cells(5, 1).Value = Cells(1, 1).Value Then Cells(100, 100).Select ActiveCell.FormulaR1C1 = Cells(5, 1) End If If Cells(6, 1).Value = Cells(1, 1).Value Then Cells(100, 100).Select ActiveCell.FormulaR1C1 = Cells(6, 1) End If If Cells(7, 1).Value = Cells(1, 1).Value Then Cells(100, 100).Select ActiveCell.FormulaR1C1 = Cells(7, 1) End If If Cells(8, 1).Value = Cells(1, 1).Value Then Cells(100, 100).Select ActiveCell.FormulaR1C1 = Cells(8, 1) End If If Cells(9, 1).Value = Cells(1, 1).Value Then Cells(100, 100).Select ActiveCell.FormulaR1C1 = Cells(9, 1) End If If Cells(10, 1).Value = Cells(1, 1).Value Then Cells(100, 100).Select ActiveCell.FormulaR1C1 = Cells(10, 1) End If
- ベストアンサー
- Visual Basic
- エクセル ＶＢＡマクロ if文 はどうすれば？
先ほど質問したのですが、さらにわからなくなったのでお願いします 先ほどの質問 ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ http://okwave.jp/qa/q7236338.html >変数と式の両立は難しいでしょうからどうすればよいのでしょう？ ⇒関数では出来無いのはエクセルの常識ですのでマクロ（ＶＢＡ）組込みになります。 一例です。 対象シートタブ上で右クリック→コードの表示→以下のコード貼り付けてA1に枚数を入力して お試しください。 サンプルコード Private Sub Worksheet_Change(ByVal Target As Range) 単価 = 5 If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) And Target.Value > 0 Then Application.EnableEvents = False Target.Value = Target.Value * 単価 Application.EnableEvents = True End If End Sub ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ ↓変更＆応用したのですが、、、、 ＥＸ：（セル） セル番号 用紙種類１～３ 用紙種類 C12 Ａ３モノクロ１ D12 Ａ３カラー１ C13 Ａ３モノクロ２ D13 Ａ３カラー２ C14 Ａ３モノクロ３ D14 Ａ３カラー３ ※金額の違いは、モノクロとカラーの値段が違うだけ １～３は金額的な違いはない とあった場合、 ためしに先ほどのを応用して用いたのですが 変更点は、用紙サイズ、カラーの有無による金額 出力先セルの番号 Private Sub Worksheet_Change(ByVal Target As Range) を Private Sub A4_mono_1(ByVal Target As Range) Private Sub A4_mono_2(ByVal Target As Range) ・ ・ ・ と変更したのですがうまく動作しなかったのですが、 どういった点が悪かったのでしょうか？ ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ 最終的な質問↓ 上記のものはＶＢＡマクロ文は基本１つのみなので、if文で作らなくてはいけないということが分かったのですが、そこでさらに疑問が浮かびました、 Private Sub Worksheet_Change(ByVal Target As Range) If or(target.columns = C12:C14) Then 単価1 = 7.6 If Intersect(Target, Range("C12:C14")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) And Target.Value > 0 Then Application.EnableEvents = False Target.Value = Target.Value * 単価1 Application.EnableEvents = True単価1 = 7.6 elseif or(target.columns = D12:D14) Then 単価2 = 30.6 If Intersect(Target, Range("D12:D14")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) And Target.Value > 0 Then Application.EnableEvents = False Target.Value = Target.Value * 単価2 Application.EnableEvents = True End If End Sub としたっ場合全く式になっていません どのようにすればよいのでしょう？
- ベストアンサー
- オフィス系ソフト
- if文からcase文への置き換え
ピクチャボックスをクリックしたら、チェック ボックスがチェックされるメソッドを作りたいと 思っています。 Private Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click,PictureBox2.Click 'ここから If sender Is PictureBox1 Then If Me.CheckBox1.Checked = False Then Me.CheckBox1.Checked = True Else Me.CheckBox1.Checked = False End If ElseIf sender Is PictureBox2 Then If Me.CheckBox2.Checked = False Then Me.CheckBox2.Checked = True Else Me.CheckBox2.Checked = False End If End If 'ここまで End Sub 上記のif文をCase文に置き換えたくて、 'ここから Select Case sender Case PictureBox1 If Me.CheckBox1.Checked = False Then Me.CheckBox1.Checked = True Else Me.CheckBox1.Checked = False End If Case PictureBox2 If Me.CheckBox2.Checked = False Then Me.CheckBox2.Checked = True Else Me.CheckBox2.Checked = False End If End Select 'ここまで 上記のように書き換えたのですが、エラーが出てしまいます（ビルドは通るのですが）。 Case文の使い方が間違っているんだとは思いますが、どこがどう 間違っているのがよくわかりません。 ご教授いただけないでしょうか？
- ベストアンサー
- Visual Basic
- EXCEL2007 VBA IF文について
プログラム If Sheets("sheet1").Cells(85, 1).Value = Cells(13, 1).Value Then msgBox "true" Else msgBox"false" End If 値 Sheets("sheet1").Cells(85, 1).Value ← 0.38125 Cells(13, 1).Value ← 0.38125 上記のプログラムと値のとき、結果はtrueが表示されると思うのですが、なぜかfalseが表示されてしまいます。なぜ、falseが表示されるのか解りましたら教えてください。 値はウォッチで確認しています。
- ベストアンサー
- その他MS Office製品
- VBA IF文をCASE文にしたいのですが
お尋ねします。VBAで以下のようなIF文をCASE文に書き換えたいのですが、うまくいきません。 どなたかアドバイスをいただけないでしょうか。 よろしくお願いします。 部分だけ抜き出していますが、文字列が日本語かどうかを判定しています。 CD = Asc(strNm) If CD >= -30561 And CD <= -26510 Then '漢字(第一水準)" i = i + 1 '文字数記録 ElseIf CD >= -26415 And CD <= -5468 Then '"漢字(第二水準)" i = i + 1 ElseIf CD >= -31936 And CD <= -31850 Then '"カタカナ" i = i + 1 ElseIf CD >= -32097 And CD <= -32015 Then '"ひらがな" i = i + 1 ElseIf CD >= -1444 And CD <= -949 Then '"漢字(その他)" i = i + 1 End If
- ベストアンサー
- Visual Basic
- Excel VBA IF文がうまく動作しないわけがわかりません…
未熟な私ですが… セルC２の文字列の6・7桁目に入っている文字により、8桁目の文字を 置き換えるものをつくりました。 例えば、セルのC2に、IRCD-311234 という値があれば IRCD-31A234 にしなさいというものです しかし、 ElseIf の条件式にあてはまるものがでてきても、 すべて最初のIFの条件式にしてしまい、Elseifに反応してくれません。 ****************************************************** Sub 変換() Dim DAT As Range Dim CAR As String If Mid(Range("C2").Value, 6, 2) = 31 Or 32 Or 33 Then For Each DAT In Range("A1:P40") CAR = CStr(DAT) If Left(CAR, 5) = "IRCD-" Then CAR = Left(CAR, 7) & "A" & Right(CAR, Len(CAR) - 8) DAT.Value = CAR End If Next ElseIf Mid(Range("C2").Value, 6, 2) = 37 Or 38 Or 39 Then For Each DAT In Range("A1:P40") CAR = CStr(DAT) If Left(CAR, 5) = "IRCD-" Then CAR = Left(CAR, 7) & "B" & Right(CAR, Len(CAR) - 8) DAT.Value = CAR End If Next End If End Sub ****************************************************** 本やネットを見ているのですが、何が悪いのか私にはわかりません…。 どうかご指導をお願いいたします。
- ベストアンサー
- Visual Basic
- VBA IFについて
Sub コピー() Dim x As Variant MsgBox "作成を開始します" Application.ScreenUpdating = False For Each x In Excel.Workbooks.Item("test1.xls") _ .Worksheets.Item(1).Range("B2:B20").Value If VBA.Len(x) > 0 Then FileCopy "C:\test\フォーマット.xls" , "C:\test2\" & CStr(x) & ".xls" End If Next MsgBox "作成が完了しました" End Sub 上記のコードで”B2:B20”セルの値の名前にしてファイルをコピーしているのですが、”B2:B20”値の名前のファイルがtest2フォルダにあればコピーしないようにしたいのです。 変数xがtest2フォルダになければというコードがどうしてもかけません。 どなたかご教授ください。
- ベストアンサー
- オフィス系ソフト
- If文で何故か望んだ結果が出ない。
VBSで、 a=inputbox ("a") b=inputbox ("b") c=inputbox ("c") x=(a-2000+b)-c*0.8 If x<c then msgbox x&" type Y" else msgbox " type N" End if と、いうのを制作したのですが、 例えば、a=15000、b=4000、c=5000と数値を入力した場合、ｘ=13000となり、 「x<c」では無いので結果標示が「type N」となるはずなのですが何故か「13000 type Y」と標示されてしまいます。 色々と試行錯誤したのですが、何故このような結果になってしまうのか皆目検討がつきません。 宜しければ何が原因となっているのか御教示お願いいたします。
- ベストアンサー
- Visual Basic
- VB6,Ifから抜けるには?
If a = b then xxx If c = d then ここ！ End If yyy End If zzz 上のここ！から抜け、zzz以降の処理を継続するにはどうすればよいでしょうか？ Exit Subをやってしまうとプロシージャ自体から抜けてしまいます。
- ベストアンサー
- Visual Basic
お礼
確かに問題ないです。今手元にコードがないので明日再確認してみます。 if false then でもif内を判定しに行ったのは確認しているので、問題のコードをもとに問題個所を抽出して再質問するようにします。