| |
▼RIE さん：
質問に対する回答ではないのですがバーコードをスキャンした値とあるので
逐次端末で読み取っていると思うのですが、この読み取った数値をEXCELに
記述するところでチェックするのが良いのではないでしょうか？そうすれば
範囲とか気にしなくて良い（覚えたほうが便利ですけどね）ですし、一通り
読み取った後に修正とかしなくて済むと思います。
読み取り側が改造できないというのでしたら、保存側のシートに以下のコード
を組み込めばどうでしょうか。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Len(Target.Value) = 13 Then
MsgBox "13桁だよ"
End If
End If
End Sub
>いつも勉強させていただいています。
>わたしはマクロを覚えたての初心者です。
>
>A列、B列に異なる情報のバーコードをスキャンした値が入っていって、C列、D列にLEN関数を入れ、桁数を表示しています。
>A列、B列のデータにテレコが起きないようにです。
>A列のデータが13桁、B列のデータが10桁です。
>
>ワークシートクラスのマクロに、C列の値が13だったら、エラーのメッセージボックスを表示させるマクロを作りたいのですが、ご教示できませんでしょうか。
>
>現在、わたしの知識を動員し下記のように書いて、作動しません。
>
>有識者の方、ご返答お願いできますでしょうか。
>
>
>Private Sub Worksheet_ACTIVE()
>
>Dim x As String
>x = Range("C：C")
>If x <> "13" Then
> MsgBox ("えらー ")
> Else
>End If
>
>End Sub
|
|
SS
- 10/9/18(土) 18:55 -
