|
先ずは、単純な構文の間違いを直してからでは?
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
|
|