|
こんばんは。
再現できる記述をきちんとされたほうがよいですよ!!
>Public kiso As Currency
↑これは、どこに記述しているのですか?
>kiso = Val(Range(A1").Value)
↑これは、どこに記述しているのですか?
少なくともこれだけでは、作動しませんよね?
同じような現象になる一例です。
新規ブックにて試してください。
標準モジュール(Module1)に
'=======================================================
Option Explicit
Public kiso As Currency
'=======================================================
Sub test1()
kiso = 380000
End Sub
別の標準モジュール(module2)に
Option Explicit
Public kiso As Currency
'========================================================
Sub test2()
MsgBox kiso
End Sub
test1を実行後、
test2を実行してください。
以前、上記のコードでtest1、test2と実行したら、
test2で380000ではなく、0と表示された
というご質問を受けたことがあります。
こんなコードになっていませんか?
|
|