| 投稿日 | ： 2005/06/11(Sat) 21:23 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: msflexgridの非表示列のセル移動 |
列幅が０の列があらかじめ判っているなら、列の値で判断すればいいのでは？
Select Case .Col
Case 1 '列幅が０の列が１つの場合
.Col = .Col + 2
Case 5 '列幅が０の列が２つ連続している場合
.Col = .Col + 3
Case ,Cols - 1
.Row = .Row + 1
.Col = 0
Case Else
.Col = .Col + 1
End Select
.SetFocus
また、ループでセルの幅が０でないとこまですすめるなら、こんな感じ。
Do
If .Col = .Cols - 1 Then
.Row = .Row + 1
.Col = 0
Exit Do
End If
.Col = Col + 1
Loop While .ColWidth(.Col) = 0