Excel VBA質問箱 IV

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

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


20156 / 76732 ←次へ | 前へ→

【61998】Re:行の挿入について
発言  kanabun  - 09/6/16(火) 15:17 -

引用なし
パスワード
   ▼mori さん:

>前回は「合計」と記入されているセルがある行の下に1行挿入したいと
>言うことでした。
>この逆(「合計」と記入されているセルがある行の「上」に1行挿入
>したい)と言うのは可能でしょうか?

これまでのコードは 転記処理のFor〜Nextループに入る前に
書き込み先の行番号(lngPresentRowIndex)に 4 を入れておいて、
1行書き込み処理が終わったら、「次に書き込む行番号」を指定するために
lngPresentRowIndex に1を加えていました。
その後、値が「合計」だったときだけ、「次の書き込み先行番号」に 2 を
加える処理を追加して、結果として1行空白行を挿入した転記処理を実現す
るように改良しました。

>  lngPresentRowIndex = 4
>  For lngRow = 31 To lngMaxRow
>
>    '転記処理
>
>    If 値が「合計」ならば
      lngPresentRowIndex = lngPresentRowIndex + 2 '次の転記行番号
    Else
      lngPresentRowIndex = lngPresentRowIndex + 1 '次の転記行番号
    End If
>  Next

こんどはこれを
   '最初の書き込み行番号 - 1 を初期値とする
◆  lngPresentRowIndex = 4 - 1

としておいて、
◆ For〜Loopの先頭で 行番号を 現在の値に +1 する
◆  ただし、値が「合計のときは」さらに +1 した行に、転記する

という風にすればよいと思います。


  'Dim InsertLine As Long (不要)
  lngPresentRowIndex = 4 - 1 '◆変更(本来の開始行-1)
  For lngRow = 31 To lngMaxRow
      
   (途中省略)

   '書き込み行インデックスを加算
   lngPresentRowIndex = lngPresentRowIndex + 1 '◆ここへ移動

   If strTrimedTekiyo = "合計" Then
    lngPresentRowIndex = lngPresentRowIndex + 1 '◆この行追加
    .Cells(lngPresentRowIndex, 2).Value = strTekiyo
    .Cells(lngPresentRowIndex, 6).Value = strKingaku

   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

  Next

かんちがいなら、ゴメン。

0 hits

【61954】行の挿入について mori 09/6/14(日) 18:59 質問
【61955】Re:行の挿入について かみちゃん 09/6/14(日) 19:14 発言
【61956】Re:行の挿入について mori 09/6/14(日) 19:34 発言
【61957】Re:行の挿入について かみちゃん 09/6/14(日) 19:46 発言
【61958】Re:行の挿入について mori 09/6/14(日) 20:02 発言
【61959】Re:行の挿入について かみちゃん 09/6/14(日) 20:13 発言
【61960】Re:行の挿入について mori 09/6/14(日) 20:37 発言
【61961】Re:行の挿入について かみちゃん 09/6/14(日) 21:00 発言
【61962】Re:行の挿入について mori 09/6/15(月) 9:48 発言
【61964】Re:行の挿入について かみちゃん 09/6/15(月) 12:42 発言
【61967】Re:行の挿入について mori 09/6/15(月) 14:44 発言
【61970】Re:行の挿入について kanabun 09/6/15(月) 15:09 発言
【61974】Re:行の挿入について mori 09/6/15(月) 15:32 お礼
【61996】Re:行の挿入について mori 09/6/16(火) 14:30 質問
【61998】Re:行の挿入について kanabun 09/6/16(火) 15:17 発言
【62001】Re:行の挿入について mori 09/6/16(火) 15:44 発言
【62005】Re:行の挿入について kanabun 09/6/16(火) 16:13 発言
【62008】Re:行の挿入について mori 09/6/16(火) 17:03 発言
【62009】Re:行の挿入について kanabun 09/6/16(火) 17:42 発言
【62013】Re:行の挿入について kanabun 09/6/17(水) 0:38 発言
【62016】Re:行の挿入について mori 09/6/17(水) 10:00 発言
【62017】Re:行の挿入について kanabun 09/6/17(水) 11:12 発言
【62019】Re:行の挿入について kanabun 09/6/17(水) 11:30 発言
【62021】Re:行の挿入について mori 09/6/17(水) 13:02 発言
【61971】Re:行の挿入について Yuki 09/6/15(月) 15:13 発言
【61976】Re:行の挿入について mori 09/6/15(月) 15:36 発言
【62015】Re:行の挿入について Yuki 09/6/17(水) 8:29 発言
【62026】Re:行の挿入について mori 09/6/17(水) 13:48 お礼
【61973】Re:行の挿入について かみちゃん 09/6/15(月) 15:32 発言
【61977】Re:行の挿入について mori 09/6/15(月) 15:52 お礼
【62012】Re:行の挿入について かみちゃん 09/6/16(火) 23:30 発言
【62025】Re:行の挿入について mori 09/6/17(水) 13:43 お礼

20156 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free