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 質問
【67350】Re:変数を認識してくれません。 Abyss 10/11/27(土) 1:44 発言
【67351】Re:変数を認識してくれません。 ichinose 10/11/27(土) 2:11 発言
【67361】Re:変数を認識してくれません。 八家九僧陀 10/11/28(日) 0:55 発言
【67362】Re:変数を認識してくれません。 八家九僧陀 10/11/28(日) 0:58 発言
【67363】Re:変数を認識してくれません。 SK63 10/11/28(日) 1:57 発言
【67364】Re:変数を認識してくれません。 SK63 10/11/28(日) 2:00 発言
【67366】Re:変数を認識してくれません。 八家九僧陀 10/11/28(日) 11:19 回答

14861 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free