エクセルの学校


[[20050509202950]] 『Find メソッドで、大文字・小文字の区別無しは?』(キリキ) >>BOT

[ 初めての方へ | 一覧(最新更新順) |

|
| 全文検索 | 過去ログ | HOME ]

 

『Find メソッドで、大文字・小文字の区別無しは?』(キリキ)
 いつもお世話になっております。

 単語検索で、Like 演算子を使用しておりましたが、Find メソッドでやるには?
と、思い下記のようにしてみました。
内容は、本部から送ってくるリストから、“JAN”と名前がつくセル番地を探す
というものを作りたいのです。
  ※本部日報は様々な形式で、“JAN”の位置を特定する必要があります。
    検索しつつ、最後にある“JAN”を取得したいのです。
そこで、困った問題が発生!!
Find メソッドでは、大文字・小文字の区別をなくすことは出来ないのでしょうか?
もしくは他のやり方が出来るのでしょうか?

 Find版
        Set JAN_Ad = .Range("A1", "L10").Find(what:="JAN")
        If J_No = "" Then
            MsgBox "JANコードが見つかりません": Exit Sub
        End If
            J_No = JAN_Ad.Address
            Do
                Set JAN_Ad = .Range("A1", "L10").FindNext(after:=JAN_Ad)
            Loop Until J_No = JAN_Ad.Address
        Set JAN_Ad = .Range("A1", "L10").FindPrevious(after:=JAN_Ad)
        J_No = JAN_Ad.Address

 Like 版 (Option Compare Text 付)
        r = .Range("C1").End(xlDown).Row
        c = .Cells(r, 2).End(xlToRight).Column

        Cells.RowHeight = 22

        If r <> 65536 And c <> 256 Then
            For r = 1 To r
                For c = 1 To c
                    If .Cells(r, c) Like "*JAN*" Then
                        J_No = .Cells(r, c).Address
                    End If
                Next c
            Next r
        End If
        If J_No = "" Then
            MsgBox "JANコードが見つかりません": Exit Sub
        End If


 キリキさん、こんばんは。FINDのヘルプに下記がありましたが、
 これとは違いますか? でも規定値が False ってことは、省略すれば
 区別しないってことですね。う〜ん、違うかも?
(純丸)(o^-')b

 引数 MatchCase    省略可能です。バリアント型 (Variant) の値を使用します。
 大文字と小文字を区別するには、True を指定します。既定値は False です。


 ありゃりゃ、、、
 もう一度、出直してきます
 (キリキ)(;⌒o⌒)b

コメント:

[ 一覧(最新更新順) |

]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.