Excel VBA 質問スレ Part69

Excel VBA 質問スレ Part69at TECH

Excel VBA 質問スレ Part69 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

73:デフォルトの名無しさん 
 20/12/20 13:14:04.40 6+Wk6JOS0.net
今度はそこでハゲるんですよ

74:デフォルトの名無しさん 
 20/12/20 23:10:55.45 gTVP+0oL0.net
Application.StatusBar がとっても便利

75:デフォルトの名無しさん 
 20/12/21 11:54:50.24 bZ3GkeZc0.net
全体の処理数がわかるなら、残り（未処理）が何件あるかを表示すると多少イライラが解消される

76:デフォルトの名無しさん 
 20/12/21 12:30:22.40 uS6jpmSaM.net
途中でクリップボード使ったら 
卑猥な言葉が混入しまちた！

77:デフォルトの名無しさん 
 20/12/22 00:13:23.28 lruv7PIH0.net
ミスターTか。この人の経営してる会社、実態が無いと聞いたが 
娘と親子でExcelのセミナー会社経営らしいが

78:デフォルトの名無しさん 
 20/12/22 03:50:30.98 rWw9Je1ea.net
娘何歳？

79:デフォルトの名無しさん 
 20/12/22 06:18:34.01 NAGl+KXI0.net
すみません教えてください 
Option Explicit 
Private Sub UserForm_Initialize() 
Dim r As Long 
ComboBox1.ColumnCount = 2 
For r = 1 To Range("A" & Rows.Count).End(xlUp).Row 
ComboBox1.AddItem Range("A" & r).Value 
ComboBox1.List(r - 1, 1) = r 'リストの2列目にシートの何行目かを記憶 
Next 
End Sub 
Private Sub ComboBox1_Change() 
Dim r As Long 
Dim c As Integer 
r = ComboBox1.List(ComboBox1.ListIndex, 1) '選択したリストの2列目(シートの何行目か) 
ComboBox2.Clear 
For c = 2 To Cells(r, Columns.Count).End(xlToLeft).Column 
ComboBox2.AddItem Cells(r, c).Value 
Next 
End Sub 
上記コードだとシート１のデータがコンボボックスに反映されるんですが 
シート２のデータを反映したくて色々試したんですが解決できず 
詳しい方がいましたら教えてください

次ページ