| 投稿日 | ： 2005/06/15(Wed) 12:32 |
| 投稿者 | ： 通りすがりの暇人 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^9: スプレッド使用時における明細行の選択操作について |
GetMultiSelItemがわかっているならSPREADのヘルプを見れば載ってますが、
以下のやり方でどうでしょう。
Dim i_cnt As Integer
Dim sel_cnt As Long
Dim Sel_Txt As Boolean
'初期値を0にして選択行を検索する（選択されてる先頭行取得のため）
sel_cnt = 0&
Do
''現在選択している行を引数に次に選択されている行を取得
sel_cnt = fp.Spread1.GetMultiSelItem(sel_cnt)
''取得できた行が(-1)ならもう選択されてる行はない
If sel_cnt < 0 Then
Exit Do
End If
Sel_Txt = fp.Spread1.GetText(1, sel_cnt, ax1) '選択行のax1をGet
Sel_Txt = fp.Spread1.GetText(2, sel_cnt, az5) '選択行のaz5をGet
''セルの値を取得してから必要な処理の記述（表示処理など）
Loop