Excel VBA質問箱 IV

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

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


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

18818 / 76807

←次へ　｜　前へ→


	【63427】Re:リスト削除

Hirofumi - 09/11/3(火) 12:29 -


	引用なし

	パスワード

データが必ず親より下の行に子が有ると言う関係では無く
ランダムに並んでいるなら、以下のプロシージャの中を★印の様に変更して下さい

Private Sub DataDeleteF(vntKey As Variant, _
　　　　　　　　　　　　vntList As Variant, _
　　　　　　　　　　　　lngRow As Long, _
　　　　　　　　　　　　vntFlags() As Variant)

　　Do Until vntList(0)(lngRow, 1) = ""
　　　　If vntKey = vntList(0)(lngRow, 1) Then
　　　　　　vntFlags(lngRow, 1) = "削除"
'　　　　　　DataDeleteF vntList(1)(lngRow, 1), vntList, lngRow + 1, vntFlags()
　　　　　　DataDeleteF vntList(1)(lngRow, 1), vntList, 1, vntFlags() '★変更
　　　　End If
　　　　lngRow = lngRow + 1
　　Loop
　　
End Sub

Private Sub DataDelete(vntKey As Variant, _
　　　　　　　　　　　　vntList As Variant, _
　　　　　　　　　　　　lngRow As Long, _
　　　　　　　　　　　　lngFlags() As Long, _
　　　　　　　　　　　　lngCount As Long)

　　Do Until vntList(0)(lngRow, 1) = ""
　　　　If vntKey = vntList(0)(lngRow, 1) Then
　　　　　　lngFlags(lngRow, 1) = 1
　　　　　　lngCount = lngCount + 1
'　　　　　　DataDelete vntList(1)(lngRow, 1), vntList, lngRow + 1, lngFlags(), lngCount
　　　　　　DataDelete vntList(1)(lngRow, 1), vntList, 1, lngFlags(), lngCount '★変更
　　　　End If
　　　　lngRow = lngRow + 1
　　Loop
　　
End Sub

1 hits

▼

【63411】リスト削除 たつ 09/11/2(月) 14:26