[[20070919130116]]　『コンボボックスの活用』（きー）　ページの最後に飛ぶ

『コンボボックスの活用』（きー）

ここで質問すれば解決するのでは？と教えてもらい

やってきました。よろしくお願いします。

今、ユーザーフォームにコンボボックスとコマンドボタンをひとつ作りました。

このボックスのリストはシート２（A1：A8）あります。

そのリストの中身と同じものがシート１の1行目（A1：H1）にもあります。

そこで、コンボボックスで選らんだものが入力されている

シート１の場所にコマンドボタンを押すと移動するというふうに

動かすにはマクロをどう書いたらいいでしょうか？

Windows　XPを使用しています。

 Sheet1のA1:H1 と Sheet2のA1:A8 の値が同じ順序であるとき

 Private Sub CommandButton1_Click()
 With ComboBox1
     If .ListIndex = -1 Then Exit Sub
     Application.GoTo Sheets("Sheet1").Cells(1, .ListIndex + 1)
 End With
 End Sub
 (seiya)

さっそくありがとうございます。

できました！！

　　　　　　　　　　　　　　　　　　　（きー）

すみません。
ちなみにコンボボックスのリストを

最初からSheetのA1:H1にすることは出来るのでしょうか？

 プロパティボックスからRowSourceに入力されている値を削除して、下記コードを追加

 Private Sub UserForm_Initialize()
     ComboBox1.Column = Sheets("sheet1").Range("a1:h1").Value
 End Sub
 (seiya)

コメント返信：

[ 一覧(最新更新順) ]

[[20070919130116]] 『コンボボックスの活用』（きー） ページの最後に飛ぶ

[[20070919130116]]　『コンボボックスの活用』（きー）　ページの最後に飛ぶ