Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


18911 / 76738 ←次へ | 前へ→

【63265】Re:1.2.3.4.という文字列があればOK
発言  ichinose  - 09/10/21(水) 6:31 -

引用なし
パスワード
   おはようございます。

>文で書いてみたんですが、”あ” しか検索できなくて。。
>”あ”の後に、”あ”or”い”or”う”・・・
>と記入すると型が違いますと出ます。

まず、きちんとプロシジャー名も記述してください。
大勢の方が るかさんの投稿をみています。
例えば、るかさんよりVBAの知識がない方がそのままコピーしても
何だよ!!これだって動かないじゃん ってことになってしまいます。
御自分の抱えている問題を忠実に再現する投稿を心がけてください。
そうすることがきっと、 るかさんVBA上達に役に立ちますから・・・

Sub test()
  Dim i As Long
  Dim myRng As Range
  Set myRng = Range("A1:A5")
  For i = 1 To 5
    If Range("A" & i).Value = "あ" Or "い" Or "う" Or "え" Then
      MsgBox "あいるよ"
    Else
      MsgBox "あいないよ"
    End If
  Next
End Sub

このようなコードを実行すると、

If Range("A" & i).Value = "あ" Or "い" Or "う" Or "え" Then

の行で「型が一致しません」というエラーメッセージが出る ということですね?

Sub test1()
  Dim i As Long
  For i = 1 To 5
    If Range("A" & i).Value = "あ" Or _
      Range("A" & i).Value = "い" Or _
      Range("A" & i).Value = "う" Or _
      Range("A" & i).Value = "え" Then
      MsgBox Range("A" & i).Address & " には「あ」か「い」か「う」か「え」がいるよ"
    Else
      MsgBox Range("A" & i).Address & " には「あ」も「い」も「う」も「え」もいないよ"
    End If
  Next
End Sub

Orは、上記のように"あ"の比較と同じような 式を記述し、Orでつなげなければ
なりません。
私は、エラーの原因だけ言及しました。


>Q&Aサロンはマルチポストを明示的に禁じています。
>http://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=128199&rev=0

マルチポストに関しては、これは規則ですから仕方ありません。
守ってくださいね!!

リンク先に色々ともっと効率的なコードの投稿がありますから、
最終修正案は、リンク先のコードを参考にしてください。

そして、リンク先で るかさんが学んだ結果(成果)をこちらにも教えてください。
0 hits

【63250】1.2.3.4.という文字列があればOK るか 09/10/19(月) 23:29 質問
【63251】Re:1.2.3.4.という文字列があればOK ichinose 09/10/20(火) 6:31 発言
【63261】Re:1.2.3.4.という文字列があればOK るか 09/10/20(火) 23:14 回答
【63262】Re:1.2.3.4.という文字列があればOK 独覚 09/10/20(火) 23:24 発言
【63265】Re:1.2.3.4.という文字列があればOK ichinose 09/10/21(水) 6:31 発言
【63271】Re:1.2.3.4.という文字列があればOK るか 09/10/21(水) 20:50 回答
【63276】Re:1.2.3.4.という文字列があればOK ichinose 09/10/22(木) 7:20 発言

18911 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free