Excel VBA質問箱 IV

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

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


45155 / 76732 ←次へ | 前へ→

【36580】コンボボックスにリスト表示をしたいのですが
質問  タフマン  - 06/4/4(火) 13:42 -

引用なし
パスワード
   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
2 hits

【36580】コンボボックスにリスト表示をしたいのですが タフマン 06/4/4(火) 13:42 質問
【36585】Re:コンボボックスにリスト表示をしたいの... Jaka 06/4/4(火) 17:23 発言

45155 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free