Excel VBA質問箱 IV

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

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


16682 / 76738 ←次へ | 前へ→

【65520】Re:User_formの修復について(至急!!!)
質問  八家九僧陀  - 10/6/2(水) 0:32 -

引用なし
パスワード
   ▼247b さん:yukiさん、よろずやさん、ありがとうございます。

>Dim TBL(1 To 90) As Control と定義してあるのに 96 迄回している

すみません。手書きでしたので単なる誤記で、「1 to 96」です。


>
>>'////////////////////////// ココから新規追加(質問箱から盗用)
>>Private sub Combo社員ID_Change()
>>Application.screenupdating = False
>>  With Me.Combo社員ID
>>  if .ListIndex < then Exit Sub
>>  Combo社員ID.value = .List(.ListIndex, 0)
>>  Text氏名.value = .List(.ListIndex, 1)
>>  Text所属.value = .List(.ListIndex, 2)
>>   ・
>>   ・
>>   ・
>>  Text標準報酬月額.value = .List(.ListIndex, 22)
>>  Text市県民税.value = .List(.ListIndex, 23)
>>End With
>>set r = Noting
>>Application.screenupdating = True
>>End Sub
>
>エラーの内容と修正箇所から推測するに、上記のテキストボックスのValueプロパティへの値設定箇所のいずれかで問題が発生していることが考えられます。

この部分を含むCombo社員ID関連のコード部分に「’」をつけてコメント扱い(無効)にすると、いままでのどおりの動きをします。

>・考えられることとしては、Combo社員ID.Rowsourceに指定している範囲と、上記にある、.List(.ListIndex,23)のような記述で指定している範囲が合致しているかどうか再確認してください。

Combo社員ID.Rowsourceは、別bookの給与マスター(A列〜W列=23列、80行程度(毎月若干変動)のリスト)をrange("A1").currentregionでselectして、このbookのSheets("仮マスター").range("A1")にcopyして,Dim r as rangeとしています。


>ColumnCountプロパティに2を指定しているのに、Listプロパティで列を23まで指定しているのは合致しないように思うんですが。どうなんでしょう。

Combo社員IDには、「社員ID」と「氏名」の2列を表示して選択させるようにしています。その選択した行の各列の値をListプロパティで各textboxに代入しようとしています。

>・エラーメッセージが表示されたときに「デバッグ」ボタンを押して、どのステップで止まっているか確認してみてください。

TBL(Cnt) = vntData(1,Cnt) ←エラーメッセージのとき、ここが黄色に反転しています。

>全体的に無駄が多いです。
>そのため、ソースが異常に大きくなっているのでは。
>1つのモジュールに書けるコードの量には制限があります。

極力処理が重たくならない、処理速度も速くしたいと思っています。
具体的にどの部分、コードが、「無駄」なのかご教示願いますか?

切羽詰っています。何とかお助けを〜〜〜〜〜〜!!
comboboxからのListプロパティでの取得方法のほかに、よい方法はないでしょうか?
0 hits

【65516】User_formの修復について(至急!!!) 八家九僧陀 10/6/1(火) 17:52 質問
【65517】Re:User_formの修復について(至急!!!) Yuki 10/6/1(火) 19:20 発言
【65518】Re:User_formの修復について(至急!!!) よろずや 10/6/1(火) 19:43 回答
【65519】Re:User_formの修復について(至急!!!) 247b 10/6/1(火) 21:08 発言
【65520】Re:User_formの修復について(至急!!!) 八家九僧陀 10/6/2(水) 0:32 質問
【65521】Re:User_formの修復について(至急!!!) Hirofumi 10/6/2(水) 7:37 発言
【65522】Re:User_formの修復について(至急!!!) 247b 10/6/2(水) 9:14 発言
【65523】Re:User_formの修復について(至急!!!) 247b 10/6/2(水) 9:38 発言
【65524】Re:User_formの修復について(至急!!!) 八家九僧陀 10/6/2(水) 13:12 質問
【65525】Re:User_formの修復について(至急!!!) 247b 10/6/2(水) 14:41 発言
【65528】Re:User_formの修復について(至急!!!) 八家九僧陀 10/6/2(水) 15:47 質問
【65533】Re:User_formの修復について(至急!!!) 247b 10/6/2(水) 16:53 発言
【65535】Re:User_formの修復について(至急!!!) 八家九僧陀 10/6/2(水) 19:08 質問
【65536】Re:User_formの修復について(至急!!!) 247b 10/6/2(水) 20:50 発言
【65537】Re:User_formの修復について(至急!!!) 八家九僧陀 10/6/2(水) 22:06 質問
【65538】Re:User_formの修復について(至急!!!) 247b 10/6/2(水) 22:39 発言
【65539】Re:User_formの修復について(至急!!!) 247b 10/6/2(水) 22:45 発言
【65540】Re:User_formの修復について(至急!!!) 八家九僧陀 10/6/2(水) 23:42 質問
【65541】Re:User_formの修復について(至急!!!) 247b 10/6/3(木) 0:19 発言

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