|
▼mori さん:
>もう一つ質問ですが・・・
>「合計」の下に1行追加と「値引」の上に1行追加と言うのは
>同居できるものなのでしょうか?
転記してから次の書き込み行を1行ジャンプするか、
転記する前に1行ジャンプしておくかの違いだけなので
2つを合成すればいいと思いますが?
lngPresentRowIndex = 4 '◆(書き込み開始行の初期値)
For lngRow = 31 To lngMaxRow
(途中省略)
If strTrimedTekiyo = "合計" Then
.Cells(lngPresentRowIndex, 2).Value = strTekiyo
.Cells(lngPresentRowIndex, 6).Value = strKingaku
lngPresentRowIndex = lngPresentRowIndex + 1 '◆下に1行空白
ElseIf strTrimedTekiyo = "値引" Then
lngPresentRowIndex = lngPresentRowIndex + 1 '◆1行空白挿入してから転記
.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 '◆ 次の書き込み行
Next
|
|