|
VBA初心者ですが、学習したくいろんな本を見て下記のような
VBAを組んでみたのですが、変数を宣言するまではコンボボックスの
リスト表示が出てきたのですが、下記のように書き換えたら
リスト表示されなくなりました。
どうしてなのか?どうすれば良いのか、教えて頂けないでしょうか?
Dim FirstRow As Long
Dim LastRow As Long
Dim DestRow As Long
Private Sub UserForm3_Initialize()
Worksheets("データ").Select
With ComboBox1
.AddItem "AAAA"
.AddItem "BBBB"
.AddItem "CCCC"
.AddItem "DDDD"
End With
FirstRow = Range("A1").CurrentRegion.Row + 1
LastRow = Range("A1").CurrentRegion.Rows.Count
DestRow = FirstRow
LinkCell
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "[×]ボタンでは、閉じることができません。"
Cancel = True
End If
End Sub
Private Sub CommandButton430_Click()
Unload UserForm3
UserForm2.Show
End Sub
Sub LinkCell()
Dim strRang As String
Label190.Caption = Cells(DestRow, 1)
Label192.Caption = Cells(DestRow, 2)
Label194.Caption = Cells(DestRow, 3)
Label196.Caption = Cells(DestRow, 4)
strRang = "IA" & DestRow
ComboBox1.ControlSource = strRang
Label645.Caption = Cells(DestRow, 7)
Label638.Caption = Cells(DestRow, 51)
Label641.Caption = Cells(DestRow, 52)
Label649.Caption = Cells(DestRow, 47)
' 1ロット目入力
strRang = "CK" & DestRow ' No.1
TextBox130.ControlSource = strRang
strRang = "CL" & DestRow ' No.2
TextBox131.ControlSource = strRang
strRang = "CM" & DestRow ' No.3
TextBox132.ControlSource = strRang
End Sub
|
|