|
▼ichinose さん:
>こんばんは。
>再現できる記述をきちんとされたほうがよいですよ!!
>
>
>>Public kiso As Currency
>↑これは、どこに記述しているのですか?
>
>
>>kiso = Val(Range(A1").Value)
>↑これは、どこに記述しているのですか?
>少なくともこれだけでは、作動しませんよね?
>
すみません。
ご指摘のコードは以下の部分に記述しています。
UserForm(コード)Moduleの
最上部のDeclarations部に
Public kiso As Currency
Public kasan_1 As Currency
・
・
・
Private Sub UserForm_Initialize()
kiso = Val(Range("A1").Value)
kasan_1 = Val(Range("A2").Value)
・
・
・
以下同じUserForm Moduleに次のコードを記述しています。
Private Sub 基礎控除_1算出()
Dim huyou_1 As Currency
If Text氏名_1.Value = "" Then
huyou_1 = 0
Else
huyou_1 = kiso
End If
Text計.Value = huyou_1 + syougai_1 + tokutei_1
End Sub
変数宣言する記述箇所がおかしいのでしょうか?
ほんとにあせっています。どうか解決法をご教示ください。
|
|