- ベストアンサー
ワイルドカード 「アルファベットじゃないならば」
Sub Sample01() Dim s As String s = "b" If Not s = "[a-z]" Then Debug.Print "アルファベットじゃないです" End If End Sub この場合、sは[a-z]の中にあるのに、「アルファベットじゃないです」が表示されます。 s = "あ"にしたら、「アルファベットじゃないです」が表示され、納得できるのですが bはアルファベットなのに、なぜ認識されないのでしょうか？
- lqsfnienvzrsg
- お礼率100% (38/38)
- オフィス系ソフト
- 回答数1
- ありがとう数15
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- ifステートメント notと!は同じ意味ですか？
VBAのifステートメントで、notと!は同じ意味ですか？ 「a」で始まらない。 と言う意味で、下記のコードを作ったのですが、どちらも思い通りの結果が得られます。 If "あabc" Like "[!a-z]*" Then Debug.Print "OK" End If If Not "あabc" Like "[a-z]*" Then Debug.Print "OK" End If End Sub ネットからのサンプルをコピペしたので、いまいち理解できてないのですが notと!は同じ意味ですか？
- ベストアンサー
- オフィス系ソフト
- 変数の中身がアルファベットだけなのか取得するには
変数がアルファベットだけか取得するには？ Sub test() Dim mystr As String mystr = "abc" If ？？？ Then MsgBox "アルファベットだけです" End If End Sub のように、変数の中身がアルファベットだけなのか取得するにはどうすればいいでしょうか？ ひらがな、カタカナ、漢字、記号を含んでいるかどうかを評価したいです。
- ベストアンサー
- Excel（エクセル）
- ifステートメント 大文字も小文字も区別なく
Sub test() Dim moji As String moji = "a" If moji = "A" Then MsgBox "Aかaです" End If End Sub これだと、変数が小文字のaだからmsgboxが表示されません。 小文字も大文字も区別なく認識させるにはどうすればいいでしょうか？ バイナリモードになってるようです。 Replace関数の場合は、vbTextCompareを付ければ Sub Sample() Dim moji As String moji = "ａ" Debug.Print Replace(moji, "A", "b", , , vbTextCompare) End Sub このように大文字小文字区別なく置換できますが このような事をifステートメントでやる方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- 2010 ｅｘｃｅｌ マクロ 記号の変化
エラー発生で強制終了になってしまいます。2007年のｅｘｃｅｌで作成したものですが、2010だと強制終了になってしまいます。 内容は□をダブルクリックすると■になるように作っています。 記述は2003年からのマクロ記述なので、変化が必要なのでしょうか？ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'セルをダブルクリックすると、・→○→△→×→・と変更する。 Dim S1 As String Dim S2 As String Dim S01 As String Dim S02 As String Dim S03 As String Dim S04 As String S1 = "□" S2 = "■" S01 = "・" S02 = "○" S03 = "△" S04 = "×" On Error GoTo ERR_12 sCheckXY S1, S2 sCheckX1234 S01, S02, S03, S04 sChangeXY S1, S2 Exit Sub ERR_12: End End Sub Sub sChangeXY(X As String, Y As String) '選択セルに□があれば■に変える Dim Str0 As String 'str1の左端 Dim Str1 As String 'strの右側更新 Dim Str2 As String 'strの左側更新 Dim Str20 As String 'strの左側一部保存 Dim L As Long Dim M As Long Dim N As Long Str1 = ActiveCell.Text L = Len(Str1) Debug.Print L If L = 0 Then End End If For N = 1 To L Debug.Print Str2 Str0 = Left(Str1, 1) If Str0 = X Or N = L Then If Str20 <> "" Then If N = L Then Str20 = Str20 + Str0 End If If MsgBox(Str20 & " はチェックしますか？", vbYesNo, "選択肢") = vbYes Then Str2 = Str2 + Replace(Str20, X, Y) Str20 = Str0 Else Str2 = Str2 + Replace(Str20, Y, X) Str20 = Str0 End If Else Str20 = Str0 End If Else Str20 = Str20 + Str0 End If Str1 = Right(Str1, L - N) Next N ActiveCell.Value = Str2 End Sub Sub sCheckXY(X As String, Y As String) '選択セルがXならY,YならXにチェックをかえる If ActiveCell.Text = X Then ActiveCell.Value = Y End ElseIf ActiveCell.Text = Y Then ActiveCell.Value = X End End If End Sub Sub sCheckX1234(X1 As String, X2 As String, X3 As String, X4 As String) '選択セルがXならY,YならXにチェックをかえる If ActiveCell.Text = X1 Then ActiveCell.Value = X2 End ElseIf ActiveCell.Text = X2 Then ActiveCell.Value = X3 End ElseIf ActiveCell.Text = X3 Then ActiveCell.Value = X4 End ElseIf ActiveCell.Text = X4 Then ActiveCell.Value = X1 End End If End Sub
- ベストアンサー
- その他MS Office製品
- エクセルｖｂａ 検索対象をシートではなく、ブック全
このコードでシート内に検索文字があるかどうかを取得できるのですが 検索対象をシートではなく、ブック全体にするには どうすればいいでしょうか？ Sub Sample() If Not Cells.Find(What:="test", LookAt:=xlPart) Is Nothing Then Debug.Print "あります" Else Debug.Print "ありません" End If End Sub
- ベストアンサー
- オフィス系ソフト
- myRange = Null
VBA Professional Office 2003の試験問題ですが http://vbae.odyssey-com.co.jp/study/sample_2003.html Sub Sample1() Dim myRange As Range On Error Resume Next '――(1) If myRange = Null Then '――(2) Debug.Print "OK" '――(3) Else Debug.Print "NO" '――(4) End If End Sub の(3)が実行されるのは、 myRange = Null が正しいからではなく、 (2)のIf myRange = Null Thenのコードが無視されたから 次のコードの(3)がたまたま実行されただけですか？ (2)をIf myRange <> Null Thenにしても ＯＫになりました。
- ベストアンサー
- その他MS Office製品
- アルファベットじゃないなら
初めまして。よろしくお願いします。 エクセル２０１０を使用しています。 例題としてＡ列に abc 123 あいう 一二三 という値が入っているのですが、”先頭文字（左から一文字目）がアルファベットじゃないのなら” という条件で条件分岐するにはどうすればいいでしょうか？ Sub もし() Dim MyRow As Long For MyRow = 1 To Cells(Rows.Count, "A").End(xlUp).Row If Left(Range("a" & MyRow), 1) <> "a" Then MsgBox "１文字目がアルファベットで始まっていません！" End If Next MyRow End Sub これでできるのですが、アルファベットは26個あるから、IFステートメントを２６個作るしかないのでしょうか？
- ベストアンサー
- オフィス系ソフト
- VBA null判定
Accessでテキストボックスの値をテーブルへ書き込むVBAを作成しているのですが、Null判定がうまくいきません。 ◎環境 ＯＳ：Windows7Pro Ｖａｒ：Ａｃｃｅｓｓ２０１０ ＤＢ：ＭｙＳＱＬ５．６ Private Sub cmdSubmit_Click() Dim Rst As DAO.Recordset Dim ErrT As String Set Rst = CurrentDb.OpenRecordset("m_plan", dbOpenDynaset) '各テキストボックス、Null判定 If IsNull(txtPid) Then MsgBox "プランID[" & txtPid & "]が未入力です" Call txtCrer Exit Sub End If If IsNull(txtPName) Then MsgBox "プラン名が未入力です" Call txtCrer Exit Sub End If If IsNull(txtPsdate) Then Me!txtPsdate = #01/01/2010# End If If IsNull(Me!txtPedate) Then Me!txtPedate = #01/01/2010# End If Debug.Print "プランID["; Me.txtPid & "]" Debug.Print "プラン名[" & Me!txtPName & "]" Debug.Print "開始日[" & Me!txtPsdate & "]" Debug.Print "終了日[" & Me!txtPedate & "]" ↑↑↑↑↑↑↑↑↑ ここで、Ｎｕｌｌ判定を行ってますが、データがあるにも関わらず、処理が続行されたり、Ｎｕｌｌ判定結果が起動するたびに変わります。 On Error GoTo err With Rst .MoveLast .AddNew .Fields("PlanID") = Me!txtPid .Fields("PlanName") = Me!txtPName .Fields("PlanSt") = CDate(Me!txtPsdate) .Fields("PlanEn") = CDate(Me!txtPedate) .Fields("P_Remaks") = Me!txtPbikou .Update End With Rst.Close Set Rst = Nothing err: MsgBox "ＤＢエラー" Debug.Print Rst.Type Debug.Print err.Description Call txtCrer End Sub ただし、下記判定だけのボタンとプロシージャーでは、正常に判定されます。 判定だけの、プロシージャー 'Null判定テスト Private Sub cmdtest_Click() If IsNull(txtPid) Then Debug.Print "[" & txtPid & "]" & "Nullです。" Else Debug.Print "[" & txtPid & "]" & "Not Nullです。" End If If IsNull(txtPName) Then Debug.Print "[" & txtPName & "]" & "Nullです。" Else Debug.Print "[" & txtPName & "]" & "Not Nullです。" End If If IsNull(txtPsdate) Then Debug.Print "[" & txtPsdate & "]" & "Nullです。" Else Debug.Print "[" & txtPsdate & "]" & "Not Nullです。" End If Debug.Print "===============================" End Sub どこが間違っているかまったくわかりません、アドバイスを頂けましたら幸いです。
- ベストアンサー
- その他(データベース)
- 文字列の最後が空白なら削除する
Sub test() Dim mystr As String mystr = "abc " If Right(mystr, 1) = " " Then Debug.Print Left(mystr, Len(mystr) - 1) End If End Sub これで、最後の１文字が空白なら削除できるのですが、 "abc "のように、最後に空白が２つある場合が対応できないのですが そういう場合でも対応できるコードはありますか？
- ベストアンサー
- オフィス系ソフト
- テキストボックスかコンボボックスを条件としたい
フォーム上のコントロールを取得する時に、 「テキストボックスかコンボボックスなら」としたいのですが、ＶＢＡコードがわかりません。 ************************************************************ Sub Sample() Dim myCtrl As Control Dim myForm As String myForm = "フォーム1" For Each myCtrl In Forms(myForm).Controls If myCtrlのタイプがテキストボックス Or コンボボックス Then Debug.Print myCtrl.Name End If Next End Sub ************************************************************ に修正していただけますか？ ControlType プロパティを使うと思うのですが、使い方がわかりません。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 現在PCからプリンターにUSB接続して印刷していますが、今後コードレスでの印刷、携帯からの印刷を行いたいです。自宅はポケットワイファイで、できればネットを経由せず印刷したいですが、方法が知りたいです。
- 携帯にもアプリを入れましたが、プリンター本体の無線接続ができないため、断念しました。PCにもセットアップツールなどをダウンロードしましたが、すでにセットアップ済みと表示されます。
- パソコンはWindows10、スマートフォンはAndroidです。プリンターはUSBケーブルで接続しています。関連するソフトやアプリはありません。
お礼
回答頂きありがとうございました。