|
▼Jaka さん:
> mmc = Range(ListBox1.RowSource).Column
> mmr = Range(ListBox1.RowSource).Row
> TextBox1.Value = Cells(ListBox1.ListIndex + 2, mmc)
> TextBox2.Value = Cells(ListBox1.ListIndex + 2, mmc + 1)
> If ListBox1.ColumnCount > 2 Then
> TextBox3.Value = Cells(ListBox1.ListIndex + 2, mms + 2)
> End If
こんにちは、
回答有り難うございます。
TextBox3.Value = Cells(ListBox1.ListIndex + 2, mms + 2)
のところの"mms"は"mmc"のタイプミスかと思いますが、
"mmc"と"mmr"の変数を宣言して実行したところ(Dim mmc, mmr)
見事に対象のセルアドレスを取得できました。後はリストボックスへの追加と削除を考えたいと思います。アドバイス有り難うございました。ちなみに変数の宣言は、Variantで良かったのですよね?
|
|