No.6ベストアンサー
- 回答日時:
Dim WS1 As Worksheet '変数の宣言:シート1
Dim WS2 As Worksheet '変数の宣言:シート2
Dim r1 As Range, r2 As Range 'セル(Range)の宣言 シート1&2用
Set WS1 = Worksheets("Sheet1") '変数WS1にシート1をセット
Set WS2 = Worksheets("Sheet2") '変数WS2にシート2をセット
Set r1 = WS1.Range("B1:B3") '変数r1にシート1のセルB1:B3をセット
Set r2 = WS2.Range("B" & Rows.Count).End(xlUp).Offset(1)
'変数r2にシート2のB列最終行の1つ下をセット
r2.Resize(, 3).Value = Application.Transpose(r1)
'変数r2でセットされたセルから、右に2個増やした
'セル3個分に、r1でセットされた3個のセルを
'行列入替え(縦並びを横並びに)て代入する
r2.Offset(, -1).Value = r2.Row - 1
'シート2のB列(r2)の1つ左(A列)に
'行番号から1引いた数を代入する。
'(項目行の分だけ1引いて調整してる)
>項目を増やしたのでマクロも書き換えなくてはいけないですよね?
どのように増やすのかも提示された方が、回答がスムーズにいくと思います。
取り敢えず、シート1の項目が3つでない場合なら、
Set r1 = WS1.Range("B1:B3")
B1:B3を実際の範囲に合わせる。(例・B1:B6とか)
r2.Resize(, 3).Value = Application.Transpose(r1)
3を実際のセル個数にあわせる。(例・B1:B6なら6とか)
No.5
- 回答日時:
>そのマクロが分からなくて・・・
取り敢えず、蓄積用シートの1行目は項目が入っているとして、
A B C D
1 NO 区分 機能別分類 品名
2 1 国語 教材 漢字スキル
3
2行目からデータを追加していく。
とおし番号は1から。
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim r1 As Range, r2 As Range
Set WS1 = Worksheets("Sheet1")
Set WS2 = Worksheets("Sheet2")
Set r1 = WS1.Range("B1:B3")
Set r2 = WS2.Range("B" & Rows.Count).End(xlUp).Offset(1)
r2.Resize(, 3).Value = Application.Transpose(r1)
r2.Offset(, -1).Value = r2.Row - 1
ボタンのマクロの中に上のコードを入れてみて下さい。
Sheet1 と Sheet2 は実際の名前に変更して下さい。
No.4
- 回答日時:
No.3
- 回答日時:
入力用雛形シートから蓄積用リストシートへ転記したいセル番地が
どこにあるのか?
【入力用雛形シート】
A B C
1 日付 会社名 担当者
2 9/5 YYY KKK
3
4 天気 湿度
5 雨 00%
とあった場合、転記したいのは
セルA2、B2、C2、A5、B5
【蓄積用シート】
A B C D E
1 日付 会社名 担当者 天気 湿度
2 9/5 YYY KKK 雨 00%
3 9/6 XXX LLL 雨? 90%
転記したいセル位置と転記する位置がこのようにわかれば、
回答がつきますよ。
この回答への補足
備品を管理する台帳を作るので・・・
【入力用雛形シート】
A B C
1区分 国語
2機能別分類 教材
3品名 漢字スキル
セルBにデータを入力していきます。セルAが入力する項目名です。
転記したいのはB1、B2,B3です。
雛形の横に保存ボタンを作る。保存ボタンを押すと蓄積用シートへデータが転記される。(データを転記させた後、雛形へ入力したデータは残しておくこともできますか?クリアせずに。)
【蓄積用シート】
A B C D
11 国語 教材 漢字スキル
22
33
セルAには通し番号を。保存ボタンを押すとB1、C2、D3に転記される。
保存ボタンにはマクロを記録するのですよね?
そのマクロが分からなくて・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
誕生日にもらった意外なもの
みなさんがもらった誕生日プレゼントで面白いものがあったらぜひ教えてください!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルで入力シートから別シートに蓄積方法について
Excel(エクセル)
-
EXCELでシート1で作ったデータをシート2にデータを蓄積させたい
Excel(エクセル)
-
エクセルで「入力」と「蓄積」の簡単なデータベース
Excel(エクセル)
-
-
4
エクセルで日毎のデータの蓄積
Excel(エクセル)
-
5
エクセルで別シート、または別ファイルに出力、蓄積保存する方法。 マクロなんかを活用してできないでしょ
Excel(エクセル)
-
6
データ入力すると別ファイルに自動転記するには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
エクセルで1月0日と表示される!!
-
日付が未入力の際はゼロか、空...
-
Excelで複数シートの選択セルを...
-
エクセルで条件に一致したセル...
-
マクロ 新しいシートにデータ...
-
複数シートの同じセル内容を1シ...
-
Excelシートの保護時にデータの...
-
ExcelでTODAY関数を更新させな...
-
別シートのセルを絶対参照にする
-
EXCELマクロで、シート間でのコ...
-
Excelでスクロールすると文字が...
-
シート参照で変数を使いたい(EX...
-
エクセルでシート保護をかける...
-
エクセルで、加筆修正したセル...
-
Excelのファイル容量が減らない...
-
エクセルで20万行あるシート...
-
VBA Excel セル残像が残る
-
エクセルで串刺し計算ができない。
-
エクセルで別シートからの最大...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
Excelで複数シートの選択セルを...
-
エクセルで1月0日と表示される!!
-
エクセルで条件に一致したセル...
-
Rangeメソッドは失敗しました。...
-
別シートのセルを絶対参照にする
-
シート参照で変数を使いたい(EX...
-
Excelシートの保護時にデータの...
-
複数シートの同じセル内容を1シ...
-
エクセルで複写のように自動入...
-
エクセルの文字
-
Excelでスクロールすると文字が...
-
(Excel)あるセルに文字を入力...
-
Excelのファイル容量が減らない...
-
マクロ 新しいシートにデータ...
-
エクセルで別シートからの最大...
-
ExcelでTODAY関数を更新させな...
-
エクセルのセルに、マウスで選...
-
EXCELマクロで、シート間でのコ...
おすすめ情報