|
▼β さん:
お世話になります。この前教えて頂いた事を元にやりたい事を色々試しているのですが、詰まってしまいましたので、再度質問させて頂きます。
教えて頂いた事を基に、別シートから項目名と合計数を抽出し、転記先のシートに下記のようにするとこるまではできました。このように奇数行が項目名で、偶数行が該当項目の合計数になっています。項目数は一定しておらず下記に表示してるより多い行もあります。
A列 B列 C列 D列 E列 F列 G列 H列
1行目 S-Trim M-Trim SC-S SC-ML Under12 Point N/A
2行目 32 10 3 7 0 0 0
3行目 C-Re/VS C-S C-M C-Semi C-L C-SLong N/A
4行目 0 1 0 0 0 0 0
5行目 HL-Half HL-Full HL-Point N/A
6行目 0 0 0 0
7行目 STP-Re STP-S STP-M STP-Semi STP-L STP-SLong STP-Bang N/A
8行目 0 0 0 0 0 0 0 0
9行目 BL-Dry TR Iron N/A
10行目 0 0 0 0
11行目 C-Eyeblow Beard Iron Rinse Shampoo Bang N/A
12行目 0 0 0 0 0 3 0
この下にも何行か続きます。
上記の表から印刷用のフォーマットに数字をコピーしたいのですが、そのフォーマットが
メニュー名|数|メニュー名|数|メニュー名|数|メニュー名|数|メニュー名|数
のようになっており、この行が9行ありまして、上記のメニューと合計セットも9つあります。
この印刷用のフォーマットに合計数が0以上のメニュー名と合計数をコピーしたいのですが、その方法が分からず詰まっています。
例えば上の例でいくと下記のように表示したいです。(合計数が0のメニューは無視)
A列 B列 C列 D列 E列 F列 G列 H列
1行目 S-Trim 32 M-Trim 10 SC-S 3 SC-ML 7
2行目 C-S 1
3行目 Shampoo 3
4行目 Bang 3
このようにするべく色々模索しておりますが、なかなか上手くいきません。お時間のある時にでも何かヒントでも頂けたら大変ありがたいです。
何度もすみませんが、宜しくご教示お願いいたします。
>▼ayu さん:
>
>>左側で指定したセル範囲に右側のA2のFormulaをコピーし、
>>右側のセル範囲の値を左側で設定したシートのセル範囲にコピーする
>>ということであってますでしょうか?
>
>A2のFormula というのが、ちょっと変ですけど、以下のようなことです。
>
>たとえばステップ実行はご存じでしょうか。
>VBE画面で、Sample2 の任意のところをクリックしてF8 を押します。
>最初は Sub Sample2() が黄色くハイライトされます。
>で、そのまま F8 を押していきます。
> shT.Range("A1:F2").Value = shT.Range("A1:F2").Value
>ここが黄色くなったら F8を押さず、マクロブックの "転記先のシート名" をみてください。
>この A1:F2 に、元ブックを参照する参照式が入っています。
>
>式と表示されている値を確認したら、VBE画面に戻り End Sub まで F8 を押していって下さい。
>
>Sample がうまくいったということですから、同じ環境(フォルダやブック名やシート名)で実行すれば
>シートに参照式がセットされ、そこで参照している値がシートに表示されているはずなんですが。
|
|