|
▼ume さん:
とりあえず、うんと想像して。
もしかしたら選ばれた行の内容はTextBox6と、もう1つ別のテキストボックスにわけて表示したいのかもしれませんが
ここではTextBox6の中にA列とB列の値をおしこんでいます。
また、フォームが表示された時点では1件目(シートの2行目)が選ばれている状態です。
Option Explicit
Dim shデータ As Worksheet
Dim レコード数 As Long
Private Sub UserForm_initialize()
ComboBox2.RowSource = "Sheet1!B1:B12"
Set shデータ = Worksheets("新築工事台帳")
レコード数 = shデータ.Range("A1").CurrentRegion.Rows.Count - 1
If レコード数 = 0 Then
MsgBox "データがないので実行できませんよ〜〜"
SpinButton1.Enabled = False
Exit Sub
End If
With SpinButton1
.Max = レコード数
.Min = 1
End With
Calendar1.Value = Date
End Sub
Private Sub SpinButton1_Change()
データ表示 SpinButton1.Value
End Sub
Private Sub データ表示(x As Long)
TextBox5.Value = x & "/" & レコード数
TextBox6.Value = shデータ.Range("A" & x + 1).Value & "/" & shデータ.Range("B" & x + 1).Value
End Sub
|
|