|
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>商品マスタなのですが(A,B列) 全角・半角(カタカナ・英字・数字)
>>は条件一致として見なすこと出来ないでしょうか。
>
>Findメソッドのヘルプを確認していただきたいのですが、
>引数MatchByteに「半角角と全角を区別するには、True を指定します。」
>
>具体的には、以下のような感じです。
> Set c = rngFind.Find(Target.Offset(, -1).Value, LookIn:=xlValues, LookAt:=xlWhole, MatchByte:=True)
はいわかりました。ありがとうございます。
それと下記部分"A1"は"L1"でいいんですよね
Sub Main2()
Dim Rtn As String
Do
Rtn = InputBox("1:一般 2:同業 3:特別のいずれかを入力してください")
If Rtn = "" Then Exit Sub
If Rtn >= "1" And Rtn <= "3" Then
Range("A1").Value = Choose(Val(Rtn), "一般", "同業", "特別")
~~~~~~~~~~~
Exit Do
Else
MsgBox "単価種別を入力しなおしてください。"
End If
Loop
End Sub
|
|