戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
二つのテーブルをマッピングして特定のファイル(Excel)に特定のセルを転記する方法

    [194710] 二つのテーブルをマッピングして特定のファイル(Excel)に特定のセルを転記する方法-

    ■親トピック/記事引用/メール受信=ON■

    □投稿者/ トマト -(2022/02/05(12:46))
    □U R L/
      VBA全くの初心者です。下記のWorksheet1は転記するTemplateファイル(Excel)のセルを指定しています。
      7-1_xxは転記すべきTemplateファイル(Excel)のsheet名です。 
      Worksheet2はWorksheet1で指定しているセルに転記すべき数字になります。
      二つのWorksheetをマッピングして別Templateファイル(Excel)の各々のSheet(7-1_01から7-1_05)に転記する方法(式)を初心者にも理解できるようにできるだけ詳細(最初から)を教えていただけますでしょうか?
      どうぞ宜しくお願い致します。
      
      Worksheet1 /YYYY /MM /DD /Debit in JPY /Credit in JPY /Net Amount in JPY
      7-1_01 /$D$2 /$E$2 /$F$2 /$D$15 /$D$18 /$D$21
      7-1_02 /$D$2 /$E$2 /$F$2 /$D$15 /$D$18 /$D$21
      7-1_03 /$D$2 /$E$2 /$F$2 /$D$15 /$D$18 /$D$21
      7-1_04 /$D$2 /$E$2 /$F$2 /$D$15 /$D$18 /$D$21
      7-1_05 /$D$2 /$E$2 /$F$2 /$D$15 /$D$18 /$D$21
      
      
      Worksheet2 /YYYY /MM /DD /Debit in JPY /Credit in JPY /Net Amount in JPY
      7-1_01 /2021 /11 /1 /12000000 /135 /11999865
      7-1_02 /2021 /11 /2 /1230000 /-942 /1230942
      7-1_03 /2021 /11 /3 /0 /0 /0
      7-1_04 /2021 /11 /4 /5000000 /7941 /4992059
      7-1_05 /2021 /11 /5 /5100000 /58000 /5042000
      
      *内容にペーストするとテキスト形式になるため、Worksheetの項目と項目の間にスラッシュをいれています。実際のWorksheetにはスラッシュは存在しません



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [194711] Re[1]: 二つのテーブルをマッピングして特定のファイル(Excel)に特定のセルを転記する方法-

    記事引用/メール受信=OFF■

    □投稿者/ ヘンリー -(2022/02/05(14:25))
    □U R L/

      マルチポストです。
      h ttps://www.239-programing.com/cgi-bin/excelvba_bbs.cgi?id=541




    [194712] Re[2]: 二つのテーブルをマッピングして特定のファイル(Excel)に特定のセルを転記する方法-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2022/02/05(15:54))
    □U R L/

      説明が理解出ません。
      登場するブックは3つですか?
      1)指図ファイル(マクロブック)
      2)Templateファイル(転記元)
      3)Templateファイル(転記先)




    [194713] Re[3]: 二つのテーブルをマッピングして特定のファイル(Excel)に特定のセルを転記する方法-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2022/02/05(16:26))
    □U R L/
      WorkSeet1とWorksheet2は、
      まとめて、こんな表ではだめなのですか。
      
      項目    YYYY    MM     DD       Debit in JPY     Credit in JPY     Net Amount in JPY
      転記先  D2      E2     F2       D15              D18               D21
      7-1_01  2021    11     1        12000000         135               11999865
      7-1_02  2021    11     2         1230000         -942              1230942
      7-1_03  2021    11     3         0               0                 0
      7-1_04  2021    11     4         5000000         7941              4992059
      7-1_05  2021    11     5         5100000         58000             5042000




    [194716] Re[4]: 二つのテーブルをマッピングして特定のファイル(Excel)に特定のセルを転記する方法-

    記事引用/メール受信=OFF■

    □投稿者/ トマト -(2022/02/05(21:44))
    □U R L/

      マナーさん

      ありがとうございます。 Worksheetはおっしゃるようにまとめられるのですね。
      すみません、それすらも分からない初心者です。
      このWorksheetが転記元となり、Templateのファイルに上書き転記するように
      したいのですが。

      転記先のTemplateには7-1_01,7-1_02等のSheetが作成されております。
      まとめて頂いたWorksheetの転記先に記載したCellに転記できるようにしたいのですが。 説明になっておりますでしょうか?









    [194717] Re[5]: 二つのテーブルをマッピングして特定のファイル(Excel)に特定のセルを転記する方法-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2022/02/05(22:38))
    □U R L/
      一例です
      
      Option Explicit
      
      Sub test()
          Dim 転記先WB As Workbook
          Dim 転記先WS As Worksheet
          Dim 転記元WS As Worksheet
          Dim 転記DATA As Range
          Dim j As Long, k As Long
          
          Set 転記先WB = Workbooks("Template.xlsx")
          Set 転記元WS = ThisWorkbook.Worksheets("Sheet1")
          Set 転記DATA = 転記元WS.Range("A1").CurrentRegion
          
          For j = 3 To 転記DATA.Rows.Count
              Set 転記先WS = 転記先WB.Worksheets(転記DATA(j, 1).Value)
              For k = 2 To 転記DATA.Columns.Count
                  転記先WS.Range(転記DATA(2, k).Value).Value = 転記DATA(j, k).Value
              Next
          Next
      
      End Sub
      
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [194718] Re[6]: 二つのテーブルをマッピングして特定のファイル(Excel)に特定のセルを転記する方法-

    記事引用/メール受信=OFF■

    □投稿者/ トマト -(2022/02/06(10:36))
    □U R L/

      マナーさん

      転記できました!

      稚拙な質問にご丁寧にお答えいただきまして
      誠にありがとうございました。




    [194727] Re[7]: 二つのテーブルをマッピングして特定のファイル(Excel)に特定のセルを転記する方法-

    記事引用/メール受信=OFF■

    □投稿者/ 匿名 -(2022/02/08(19:46))
    □U R L/

      解決したら、解決にチェックを入れましょう。

      又、マルチポストをされているので、
      他の掲示板にも解決したことを報告してください。

      そうしないと、回答が付きにくくなりますよ。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G