Excel VBA質問箱 IV

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

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


52538 / 76736 ←次へ | 前へ→

【29036】Re:データの埋め込み
質問  M  - 05/9/22(木) 7:11 -

引用なし
パスワード
   元の表があります。これを仕上げの表のようにしたいのです。

元の表  項目1   項目2  項目3  項目4   項目5
101    AAA    500    300    200    500
102    BBB    400    100     50    400
104    DDD    600     0    250    600
105    EEE    150     50     0    150
107    FFF    600     0     0    600
109    HHH    180     80     50    180


仕上げ表 項目1   項目2  項目3   項目4  項目5
101    AAA    500    300    200    500
102    BBB    400    100    50     400
103    PPP     0     0     0      0
104    DDD    600     0    250    600
105    EEE    150     50     0    150
107    FFF    600     0     0    600
108    GGG     0     0     0     0
109    HHH    180     80     50    180

何とかマクロで処理したくコードを書きましたが、もっとシンプルに
書く方法は無いでしょうか。このサンプル以上に挿入行が増えるものですから
シンプルにしないとコードが長くなりすぎ、分かりにくくなるのでは?っと思い
質問させていただきます。

一回目の質問はわかりづらく失礼しました。

Sub 表の補完()

Dim i As Integer

For i = 5 To Cells(65536, 2).End(xlUp).Row

If Cells(i, 1) = "102" Then
Cells(i, 1).Offset(1).Select
Range(Selection, Selection.Offset(, 5)).Select
  Selection.Insert shift:=xlDown
ActiveCell.Offset(, 1).Value = "PPP"
ActiveCell.Offset(, 2).Value = "0"
ActiveCell.Offset(, 3).Value = "0"
ActiveCell.Offset(, 4).Value = "0"
ActiveCell.Offset(, 5).Value = "0"
End If

If Cells(i, 1) = "107" Then
Cells(i, 1).Offset(1).Select
Range(Selection, Selection.Offset(, 5)).Select
  Selection.Insert shift:=xlDown
ActiveCell.Offset(, 1).Value = "GGG"
ActiveCell.Offset(, 2).Value = "0"
ActiveCell.Offset(, 3).Value = "0"
ActiveCell.Offset(, 4).Value = "0"
ActiveCell.Offset(, 5).Value = "0"
End If

Next
End Sub
0 hits

【29022】データの埋め込み M 05/9/21(水) 20:57 質問
【29036】Re:データの埋め込み M 05/9/22(木) 7:11 質問
【29038】Re:データの埋め込み ichinose 05/9/22(木) 8:29 発言
【29063】Re:データの埋め込み M 05/9/22(木) 21:25 質問
【29064】Re:データの埋め込み ichinose 05/9/22(木) 22:39 発言
【29083】Re:データの埋め込み M 05/9/23(金) 16:31 お礼
【29087】Re:データの埋め込み ichinose 05/9/23(金) 18:40 発言
【29095】Re:データの埋め込み M 05/9/23(金) 21:59 お礼

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