• ベストアンサー

#If　Then　～　#Else　～　#End If(エクセルVBA)

#If　Then　～　#Else　～　#End If って何ですか？ また、VBAのヘルプで検索する方法ってどうすればいいのですか？ どなたか？宜しくお願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
  • Dxak
  • ベストアンサー率34% (510/1465)
回答No.3

単純にヘルプのコピペです。 > #If　Then　～　#Else　～　#End If 式の値に基づいて、条件付きのコンパイルを行います。 ヘルプの使用方法であれば、 VBAのコードを打つ画面で、#Ifの#またはIの後ろで「F１（ファンクション１）」を入力ください。 そうすると、参照先の先が自動的に出てきます。 今更聞きにくいヘルプの使用法ですね・・・。 HLPファイルの時は簡単に検索できたんですけどね。

vba_minarai
質問者

補足

有難う御座いました。 ちょっと、へこんでいます。

その他の回答 (2)

  • S-Fuji
  • ベストアンサー率36% (592/1624)
回答No.2

いわゆる　if文といって、条件によって分岐をするための制御構文です。 　勉強をしたいのであれば、ネット上で学習が出来るサイトが多々有ります。 http://homepage1.nifty.com/kenzo30/ http://www2s.biglobe.ne.jp/~iryo/ ヘルプの使い方 ヘルプ　－　Microsoft Excelヘルプ　－　質問 　また、VBAの初級レベルの本を購入する事をお勧めします。

vba_minarai
質問者

補足

早速のご指導有難う御座います。 if文自体は、よく理解しているつもりです。 質問の仕方が悪かったのですが？if文の頭に#がついています。 オブジェクトブラウザーで調べたのですが検索に引っかかりません。(#IF、IFで検索しました) ヘルプでも検索しましたが、引っかかりません。 (ステートメント、#IF、IFで検索) デバックでコンパイルを行ってもエラーにならないので構文的には問題ないと思いますが、#がついてもつかなくても機能に差はないのですか？ また、質問は、VBAなのですが？Microsoft ExcelヘルプのでもVBAって調べられるのですか？ 重ね重ね宜しくお願い致します。

  • 2531kbps
  • ベストアンサー率13% (183/1333)
回答No.1

攻撃ではないのですが、その程度の基本的なことをマスターしていないのなら、体系的にVBAの基礎記述している書籍をまず1冊読破することを強く提案します。 プロフィールを拝見した結果では、今後もちょっとしたことで躓いたら質問するの繰り返しで、実力は付かないと思います。 最初にある程度の基礎知識を付けてから、学習した方がトータルでプラスですよ。

vba_minarai
質問者

補足

早速のご指摘有難う御座います。 肝に銘じて今後に取り組みたいと思います。 今後とも宜しくお願い致します。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • Excel VBA の if elseについて

    　以下は与えられた自然数が素数であるかどうかを判定する、Excel VBA による素朴なコードです。 　自然数が2 とそれ以上の場合で処理を分けていますが、5 行目のelseで 　　対応するifがないという というコンパイルエラーが出ます。私はプログラミング言語は、Pascal しか経験がなく、Pascal の場合 5 行目の else から後の処理したい複数の構文を begin end で囲めば問題なく動きます。 　Excel VBA で同じ処理をさせるにはどうしたらいいのでしょうか？ 　Worksheets("素数").Activate　　'"素数"シートをアクティブにする 　Flg = 0 　Target = Range("D5").Value 　if Target = 2 then MsgBox ("2 は素数です。") 　else　 'else 対応するifがないというエラーが出る 　'begin ・・・・・ Pascalの場合 　　 K = Int(Target / 2) 　　 ' 2 以外の素数は奇数なので偶数で割ることを確認する必要はない。 　　 For I = 3 To K Step 2 　　　　If Target Mod I = 0 Then 　　　　　Flg = 1 　　　　　Exit For 　　　 End If 　　 Next I 　　 　　 Snum = Format(Target) 　　 If Flg = 0 Then 　　　　MsgBox (Snum + " は素数です。") 　　 Else 　　　　MsgBox (Snum + " は素数ではありません。") 　　 End If 　'end ・・・・・ Pascalの場合 　End If

  • エクセル　VBA　If～Then～Else

    エクセルのA列に以下の文字列が入っています。 A1 A2＝100-101 A3=102-103 A4=104-105 A5=106-107 A列の文字列を上から順に結合するため下記のVBAを実行しました。 結合の条件として、文字列の最後の数字と次のセルの最初の数字が連続しているならば、互いに消去して結合、そうでないなら「,」 (カンマ)でつなげて結合したいと思っています。 なので期待する結果としては A1=100----107 となってほしいのですが、実際は A1＝100--103,104-105,106-107 となってしまいました。 (ループ中の1回目の条件分岐だけが成功し、２回目以降は違っている) 「IF～Then」の部分が間違っているようなのですが・・・・・わかりません。 プロパティの使い方など全体的に至らぬ点があるかもしれませんがよろしくお願いします。 Dim i As Integer Dim X As String Dim mojisu As String i = 3 X = Cells(i, 1) mojisu = 3 Cells(1, 1) = Cells(2, 1) Do Until Cells(i, 1).Value = "" If Left(X, mojisu) - Right(Cells(1, 1), mojisu) = 1 Then Cells(1, 1).Value = Left(Cells(1, 1), Len(Cells(1, 1)) - mojisu) & Right(X, Len(X) - mojisu) Else Cells(1, 1).Value = Cells(1, 1).Value & "," & Cells(i, 1).Value End If i = i + 1 Loop

  • エクセルVBAで

    お世話になります。 エクセルＶＢＡで簡易プログラムを作成しています。 その中でユーザーフォームを作り、チェックボックスで ６項目からどれか一つ選択する様な仕組みを作っています。 利用者が二つ以上選択（チェック）出来ない様にしたいの ですが、どの様にすれば良いでしょうか。 ちなみに今の記述は下記の様になります。 ご教授下さいます様、宜しくお願い致します。 　　　　　　　　記 If CheckBox1 = False Then If CheckBox2 = False Then If CheckBox3 = False Then If CheckBox4 = False Then If CheckBox5 = False Then If CheckBox6 = False Then MsgBox "どれか選択して下さい！" GoTo err_jmp Else: mytoki = "３年前から" End If Else: mytoki = "２年前から" End If Else: mytoki = "１年前から" End If Else: mytoki = "半年前から" End If Else: mytoki = "１週間前から" End If Else: mytoki = "昨日から" End If

  • #If True Then の # って何？？

    #If True Then #Else #End if というソースを見たときがあるのですが、何がTrueなのかさっぱり 分かりません。どなたか優しく詳しく例をあげて教えてくださいませんか？

  • Excel VBA If文の処理について

    Excel VBA If文の処理方法で質問です。 http://www.sigoto.co.jp/excel/statement/state09.htm　を参考にしながら作ってます。 ▲空白なら　の方法は記載されていますが… If 要素.Value = Empty Then　～ ▲セルに(文字・数値に関係なく)情報があるなら…　という定義をしたいのですがどうやればよろしいでしょうか？ If 要素.Value != Empty Then　～ これだとエラーが返りました。VBAは (※Else以外の方法で) 否定文の処理方法ってありますか？ *内容抜粋* Set cell = Range("G5:I9") If cell.Value = "" Then　'…ここの定義どうやれば良いか？ ・ ・ End If アドバイスよろしくお願い致します。

  • End Ifは不要な場合もある？

    Excel2010使用で下記のVBAのコードを書きました。 Sub イフとエンドイフは組ではなかったのか() 　Dim Flag As Boolean 　Dim S As Worksheet 　　For Each S In Worksheets 　　　If S.Name = "合計" Then Flag = True ' 　　Else ' 　　　Flag = False ' 　　End If 　　Next S 　　If Flag = True Then 　　　MsgBox "「合計」というシートはすでに存在します" 　　Else 　　　Worksheets(1).Copy after:=Worksheets(Worksheets.Count) 　　　ActiveSheet.Name = "合計" 　　End If End Sub 前半の >' Else >' Flag = False >' End If の部分があると「Elseに対応するIfがありません」というエラーが出ます。 Elseに関する記述だけをコメントアウトすると「End Ifに対応するIfブロックがありません」というエラーが出ます。 この部分をコメントアウトすればきちんと動作するのですが、If文はちゃんと存在しているにもかかわらず、またほとんど同じ記述の後半ではエラーが出ないというのに、なぜこのようなエラーが出るのかわかりません。 なにか勘違いをしているのでしょうか。

  • VBAでelseに対応するifがありませんとエラー

    VBA初心者です 入力した数値（0から5）により、呼んでくる列を変えたいマクロを組んでいます if then elseif end ifで条件式を作ったのですが、 「elseに対応するifがありません」とエラーが出て進みません elseifが悪いのかと思い、条件を1つに絞ると上手く動きます（この際はendifは不要） ネット検索や参考書を見てますが、分かりません どなたか間違いを指摘して頂けませんか？ Sub inputboxA() Dim nDat As String nDat = inputbox("何ヶ月目ですか？") If IsNumeric(nDat) = False Then MsgBox ("0から5までの値を入力して下さい") Exit Sub End If If nDat = 0 Then mm = 16 '0なら16列からデータを呼んでくる ElseIf nDat = 1 Then mm = 20 'ここでエラーが出る 　1なら20列目からデータを呼んでくる ElseIf nDat = 2 Then mm = 24 '2なら24列目からデータを呼んでくる ElseIf nDat = 3 Then mm = 28 '3なら28列目からデータを呼んでくる ElseIf nDat = 4 Then mm = 32 '4なら32列目からデータを呼んでくる ElseIf nDat = 5 Then mm = 36 '5なら36列目からデータを呼んでくる End If 'データを呼んでくる For r = 4 To 2000 '処理するSheet1の行数範囲 b = Sheets(1).Cells(r, 1) 'bにA列の値を代入 For t = 6 To 2000 '検索するSheet3の行数範囲 If Sheets(3).Cells(t, 7) = b Then 'Sheet1のA列の値とSheet3のA列が一致した場合 y = Sheets(3).Cells(t, mm) 'yにB列の値を代入 Sheets(1).Cells(r, 6).Value = y 'Sheet1のB列に値を入力 Exit For '値が見つかったのでForを終了 End If Next Next End Sub

  • エクセルＶＢＡのＩＦ・・・Else文について

    A列に日付が入っていて、それが12月の時はＦ列に"○"、 それ以外は"×"と表示したいのですが、下記を実行すると、 Ａ列の空白セルの時もＦ列に"○"が表示されます。 何故でしょうか。Offsetを使って作成したいのですが、 すみませんが、宜しく御願いします。 Sub Test() 　Dim i 　　For i = 2 To 20 　　　If Month(Cells(i, 1)) = 12 Then 　　　　Cells(i, 1).Offset(0, 6) = "○" 　　　Else 　　　　Cells(i, 1).Offset(0, 6) = "×" 　　　End If 　　Next End Sub

  • Excel VBA「If else」の使い方

    Excelで管理台帳を作っています コマンドボタンをクリックすると、元データ「受給者情報」シートから今月利用終了となる人のリストを「利用終了者」シートに抽出できるようにしています 正しい作り方ではないのかもしれませんが、これでちゃんと抽出できているから抽出自体はこれでも問題ないと思います(^_^;) それはいいのですが、対象となる人がいない場合、抽出先の「利用終了者」シートにはタイトル行しか出ません。 それでも構わないのですが、できたら抽出データがない場合（A２セルより下のデータがない場合）は、「今月で終了の利用者はいません」とメッセージを出し、「top_page」シートに移動させたいのです そのやり方がうまくいきません 現時点はこのように入れています Private Sub CommandButton2_Click() Worksheets("利用終了者").Select Worksheets("利用終了者").Range("A:M").Clear With Worksheets("受給者情報") .Range("A:M").Copy Worksheets("利用終了者").Range("A1") .Range("A:Q").AdvancedFilter _ Action:=xlFilterCopy, _ criteriarange:=.Range("U1:V3"), _　 CopyToRange:=Worksheets("利用終了者").Range("A:M"), _ unique:=False End With MsgBox "今月末で終了の利用者です！", vbOKOnly + vbInformation, "確認" If MsgBox("印刷しますか？", vbYesNo + vbQuestion, "印刷") = vbNo Then Exit Sub End If Worksheets("利用終了者").PrintOut Sheets("top_page").Select Range("a1").Select End Sub If elseを使うんだろうな、というのは何となくわかるのですが、どこにどう入れたらちゃんと反応するのかわかりません。 一度、 　（前略） If Application.CountA(Range("A2")) = 0 Then MsgBox "今月末で終了の利用者はいません", vbOKOnly + vbInformation, "確認" Else MsgBox "今月末で終了の利用者です！", vbOKOnly + vbInformation, "確認" If MsgBox("印刷しますか？", vbYesNo + vbQuestion, "印刷") = vbNo Then Exit Sub End If Worksheets("利用終了者").PrintOut End If Sheets("top_page").Select Range("a1").Select End Sub と入れてみたのですが、これだと２行目以降もデータがあっても、「今月末で終了の利用者はいません」となってしまいます ２行目以降にデータがある場合は「今月末で終了の利用者です！」とメッセージボックスを出し、２行目以降にデータがない場合は「今月末で利用終了の利用者はいません」とメッセージボックスを出したいです そのやり方を教えてください。お願いします ちなみにバージョンはExcel2010です

  • VBAでIf～Thenに条件をもう１つ

    　以下のようにExcelのVBAでタイムスタンプを比較するところがあるのですが、比較ファイルがないものがありますその場合もthen以降を実行するには、どうすれば良いのでしょうか？ If FileDateTime(Mydoc) > FileDateTime(Mydoc2) Then MsgBox "Mydoc" End If　 　ここで、Mydoc2が存在しないときも、MsgBox "Mydoc" を実行したいのですが。 　ちなみに、Mydoc2のタイムスタンプが新しいときは、飛ばして次の命令文に進みます。 　wかりにくい質問ですが、よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する