Excel VBA質問箱 IV

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

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


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

20184 / 76732

←次へ　｜　前へ→


	【61970】Re:行の挿入について

kanabun - 09/6/15(月) 15:09 -


	引用なし

	パスワード

▼mori さん：
横から失礼します。

>手を加えたりしたのですが、行挿入どころか「合計」が
>消えてしまったり、行挿入はできなかったりという状況です。
>
>>　For lngRow = lngMaxRow To 31 Step -1
>>として、下方向から繰り返し処理したほうがいいと思います。
>下方向からの繰り返しという処理はわかったのですが、この処理を
>するとCSVファイルから逆（最下部）から拾ってくるのではない
>でしょうか？

そういうことでしたら、
整数変数をひとつ追加して、それに行を挿入するとき 1 を代入するようにして
ループの終わりで lngPresentRowIndex を＋１するところに、さらに行挿入の
とき＋１するようにコードを追加したらどうでしょう？

　Dim InsertLine As Long '◆ 追加

>　　lngPresentRowIndex = 4
>　　For lngRow = 31 To lngMaxRow
　　　
　　　(途中省略)
　　　InsertLine = 0　'◆ 追加
>　　　If strTrimedTekiyo = "合計" Then
>　　　　.Cells(lngPresentRowIndex, 2).Value = strTekiyo
>　　　　.Cells(lngPresentRowIndex, 6).Value = strKingaku
　　　　InsertLine = 1　 '◆ 追加
>　　　ElseIf strTrimedTekiyo = "値引" Then
>　　　　.Cells(lngPresentRowIndex, 2).Value = strTekiyo
>　　　　.Cells(lngPresentRowIndex, 6).Value = strKingaku
>　　　Else
>　　　　.Cells(lngPresentRowIndex, 2).Value = strTekiyo
>　　　　.Cells(lngPresentRowIndex, 3).Value = strSuryo
>　　　　.Cells(lngPresentRowIndex, 4).Value = strTani
>　　　End If
　　　lngPresentRowIndex = lngPresentRowIndex + 1 + InsertLine
　　　　　　　　　　　　　　　　　　　　'インデックスを加算　◆変更
>　　Next

試してないのですが。。

0 hits

▼

【61954】行の挿入について mori 09/6/14(日) 18:59