Excel VBA質問箱 IV

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

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


20088 / 76732 ←次へ | 前へ→

【62067】Re:コンボボックスのリスト(Sheet)選択について
質問  Sunday  - 09/6/19(金) 13:16 -

引用なし
パスワード
   ▼Jaka さん

こんにちは。
ありがとうございます。

現在、Sheet2("社員一覧")で、Aのセルが("社員ID")です。
シート名(タグ)が変更されてしまうと使えなくなってしまうので
それを避けるために下記の様に直したかったんですが、

With Worksheets("社員一覧")のままで使用した方が良いでしょうか?
宜しくお願い致します。

>Private Sub UserForm_Initialize()
>
>  Dim lRow As Long

  Dim Ws2 As Worksheet
  Set Ws2 = Sheet2

>  With Worksheets("社員一覧")

  With Ws2

>    lRow = .Range("A" & Rows.Count).End(xlUp).Row
>  End With
>
>  With ComboBox1
>    .RowSource = "社員一覧!A2:A" & lRow

ここがダメでした。
   ↓
   →.RowSource = Ws2.Racge("A2:A" & lRow)
  
>'    .Style = fmStyleDropDownCombo
>'    .MatchRequired = True
>'    .MatchEntry = fmMatchEntryFirstLetter
>    .IMEMode = fmIMEModeOff
>    .TabIndex = 0
>  End With
>
>End Sub
>
76 hits

【62064】コンボボックスのリスト(Sheet)選択について Sunday 09/6/19(金) 11:58 質問
【62065】Re:コンボボックスのリスト(Sheet)選択につ... Jaka 09/6/19(金) 12:50 発言
【62067】Re:コンボボックスのリスト(Sheet)選択につ... Sunday 09/6/19(金) 13:16 質問
【62069】Re:コンボボックスのリスト(Sheet)選択につ... Jaka 09/6/19(金) 14:32 発言
【62071】Re:コンボボックスのリスト(Sheet)選択につ... Sunday 09/6/19(金) 14:50 お礼
【62066】Re:コンボボックスのリスト(Sheet)選択につ... neptune 09/6/19(金) 13:11 発言
【62068】Re:コンボボックスのリスト(Sheet)選択につ... Sunday 09/6/19(金) 13:23 お礼

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