Excel VBA質問箱 IV

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

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


20138 / 76732 ←次へ | 前へ→

【62017】Re:行の挿入について
発言  kanabun  - 09/6/17(水) 11:12 -

引用なし
パスワード
   ▼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列目に 転記する

とするのか?

あなたが部下に 転記させるとしたら、どのように条件を
教えますか?
とりあえずこのコレコレのときは どこにどの欄をの
判定条件が(手順が)明確化される必要があります。

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 お礼

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