変数に「.」が含まれる場合...

質問

例えば・・・
Dim ABC As String　'変数ABC の型宣言
ABC = "1.0"
DEF = "522"
…とまぁ、こんな感じの時。(文法とか、いいかげん)
変数ABCに「.」が含まれている時といない時に
特定の動作をさせたいんです。

変数ABC「.」が含まれていない時
ABC = DEF
「.」が含まれている時
「.」より右の数字を消して
ABC & DEF

Select Case、もしくはIF文を使って動作させる予定です

変数は、3文字限定です。それと、「.」の位置は
左か真ん中になることもあります。
例）ABC = .12
ABC = 0.1
　　ABC = 012

…なんとなく、Format関数を使ったら
できそうな気がするんですが…。

回答No.2

BLUEPIXY · ベストアンサー

ppos = InStr(ABC, ".")
If ppos = 0 Then
ABC = DEF
Else
ABC = Left(ABC, ppos - 1) & DEF
End If

お礼

さっそく、お答えありがとうございます。
実習機が違うパソコンなので、ちょっと試してきます。
少々、お待ち下さい...m(_ _)m

補足

ありがとうございます。しっかりできました(^o^)/
InStr関数の存在について、よく理解できました。
本当にありがとうございます。

回答No.4

asaku_woo

嘘書きました。

NO3の回答。

clngをcdblに代えてください。

お礼

ん・・？
cdblでしたか。僕が、まだ調べてないのが、
バレてしまいました(苦笑い

回答No.3

asaku_woo

補足の回答（例）

if not isnumeric(ABC) then
　　　　'数でない
　　　　exit sub
else
　　　　if clng(ABC)<>fix(clng(ABC)) then
　　　　　　　　'整数でない
　　　　　　　　exit sub
　　　　end if
end if

お礼

おぉ、IsNumeric関数でしたか。
IsNumeric関数は知っていたんですが、
not を付加して使えるとは、驚きです。
世の中、広いな～(^^
…と感じる今日この頃。

clngについては、勉強しようと思います。
ありがとうございました。m(_ _)m

回答No.1

vall

もっと詳しくお願いします

補足

あっ・・整数かどうか調べる関数も教えてくれると
嬉しいです。