Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6659 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43949】ワイルドカードの使い方 ToShiYo 06/10/30(月) 21:08 質問[未読]
【43950】Re:ワイルドカードの使い方 りん 06/10/30(月) 21:12 回答[未読]
【43953】Re:ワイルドカードの使い方 maverick 06/10/30(月) 22:05 回答[未読]
【43954】Re:ワイルドカードの使い方 ToShiYo 06/10/30(月) 22:25 お礼[未読]
【43949】ワイルドカードの使い方
質問  ToShiYo  - 06/10/30(月) 21:08 -
引用なし
パスワード
   ワイルドカード「＊」の使い方を教えてください。
数字の一桁目が「７」の数字をピックアップしたいのですが･･･
ワイルドカードを使っての表現はどのようにすると良いのでしょうか。
７、１７、２７・・・・・１０７等の一桁目が「７」の数字を
検索したいのですが、うまく行きません。
コードのチェックをよろしくお願いします。

Dim R As Range
Dim MyR As Range
Set MyR = Range("A1", Range("A65536").End(xlUp))
For Each R In MyR
If R.Value = "*" & 7 Then
　R.Interior.ColorIndex = 34
End If
Next
【43950】Re:ワイルドカードの使い方
回答  りん E-MAIL  - 06/10/30(月) 21:12 -
引用なし
パスワード
   ToShiYo さん、こんばんわ。
>ワイルドカード「＊」の使い方を教えてください。
今回の内容には不要そうなので省略します。

>数字の一桁目が「７」の数字をピックアップしたいのですが･･･
>ワイルドカードを使っての表現はどのようにすると良いのでしょうか。
>７、１７、２７・・・・・１０７等の一桁目が「７」の数字を
>検索したいのですが、うまく行きません。

>Dim R As Range
>Dim MyR As Range
>Set MyR = Range("A1", Range("A65536").End(xlUp))
>For Each R In MyR
'セルRの値が数値限定ですが、10で割ると余が７
If R.Value mod 10 =　7 Then
>　R.Interior.ColorIndex = 34
>End If
>Next

文字列ならRight(r.Value,1)=7と、右１文字で判定します。
【43953】Re:ワイルドカードの使い方
回答  maverick  - 06/10/30(月) 22:05 -
引用なし
パスワード
   >If R.Value = "*" & 7 Then
↓
If R.Value Like "*" & 7 Then
【43954】Re:ワイルドカードの使い方
お礼  ToShiYo  - 06/10/30(月) 22:25 -
引用なし
パスワード
   ▼りんさん maverick さん：

早速ご返事ありがとうございました。
勉強になりました。早速活用させていただきます。
これからもよろしくご指導お願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6659 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free