エクセルVBA if、Elseifの使い方について
- エクセルVBAでif、Elseifを使って条件分岐する方法についてわかりません。具体的な質問は、A列の最大値によって表示されるメッセージを場合分けするというものです。最大値が1〜9の場合は「終了します」というメッセージを表示し、最大値が0の場合は「該当なし。シートを削除しますか？」のメッセージを表示し、最大値が10の場合は「すべて選択しています。シートを削除しますか？」のメッセージを表示します。また、メッセージをクリックした結果に応じて、処理を行う方法も知りたいです。
- 最大値が1〜9の場合は成功するが、最大値が0の場合や10の場合に「該当なし。シートを削除しますか？」と「すべて選択しています。シートを削除しますか？」の両方のメッセージが表示されてしまいます。最大値が0の場合は「該当なし。シートを削除しますか？」のメッセージのみが表示されるようにしたいです。
- 最大値が0の場合や10の場合に「該当なし。シートを削除しますか？」と「すべて選択しています。シートを削除しますか？」の両方のメッセージが表示されるのは、条件分岐の記述に問題があるためです。最大値が0の場合は、最初のIf文の条件に該当するため、その後のElseif文が実行されません。最大値が0の場合でも、条件に該当するElseif文が実行されるように、条件分岐の記述を修正してください。
- ベストアンサー
エクセルVBA if、Elseifの使い方について
調べたり、試行錯誤したのですが分からないので教えてください。 Ａ列の最大値により表示されるメッセージを場合分けします。 （1）最大値が１～９の場合→「終了します」のメッセージを表示させる。 （2）最大値が０の場合 →「該当なし。シートを削除しますか？」のメッセージを表示させる。 （3）最大値が１０の場合 →「すべて選択しています。シートを削除しますか？」のメッセージを表示させる。 メッセージをクリックした結果 （1）「はい」をクリックして終了。 （2）「はい」をクリックすれば、シートを削除。「いいえ」をクリックして終了。 （3）「はい」をクリックすれば、シートを削除。「いいえ」をクリックして終了。 'メッセージ Dim maxval As Long maxval = Application.Max(sheet1.Range("A:A")) If maxval >= 1 And maxval <= 9 Then MsgBox " 終了します" ElseIf maxval = 0 And vbYes = MsgBox("該当なし。シートを削除しますか？", vbYesNo) Then Application.DisplayAlerts = False sheet1.Delete Application.DisplayAlerts = True ElseIf maxval = 10 And vbYes = MsgBox("すべて選択しています。シートを削除しますか？", vbYesNo) Then Application.DisplayAlerts = False sheet1.Delete Application.DisplayAlerts = True End If End Sub （1）最大値が１～９の場合は成功します。 （2）（3）最大値が０の場合や１０の場合に、「該当なし。シートを削除しますか？」と「すべて選択しています。シートを削除しますか？」の両方が、表示されてしまいます。 （2）（3）の場合に、それぞれのメッセージしか表示されないようにするにはどうしたらよいのでしょうか。 よろしくお願いします。
- kidibotkbg
- お礼率90% (88/97)
- その他MS Office製品
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
ElseIf maxval = 0 Then If vbYes = MsgBox("該当なし。シートを削除しますか？", vbYesNo) Then Application.DisplayAlerts = False sheet1.Delete Application.DisplayAlerts = True End If ElseIf maxval = 10 Then If And vbYes = MsgBox("すべて選択しています。シートを削除しますか？", vbYesNo) Then Application.DisplayAlerts = False sheet1.Delete Application.DisplayAlerts = True End If End If のように maxvalが0や10の時だけMsgBoxを呼び出すようにします。 If maxval = 0 And vbYes = MsgBox("該当なし。シートを削除しますか？", vbYesNo) だと、maxvalの値に無関係にMsgBoxが呼び出されますよ。
その他の回答 (1)
- keithin
- ベストアンサー率66% (5278/7940)
＞それぞれのメッセージしか表示されないようにするにはどうしたらよいのでしょうか。 それぞれのメッセージを表示したら「そこでちゃんと終わる」ようにしておいてもできます。 Dim maxval As Long maxval = Application.Max(sheet1.Range("A:A")) If maxval >= 1 And maxval <= 9 Then MsgBox " 終了します" exit sub ElseIf maxval = 0 And vbYes = MsgBox("該当なし。シートを削除しますか？", vbYesNo) Then Application.DisplayAlerts = False sheet1.Delete Application.DisplayAlerts = True exit sub ElseIf maxval = 10 And vbYes = MsgBox("すべて選択しています。シートを削除しますか？", vbYesNo) Then Application.DisplayAlerts = False sheet1.Delete Application.DisplayAlerts = True exit sub End If End Sub
お礼
回答ありがとうございます exit subは全く思いつきませんでした ありがとうございました
関連するQ&A
- Excel VBAでのシートの削除について
Excel VBAで、シート上に配置されたボタンをクリックすることで、メッセージを出さずにそのシートの削除をしたいと思っています。 サンプルとして、シート上（例えばSheet1）にボタンを１個配置し、 ------------------------------------------------------- Private Sub CommandButton1_Click() Application.DisplayAlerts = False Delete Application.DisplayAlerts = True End Sub ------------------------------------------------------- のようにすると、オートメーションエラーが起きます。 そこで、 Application.DisplayAlerts = True をコメントアウトしてやれば実行はできるのですが、その後別のシートで処理を行う場合には、再度メッセージを表示してほしいと思っています。 ためしに、Sheet1削除後にアクティブになるSheet2に次のようなコードを記述しました。Sheet1同様、シート上にボタンを１個配置しています。 ------------------------------------------------------- Private Sub CommandButton1_Click() MsgBox Application.DisplayAlerts End Sub Private Sub Worksheet_Activate() MsgBox "次に出るメッセージはアクティブ直後のDisplayAlerts設定。" MsgBox Application.DisplayAlerts Application.DisplayAlerts = True MsgBox "次に出るメッセージは変更後のDisplayAlerts設定。" MsgBox Application.DisplayAlerts End Sub ------------------------------------------------------- こうすれば、Sheet1削除後、アクティブになった直後はDisplayAlertsがFalse。その後設定変更してTrueになるかとおもったのですが、結果はFalseでした。しかしその後、ボタンをクリックするとTrueが返ってきました。 いろいろ調べましたが、なぜこのような結果になるのかわかりません。よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- エクセルVBAでワークシート削除
ブックの中にある、表示されているシートで、たとえば図表1～図表4（何番まであるかは不定です）という名前のシートを削除するVBAを作りました。ただの「図表」という名前のシートや、「何々図表」、「図表集計」等のシートは削除しません。 Sub 保存図表削除() Dim SN As String For Each sh In Worksheets SN = sh.Name If sh.Visible And IsNumeric(Mid(SN, 3, Len(SN) - 2)) And Left(SN, 2) = "図表" Then ans = MsgBox(SN & "を削除してよい？", vbYesNo) If ans = vbYes Then Application.DisplayAlerts = False sh.Delete Application.DisplayAlerts = True End If End If Next End Sub これでうまく作動するのですが、いちいちシートごとに削除の有無を聞かずに、削除するシート名をまとめて表示し、それらを削除するかしないかを聞くにはどうすればよいでしょうか？ 「図表1,2,3,4があります。これらを削除しますか？」というような感じです。
- ベストアンサー
- オフィス系ソフト
- 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です
- ベストアンサー
- Visual Basic
- Excelで，特定のシートを開いたときにメッセージボックスを表示するに
Excelで，特定のシートを開いたときにメッセージボックスを表示するには？ Excelを使用しているときに，例えばSheet3を開いたとき，メッセージボックスが開くようにしたいです。 個人的に考えているのは，そのシートの「コードの表示」で現れるVisual Basicの部分に Private Sub Worksheet_Open() YesNo = MsgBox("メッセージ。よろしいですか？", vbYesNo) If YesNo = vbYes Then End If このようなマクロを入れるといいのかと思いましたが動きません。 どこが間違っているのでしょうか？
- ベストアンサー
- その他MS Office製品
- EXCELのVBAでのSelectとActivateの違い
VBAの初心者です。 ExcelのVBAでメッセージを表示してシートを切換えるというのを作りたいのです。 見真似で作成したのが↓です。 Dim rtn As String rtn = MsgBox("シートを切換えますか", vbYesNo, "シートの切替") If rtn = vbYes Then Worksheets("送付先一覧").Activate Range("a1").Select Else Exit Sub End If 動作確認はできましたが、上記の「Activate」を「Select」に変更しても特に動作異常がありません。 そこで、疑問ですが、「Activate」と「Select」ってどうやって使い分けるのでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルマクロで列を削除したい
エクセル2013です。 マクロの途中で列を削除するようにしてあります。 A列～J列、N列～Q列、T列～U列、W列～Y列を一括削除なのですが A列～J列だけは、作業者が選択した1列だけを残して削除をしたいです。 マウスで選択させて、列を指定する所までは作成できましたが 列削除の部分（★の部分）が 思うように作成できず完成できません。 アドバイスをお願いいたします。 Sub 列削除() Dim マウス選択 Dim 選択列 Dim 選択月表示 Dim 質問 On Error GoTo myError 'INPUT-BOXでキャンセルを選択した時の回避 Set マウス選択 = Application.InputBox("回覧用に編集したい月の列を選択してください", Type:=8) If マウス選択.Columns.Count > 1 Then '選択したしたのが列で有り1列であるか確認 MsgBox "選択したのは列ではありません。又は2列以上を選択しています" MsgBox "プログラムを中断します" Application.DisplayAlerts = False Application.DisplayAlerts = True Exit Sub 'プログラム停止 End If If マウス選択.Rows.Count > 1 Then '選択したのが行又はセルの場合の処理 Else MsgBox "行又はセルを選択しています。1列を選択してください" MsgBox "プログラムを中断します" Application.DisplayAlerts = False Application.DisplayAlerts = True Exit Sub 'プログラム停止 End If Set マウス選択 = マウス選択.EntireColumn Debug.Print マウス選択.Address 選択列 = マウス選択.Column 'INPUT-BOXで選択した列を数字に置き換える 選択月表示 = Cells(2, 選択列).Value '選択した列の8行目のセルの値を格納 If 選択列 > 10 Then '選択したのが11列以上の場合の処理 MsgBox "11列目以降は選択できません" MsgBox "プログラムを中断します" Application.DisplayAlerts = False Application.DisplayAlerts = True Exit Sub 'プログラム停止 End If 質問 = MsgBox("選択した月は " & 選択月表示 & " です。いいですか？", vbYesNo) If 質問 = vbYes Then MsgBox "処理を行います" '不要列削除 ★ Union(Columns("A:J"),Columns("N:Q"), Columns("T:U"), Columns("W:Y")).Delete Else MsgBox "プログラムを中断します" Application.DisplayAlerts = False Application.DisplayAlerts = True Exit Sub 'プログラム停止 End If Exit Sub 'エラーが出なかった時のmyErrorの回避用 myError: 'INPUT-BOXでキャンセルを押した時の処理 MsgBox "キャンセルが押されました。プログラム終了します。" Application.DisplayAlerts = False Application.DisplayAlerts = True Exit Sub End Sub
- ベストアンサー
- Excel（エクセル）
- ＶＢＡで一度開いたＩＥで再操作したい。
ＶＢＡで一度操作が完了し、開いたままのＩＥでプログラムの再操作をするにはどうしたらいいのでしょうか？ 一連のプログラム動作が終了し、ＩＥを閉じなければまた違うウィンドウで開いてしまうので、同じウィンドウで操作し続けたいのですが・・・。 それと、一度終了したプログラムを If MsgBox("再実行しますか？", vbYesNo) = vbYes Then などのダイアログで「はい」を選んだ場合、再実行する方法はどのように記述すればよいでしょうか？
- ベストアンサー
- Visual Basic
- Excel VBA
いつもお世話になっております。 ExcelのVBAの処理にてお聞きしたいのですが… Ret = MsgBox("項目を全て削除しますが、よろしいですか？", vbYesNo, "削除") If Ret = vbYes Then Worksheets("入力").Select Range("C10:I59").ClearContents Range("L10:R59").ClearContents Range("W10:Y59").ClearContents Range("AB10:AH59").ClearContents Range("AM10:AO59").ClearContents Range("AR10:AX59").ClearContents Range("BC10:BE59").ClearContents ・ ・ ・ と長々しく書いているのですが、これをもっとスマートに 書く方法はありますか？？ それから、こういったことが出来るなら教えて頂きたい のですが、、、 あるExcelのシート(1枚)を、所定のディレクトリに入って いるExcelファイル(数十ファイル)のシートの先頭に全て挿入して いくといったものなのですが、VBAで出来ますか？？ 出来なくとも、近い感じの処理または、参考文献などあったら 教えて下さい。 宜しくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- エクセル IF について！
UserForm上にTextBoxとコマンドボタンがあり、TextBoxに数字を入れコマンドボタンをクリックすると'A.xlsをセットしてAシートの使用行を格納し検索して他のTextBoxにも反映させていくやり方でマクロを記述しています。そこでTextBoxに入力した数字がない場合はMsgBox”この数字はありません”という形にしたいのですが・・・どのようにすれば良いのか教えて下さい。 If Me.Controls("TextBox1" & Cnt).Value = "" Then MsgBox "呼出したい数字を入力して下さい" Exit Sub End If Set wbMyBook = Workbooks(ThisWorkbook.Name) If MsgBox("以前の記録を呼び戻しますか？", vbOKCancel) = vbOK Then Application.ScreenUpdating = False strMyBookPath = ThisWorkbook.Path If Dir(strMyBookPath & "\" & k1Name) <> "" Then 'あった場合そのブックが空いているか確認する。 flag = False For Each wb In Workbooks '開いていればTrue,開いていなければFalseを設定 If wb.Name = k1Name Then flag = True Exit For End If Next wb 'ブックが開いていなかった場合、ブックを開ける。 If flag = False Then Workbooks.Open strMyBookPath & "\" & k1Name End If Set k1 = Workbooks(k1Name) Set SH1 = k1.Worksheets("Sheet1") Else MsgBox WDName & "が存在していません。設置してください。", vbExclamation, "確認してください" Exit Sub End If lngYcnt_K = SH1.UsedRange.Rows.Count flag = False For lng = 1 To lngYcnt_K If CStr(TextBox1.Text) = CStr(SH1.Cells(lng, 1)) Then flag = True lngNumber = lng Exit For End If Next lng If flag = True Then TextBox3.Value = SH1.Cells(lngNumber, 2) '氏名 End If If SH1.Cells(lngNumber, 3) = "男" Then OptionButton1.Value = True ElseIf SH1.Cells(lngNumber, 3) = "女" Then OptionButton2.Value = True Else OptionButton1.Value = True OptionButton2.Value = False End If MsgBox " 記録を呼び戻しました" Else MsgBox"確認必要"⇒ここにもし数字が違っていたら表示させたいのですが・・・ End If MsgBox " 以前に記録しましたか？" Application.DisplayAlerts = False k1.Close saveChanges:=True Application.DisplayAlerts = True '-------------------------------------------------------------------------- '画面更新ON Application.ScreenUpdating = False End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBAにて保存するとき
Private Sub Workbook_BeforeClose(Cancel As Boolean) If MsgBox("エクセルを終了してもよろしいですか？", vbYesNo) = vbNo Then Cancel = True Exit Sub End If Application.DisplayAlerts = False Application.Quit End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "そのボタンでは保存できません。" & vbCrLf & _ "雛形は残しておきましょう" & vbCrLf & _ "" & vbCrLf & _ "ツールバーの「マクロなし出力」から保存できます。" Cancel = True End Sub という二つのマクロをThisworkbookにいれてあるんですが、 この二つを有効（今は2つ目を'でコメント状態にしてあるので保存可）にすると保存できなくて困っています。 二つを有効にした時はどのようにほぞんすればいいですか？
- 締切済み
- Visual Basic
お礼
早速の回答ありがとうございます 解決しました andでつないでいるため、なぜMsgboxだけが毎回表示されるのか分かりませんでした