Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14861 / 76734

←次へ　｜　前へ→


	【67361】Re:変数を認識してくれません。

八家九僧陀 - 10/11/28(日) 0:55 -


	引用なし

	パスワード

▼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に次のコードを記述しています。

Public kiso As Currency

kiso = Val(Range(A1").Value)

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

変数宣言する記述箇所がおかしいのでしょうか？

ほんとにあせっています。どうか解決法をご教示ください。

2 hits

▼

【67348】変数を認識してくれません。 八家九僧陀 10/11/27(土) 1:03