No.4ベストアンサー
- 回答日時:
テストデータ(Sheet1)
月次表 6月分
項目名 計数
売上高 1230
受手数料 35
人員数 37
人件費 15
(以下略)
テストデータ(Sheet2)
Sheet2のデータ部分は空白にして、実行して下さい。
年次表
4月分5月分6月分7月分 (以下略)
項目名計数計数計数計数
売上高12301520
受手数料 3545
人員数3738
人件費1516
(以下略)
上記は実行結果です。5月、6月でやって見ました。
シートからALTキーを押しながら、ゆっくりF11、I、Mを
押しModele1を挿入。
(コーディング)
Sub test01()
For i = 2 To 14
If Worksheets("sheet2").Cells(2, i) = Worksheets("sheet1").Cells(1, 3) Then '前行にくっ付ける
For j = 3 To 20
Worksheets("sheet2").Cells(j + 1, i) = Worksheets("sheet1").Cells(j, 2) '前行にくっ付ける
Next j
Exit For
End If
Next i
End Sub
iの14は12か月プラス上、下期小計の2列
jの20は項目の最下行の行番号を仮に20とした。
No.3
- 回答日時:
コーディングレベルまでの解答を求めるなら、下記の点補足されてはいかがでしょうか。
(1)Sheet1表で○○月分はX列に(縦に)並んでいるのでしょうか。今後もX列はY列とかに動かない(と仮定してよい)のでしょうか。他の月分データもSheet1にあるのでしょうか。見だし「○○月分」を頼りに探すのでしょうか。
(2)またSheet1の○○月分の最下行は、月により上下に動くのでしょうか。項目数は固定数か。
(3)年次表のSheet2で、○○月分はZ列に(縦に)並んでいるのでしょうか。今後もZ列はU列とかに動かない(と仮定してよい)のでしょうか(次月には後ろへずれるなど)。見だし「○○月分」を頼りに探すのでしょうか。見だし(○○月分)は入って入っているのでしょうか。
(4)多分Sheet2の方は、入る列が月ごと順次ずれて行くのでしょうね。
この回答への補足
ご面倒をお掛け致します。
また、補足が大変遅くなり申し訳ありません。
さて早速補足させて頂きます。
(1)について
Sheet(1)の月表は固定したセルの中での計算処理であり、行・列ともに動きま
せん。
(2)項目数も固定です。
(3)年表のSheet(2)においては、4月~3月まで横(行)に並んでいます。また、そ の表が動くことは有りません。
(4月~9月で一度上期集計、10月~3月までで下期集計そして最後に年合計
の列がはいります。)
次月は横にずれることになります。
sheet(1)のセル番地(C10)を参照して、年表中の当該月へデータが転写でき
ればと考えています。
(4)その通りで、月毎に順次ずれていきます。(D列..4月、E列..5月といった具
合です)
これでわかりますでしょうか?
よろしくお願い致します。
No.2
- 回答日時:
>回答頂いたような参照は関数(LOOKUP)しかした事がなく、どういう風にマクロの中でやっていったらいいのかわかりません。
(記述の方法)いえいえ、そう意味ではないのです。
シート間でお互い相手のセルを参照するというのは普段から
良くお使いだと思います。
数値を貰う側のセルで「+」を書いて、
元データ側のセルをクリックするだけですね。
もちろんコピーしても良いですし、その作業をマクロで記録
しておいて、適当なボタンにでも対応させておけばマクロを
使用した自動コピーも簡単でしょうが、そもそもご質問に
書かれている使い方にマクロがどうして必要なのですか?
もっとも運用上の何らかのご事情はおありかと思います。
マクロでなけりゃダメとか、マクロそのものを作ることが
目的ならその旨を補足してくだされば回答しやすいです。
この回答への補足
説明が悪く、ご面倒をお掛け致します。
また、補足が大変遅くなり申し訳ありません。
Sheet(1)の月表は固定したセルの中での計算処理であり、行・列ともに決まった表の中で月次計算をさせています。(セル番地が動くことはありません)
Sheet(1)はあくまでも月次計算用のSheetであり、当月分のデータは翌月になったら消します。(当該月の処理をする為データ消去します)
よって、当月分のデータSheet(1)をSheet(2)の年表へデータ転写している次第です。
現在は数年前に作ったロータスマクロにて数値の転写をしていますが、excel2000のバージョンでは動作しないことが分かりましたので、それを改めて作成したいと
思っているところです。(現在、excel95にて運用しています)
・年表のSheet(2)においては、4月~3月まで横(行)に並んでいます。また、そ の表が動くことは有りません。
(4月~9月で一度上期集計、10月~3月までで下期集計そして最後に年合計
の列がはいります。)
・翌月は横にずれることになります。
・sheet(1)のセル番地(○○月)を参照して、年表中の当該月へデータを転写
したいと考えています。
これでわかりますでしょうか?
よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- その他(プログラミング・Web制作) python文字化けエラーが発生しているようです 3 2022/04/13 19:41
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Visual Basic(VBA) このプログラムなんですがsheetにデータを置いて表示できるようにしてありますがsheetに101を 2 2023/02/23 20:13
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- Visual Basic(VBA) VBAでvlookup関数から、別シート参照するやり方・・・ 2 2022/11/14 18:49
- Visual Basic(VBA) VBA For Each 〜 複数条件について 3 2022/10/20 20:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでセル内の数式は残し値だ...
-
条件に応じて特定の行を非表示...
-
Excelで連続印刷をするマクロ
-
wordのvbaでハイパーリンク設定...
-
Excel2007で、太字にした行のみ...
-
100行のセルの高さを一括で調整...
-
Excel2007 セルを右方向に削除...
-
EXCEL マクロで「キーワード入...
-
エクセルで全ての数字間にカン...
-
Excel にて非表示行を探すワー...
-
値貼り付けをしても書式も貼り...
-
エクセル2000でこんなマク...
-
並べ替えのマクロで対象行の範...
-
エクセルで、行ごとの並び替え...
-
VBA コピーを有効行までループ...
-
yyyy/mm/ddの日付に一括変換す...
-
エクセルで色のついたセルを数...
-
エクセルで同じ行中にある先頭...
-
Excelで同じシートのコピーを一...
-
EXCEL:同じセルへどんどん足し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excelでセル内の数式は残し値だ...
-
Excel2007で、太字にした行のみ...
-
Excelで連続印刷をするマクロ
-
「マクロ」の足し算の式を教え...
-
エクセル VBA 小数点を含む数字...
-
エクセルで全ての数字間にカン...
-
(Excel2003)すぐ左の最後の行...
-
Excel(VBA)データ入力に応じて...
-
Excel にて非表示行を探すワー...
-
エクセルで、行ごとの並び替え...
-
エクセル2003でマクロをおこな...
-
excel ある部分だけをコピペし...
-
行の入れ替えってどうするの?
-
Excelで周期的に列を削除する方法
-
整数行を残し小数点の行を削除...
-
EXCEL マクロで「キーワード入...
-
VBA コピーを有効行までループ...
-
Excel2007 セルを右方向に削除...
-
wordのvbaでハイパーリンク設定...
おすすめ情報