| |
おはようございます。
>当方、エクセルで見積ツールを作成しているものですが以下の様に、
>コンボボックスにある値を選んだ時、例えば、comboboxの値はワークシート上にあるテーブルからRowSorceで呼び出しています。
>RowSorceの一行目(ListIndex=0 Then)にそのRowSorceの参照元のワークシートのセルを選択することは可能でしょうか？
RowSorceの中身及び、各セルの内容を具体的に提示した方がよいです。
その例題を基にコードが作成できるでしょう？
Excelのマニュアルだって、機能を実行する例が記述されているものとないものでは
わかりやすさは段違いですよね！！
ここに質問を記述するということは、仕様書をわりやすく記述する
一番の練習問題になります！！
新規ブックにて（Sheet1というシートは存在する とします）。
ユーザーフォームを一つ作成してください（UserForm1）。
コボボックスとコマンドボタンを一つずつ作成してください
（ComboBox1とCommandButton1）。
Userform1のモジュールに
'=====================================================
Option Explicit
Private Sub CommandButton1_Click()
Dim src As String
Dim idx As Long
With ComboBox1
src = .RowSource
If .ListIndex >= 0 Then
idx = .ListIndex + 1
With Application
.Goto .Range(src).Cells(idx)
End With
End If
End With
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.ListStyle = fmListStylePlain
.RowSource = "sheet1!a1:a5"
End With
End Sub
標準モジュールに
Option Explicit
Sub sample1()
With Worksheets("Sheet1")
.Select
.Range("a1:a5").Formula = "=char(64+row())"
End With
msgbox "A1:A5がコンボボックスのメンバーになります"
UserForm1.Show
End Sub
これでsample1を実行してください。
コンボボックスのメンバ表示後、Userform1が表示されます。
コボボックスでＡ〜Ｅを選択後、コマンドボタンをクリックしてください。
選択した値があるセルが選択されます。
これを応用してください
|
|
ichinose
- 11/8/5(金) 8:32 -
