|
▼mori さん:
>kanabun さん
>何度も何度も申し訳ありません。
いえいえ、、、ひまなんでお付き合いさせていただきますよ(^^
>単位欄に「式」、単価欄に「空白」が記入されている行の前に空白行を
>入れる場合・・・と言うことです。
>
>
>「合計」、「値引」の応用で大丈夫かと何度も挑戦してみているのですが、
>どうしても「式」(単位欄は空白)の下にしか行が挿入されずにいます。
>「式」の上に行挿入する場合は、「値引」のときのような方法ではだめなの
>でしょうか?
上か、下かに「空行挿入」というのは、このケースでは、結局、
転記先の行を
「1行ジャンプしてから」転記したり、 --- 上に空行挿入
「転記後に 次の転記行を+2とする」 --- 下に空行挿入
と操作することだと思います。
で、
'転記開始
If Trim適用 = "合計" Then
.Cells(newLine, 1).Value = str行番号
.Cells(newLine, 2).Value = str適用
.Cells(newLine, 6).Value = str金額
newLine = newLine + 1 '◆下に空行挿入
ElseIf Trim適用 = "値引" Then
newLine = newLine + 1 '◆上に空行挿入
.Cells(newLine, 1).Value = str行番号
.Cells(newLine, 2).Value = str適用
.Cells(newLine, 6).Value = str金額
Else
.Cells(newLine, 1).Value = str行番号
.Cells(newLine, 2).Value = str適用
.Cells(newLine, 3).Value = str数量
.Cells(newLine, 4).Value = str単位
End If
newLine = newLine + 1 '◆次の転記行
Next
と
>後半部分についてなのですが。
>
>If str単位 = "式" And str単価 = "" Then
> .Cells(lngPresentRowIndex, 6).Value = str金額
> Else
> .Cells(lngPresentRowIndex, 5).Value = str単価
> .Cells(lngPresentRowIndex, 6).Value = str金額
>End If
とを、どう総合するか ということですが、
いちど日本語で説明してもらえませんか?
要は、【判定順序】 です。
たとえば、
> 単位欄に「式」、単価欄に「空白」が記入されている
かどうかだけを調べて
(1) str単位が "式" で かつ str単価 が空白だったら、
◆1行開けて
str金額を 6列目に書き込む
(2) それ以外はすべて
str単価を5列目に、 str金額 を6列目に書き込む
とするだけでは、それ以外のすべてが
5列目に str単価が、 6列目に str金額 が書き込まれる
だけで
思惑と違った結果になるでしょう?
たとえば
(1)Trim適用 が 「合計」か「値引」のとき
(1-1) str単位が "式" で かつ str単価 が空白だったら
◆1行空けて str金額→ 6列目に転記
(1-2) Trim適用 が "値引" のときは
◆1行空けて str金額→ 6列目に転記
(1-3) Trim適用 が "合計" のときは
str金額→ 6列目に転記 ◆転記してから1行飛ばす
(2)それ以外のときは
str数量 を 3列目に、
str単位 を 4列目に 転記する
とするのか?
あなたが部下に 転記させるとしたら、どのように条件を
教えますか?
とりあえずこのコレコレのときは どこにどの欄をの
判定条件が(手順が)明確化される必要があります。
|
|