|
▼Hirofumi さん:
ご回答ありがとうございます。
>もし、変数bookの値が数値なら("01"→1、"02"→2)、
>其の数値+4が変数Noの値に成れば善いのでは?
>VBAで、文字列を数値に評価する関数は、Val関数、Clng関数等が有ります
>Val関数は、空白の文字列、スペースの文字列、数字以外の文字列の場合
>0を返すので、この様な場合エラー処理をしなくても善い可能性が有るので
>Val関数を使うと善いでしょう?
>また、変数bookの範囲は、"01"〜"30"なのでそれ以外の場合、Subを抜けます
> book = Val(Range("W137").Value)
> If 1 <= book And book <= 30 Then
> No = book + 4
> Else
> Exit Sub
> End If
Val関数は、目から鱗が落ちる思いで感動です。
おかげですっきりした内容になりました。
実際には、01,02の様に数字だけではないのですが
セルにVLOOK関数を使用して、01,02の様に値が返る様にして
仕上げました。
応用すれば、うまくできるものなんですね。
ありがとうございました。
また、煮詰まりましたら、投稿すると思いますので
その際は、よろしくお願いいたします。
|
|