|
お世話になります
二点ご質問お願いいたします
1.
Worksheets("新築工事台帳")の行データをユーザーフォーム上のスピンボタンでTextBox5に表示したいのですがうまくいきません
-1/12・・・とマイナスになってしまうのですが、わからなくなってしまいました
2.データーを表示させるための記述がわかりません
For Cnt = 1 To 2の先です・・・
上記、二点 分かりにくい説明と思いますがよろしくお願い申し上げます
Private Sub UserForm_initialize()
ComboBox2.RowSource = "Sheet1!B1:B12"
SpinButton1.Max = レコード数取得 + 1
Set TBL(2) = TextBox6
Set データ範囲 = Worksheets("新築工事台帳").Range("A1").CurrentRegion
If データ範囲.Rows.Count = 1 Then
Else
データ表示 (2)
End If
Calendar1.Value = Date
End Sub
Public Function レコード数取得() As Integer
レコード数取得 = Worksheets("新築工事台帳").Range("A1").CurrentRegion.Rows.Count - 1
End Function
Public Sub データ表示(行数 As Integer)
Dim Cnt As Integer
For Cnt = 1 To 2 'ここから下がわかりません
TBL(Cnt).Value = データ範囲.Cells(行数, Cnt).Value
TextBox5.Value = SpinButton1.Value - 1 & "/" & レコード数取得
End Sub
Private Sub SpinButton1_Change()
If データ範囲.Rows.Count <> 1 Then
データ表示 (SpinButton1.Value)
End If
End Sub
|
|