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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) エクセル表作成についてお分かりになる方教えて下さい。 10項目程度のエクセルデーターを一件、一件、デ 9 2022/05/28 14:53
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Visual Basic(VBA) VBAで重複データを確認したい 5 2022/10/07 16:24
- Excel(エクセル) Excelでポイントの管理表を作成したいです。 個人ごとにシートを作成し、発行者のシートでポイントを 3 2023/08/22 16:59
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Visual Basic(VBA) excel vba でユーザーフォーム入力ができない 2 2022/12/12 14:42
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Excel(エクセル) 再度掲載させていただきます。 Excelでポイントの管理表を作成したいです。 個人ごとにシートを作成 4 2023/08/22 20:24
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルで入力シートから別シートに蓄積方法について
Excel(エクセル)
-
EXCELでシート1で作ったデータをシート2にデータを蓄積させたい
Excel(エクセル)
-
エクセルで「入力」と「蓄積」の簡単なデータベース
Excel(エクセル)
-
-
4
エクセルで日毎のデータの蓄積
Excel(エクセル)
-
5
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
6
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
7
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
8
データ入力すると別ファイルに自動転記するには
Excel(エクセル)
-
9
エクセルでのデータ蓄積
Excel(エクセル)
-
10
別シートの最終行に貼り付けするマクロを教えてください。 シートYのE3からE15までをコピー シート
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
エクセルで条件に一致したセル...
-
Excelで複数シートの選択セルを...
-
エクセルで1月0日と表示される!!
-
(Excel)あるセルに文字を入力...
-
シート参照で変数を使いたい(EX...
-
Rangeメソッドは失敗しました。...
-
エクセルのルビがついたセルを...
-
エクセルのセルに、マウスで選...
-
excelでハイパーリンクになって...
-
エクセルで20万行あるシート...
-
エクセルで別シートからの最大...
-
エクセルで複写のように自動入...
-
ExcelでTODAY関数を更新させな...
-
エクセルの文字
-
ワードからエクセルのシートに...
-
Excelシートの保護時にデータの...
-
エクセルで、加筆修正したセル...
-
エクセルで複数のシートの同じ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
エクセルで1月0日と表示される!!
-
エクセルで条件に一致したセル...
-
Rangeメソッドは失敗しました。...
-
(Excel)あるセルに文字を入力...
-
Excelで複数シートの選択セルを...
-
エクセルで複写のように自動入...
-
Excelシートの保護時にデータの...
-
シート参照で変数を使いたい(EX...
-
別シートのセルを絶対参照にする
-
複数シートの同じセル内容を1シ...
-
Excelでスクロールすると文字が...
-
Aというブックの1というシート...
-
エクセルで20万行あるシート...
-
エクセルの文字
-
エクセルで、加筆修正したセル...
-
VBAで変数に関数式の結果をセッ...
-
ExcelでTODAY関数を更新させな...
-
VBAで、セル(Range)のオブジ...
おすすめ情報