Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

762 / 76735

←次へ　｜　前へ→


	【81638】VBA do loop ネスト

おまん万次郎 - 21/2/1(月) 21:40 -


	引用なし

	パスワード

VBAのdo loopで質問。
セルの一行目を取得した後、
二行目を取得し表示させるコードのつもりですが、
一行目しか取得できません。

Sub Main

Dim oSheet As Object
oSheet = ThisComponent.CurrentController.ActiveSheet

Dim str as String
Dim i as Integer

Do
Do
if oSheet.getCellByPosition(i,0).string = ""then
goto continue:
end if

str = str + oSheet.getCellByPosition(i,0).string + ":"i = i + 1
loop

continue:
if oSheet.getCellByPosition(i,1).string = ""then
exit do
end if

str = str + oSheet.getCellByPosition(i,1).string + ":"i = i + 1
loop

msgbox(left(str,len(str) -1))

End Sub

環境はリブレオフィスのculcなのでrangeは使用できません。
よろしくお願いします。

1 hits

▼

【81638】VBA do loop ネスト おまん万次郎 21/2/1(月) 21:40