Excel VBA質問箱 IV

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

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


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

16681 / 76738

←次へ　｜　前へ→


	【65521】Re:User_formの修復について（至急！！！）

Hirofumi - 10/6/2(水) 7:37 -


	引用なし

	パスワード

先ずは、単純な構文の間違いを直してからでは？

Public Sub データ表示(行数 As Integer)

　　Dim Cnt As Integer, vntData As Variant
　　
　　vntData = Worksheets("支給台帳").Range("A1").CurrentRegion.Rows(行数).Value
　　
　　For Cnt = 1 To 96 Step 1
'　　　　TBL(Cnt) = vntData(1, Cnt) '←エラーメッセージのとき、ここが黄色に反転
　　　　TBL(Cnt).Value = vntData(1, Cnt) '←エラーメッセージのとき、ここが黄色に反転
　　Next
　　
　　Textレコード.Value = Spin移動.Value - 1 & "/" & レコード数取得
　　
End Sub

Control型の変数に値を代入している？

'//////////////////////////　ココから新規追加(質問箱から盗用)
Private Sub Combo社員ID_Change()

　　Application.ScreenUpdating = False
　　
　　With Me.Combo社員ID
'　　　　if .ListIndex <　then Exit Sub
　　　　If .ListIndex < 0 Then
　　　　　　Exit Sub
　　　　End If
　　　　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
　　Set r = Nothing
　　
　　Application.ScreenUpdating = True
　　
End Sub

0 hits

▼

【65516】User_formの修復について（至急！！！） 八家九僧陀 10/6/1(火) 17:52