| |
こんばんは。
再現できる記述をきちんとされたほうがよいですよ！！
>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と表示された
というご質問を受けたことがあります。
こんなコードになっていませんか？
|
|
ichinose
- 10/11/27(土) 2:11 -
