投稿日 | : 2005/05/17(Tue) 14:59 |
投稿者 | : みんみん |
Eメール | : |
URL | : |
タイトル | : Re^3: ループ処理 |
いろいろ、考えて実際にはうまくいきました(データが少ないと言うのもあります)が
もう少しシンプルな記述方法があればお願いします。
Dim lngCount As Long
lngCount = rs.RecordCount
Do Until Trim(MSHFlexGrid1.TextMatrix(I, 7)) = "" Or I = lngCount
I = I + 1
Loop
If I = lngCount Then
With MSHFlexGrid1
’趣味1の列を非表示(0)にする
.ColWidth(7) = 0
End With
Else
With MSHFlexGrid1
’趣味1の列の幅の設定をする
.ColWidth(7) = 1425
End With
End If
この作業を5回繰り返しました。
よろしくお願いします。