エクセルのFIND関数について

エクセルのFIND関数は、特定の文字列が左から何文字目にあるかを求める関数であると理解していますが、右から何文字目にあるかを検索出来ないものでしょうか？
なお、検索する文字列は数値以外であり右より一番右にある文字の右からの文字数を検索したいです。

　対象文字列　　　　右から数値以外の一番最初の文字の文字数
３０％１　　　　　　　→　　　２
２００ｍｇ２０　　　　→　　　３
２．５ｍｇ１　　　　　→　　　２
１　　　　　　　　　　→　　　０
２５％１　　　　　　　→　　　２
０．５ｇ１キット（生理食塩液１００
　　　　　　　　　　　→　　　４
１０１０　　　　　　　→　　　０

No.3 ベストアンサー 回答者： ja7awu 回答日時： 2004/07/18 01:08

ユーザー定義関数ですが、こんな感じで如何ですか。

書式：FindRevStr(文字列式)

使用例： =FindRevStr("２００ｍｇ２０") 　　---> 3
　　　　セルA1に"２．５ｍｇ１"　が入力されているとき、=FindRevStr(A1)　---> 2

標準モジュールに下記コードを貼り付けます。

Function FindRevStr(S As String) As Integer
Dim N As Integer
Dim P As Integer
For N = Len(S) To 1 Step -1
　　P = P + 1
　　If Not IsNumeric(Mid(StrConv(S, vbNarrow), N, 1)) Then Exit For
Next N
If N = 0 Then P = 0
FindRevStr = P
End Function

この回答へのお礼

有り難う御座いました。
出来ました。

お礼日時：2004/07/18 12:20

No.4 回答者： imogasi 回答日時： 2004/07/18 09:07

ユーザー定義関数ですが

数字を取り除き（Replace),最右文字を取る(Right)で
文字を掴めます。
Function rchp(a)
s = a
n = Array("0", "1", "2", "3", "4", "5", _
"6", "7", "8", "9", "０", "１", _
"２", "３", "４", "５", "６", "７", "８", "９")
For i = 0 To 19
s = Replace(s, n(i), "")
Next i
If s = "" Then
rchp = 0
Else
x = Right(s, 1)
rchp = Len(a) - InStr(1, a, x) + 1
End If
End Function
標準モジュールに貼りつけ、シートでＡ列にデータがあるとき、例えばＢ列に=RCHP(A1)と入れます。
（テスト例）最右文字と右からの何文字数目
12as34s3
as4s2
a３b12267g５７fDＨ５６Ｈ3
３０％１％2
２００ｍｇ２０ｇ3
２．５ｍｇ１ｇ2
１0
２５％１％2
０．５ｇ１キット（生理食塩液１００液4
１０１０0

この回答へのお礼

有り難う御座いました。
出来ました。

お礼日時：2004/07/18 12:21

No.2 回答者： diashun 回答日時： 2004/07/18 01:07

diashun です。

ユーザー定義関数として作ってみました。
以下のコードを使用するエクセルのVBAエディタで、標準モジュール（Module1）にコピーしてください。↓
''ここから************************
Option Explicit

Function Get_RevStr(ByRef rCell As Range) As Integer

Dim varSerch
Dim varRev
Dim i As Integer
Dim iKeta As Integer

varSerch = Range(rCell.Address).Value
varRev = StrReverse(varSerch)
iKeta = Len(varRev)
For i = 1 To iKeta
Select Case Mid(varRev, i, 1)
Case 0 To 9
Case Else
Get_RevStr = i
Exit For
End Select
Next i

End Function
''ここまで************************
このあと、結果を表示したいセルを選択し、関数でユーザー定義関数「Get_RevStr()」を選択すると、検索対象のセルを指定するダイアログが表示されるので、セルを指定して実行してください。

この回答へのお礼

有り難う御座いました。
出来ました。

お礼日時：2004/07/18 12:19

No.1 回答者： diashun 回答日時： 2004/07/17 23:20

diashun です。

ご希望の検索条件は
１．文字列の右側からの検索
２．数値は無視する
上記条件から考えると、Excelの既成関数では該当するものはありません。
ただしマクロを使えば「StrReverse」関数で実現できます。
マクロをご理解いただけるなら、補足にてお知らせ下さい。

この回答への補足

早速の回答有り難う御座いました。

「StrReverse」は分かりませんが、多少、マクロを作成したことがあります。
また、ユーザー定義関数で出来ますかね？

補足日時：2004/07/17 23:34