[[20090321231136]]　『テキストの頭４文字が半角数字であるか？』（shut）　ページの最後に飛ぶ

『テキストの頭４文字が半角数字であるか？』（shut）

 txt_datと言う変数にテキストが入っていますが、その先頭４文字が半角
 の数字であるかを判定したいのですが、どんなマクロで可能でしょうか？
 0011機器名称　true
 12345部品記号 false
 99個別型式番号 false
 といった感じなのですが。

  =LEFT(A1,4)=LEFTB(A1,4)

  ではいかがですか？

    (kanabun)

   すみません、↑かんちがいしてました。セルではなく、VBAの変数でしたか？

  VBAですと、こんな風かな？

  MsgBox LenB(StrConv(Left$(txt_dat, 4), vbFromUnicode)) = 4

   (kanabun)

 こんにちは。かみちゃん　です。

 横から失礼します。

 > 先頭４文字が半角の数字であるかを判定したい

 12345部品記号 false
 のように、先頭4文字だけ見れば、True だが、先頭5文字にしても半角数字になるので、False という判定にしたいのですよね？

 (かみちゃん)
 2009-03-21 23:56

 こんにちは。かみちゃん　です。

 ▼kanabunさん

 衝突した上、指摘めいたコメントになりますが、

 > VBAですと、こんな風かな？

 txt_dat = "12345部品記号"
 の場合、
 MsgBox LenB(StrConv(Left$(txt_dat, 4), vbFromUnicode)) = 4
 では、Trueになります。
 質問者のshutさんは、Falseにしたいようですが？

 また、
 >> 半角の数字であるかを判定したい
 とのことですので、仮に

 txt_dat = "A011機器名称"
 だった場合は、Falseにならないといけないのではないでしょうか？

 (かみちゃん)
 2009-03-22 00:01

 ごめんなさい。

 > 仮に
 > txt_dat = "A011機器名称"
 > だった場合は、Falseにならないといけないのではないでしょうか？

 >(かみちゃん)

  おっしゃるとおりですね m(__)m

  txt_dat = "12345部品記号"
  MsgBox txt_dat Like "####[!0-9]*"   'False

  とかですかね？
     (kanabun＠不調)

 こんにちは。かみちゃん　です。

 > MsgBox txt_dat Like "####[!0-9]*"   'False

 それ、スマートでいい方法ですね。勉強になります。

 > (kanabun＠不調)

 大丈夫ですか？ご自愛ください。

 (かみちゃん)
 2009-03-22 00:13

お礼大変遅くなりました。ありがとうございました。（shut）

コメント返信：