[[20220809131125]] 『excel一覧から案内状作成法について』(みつ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『excel一覧から案内状作成法について』(みつ)

sheet1に印刷対象者の一覧、
sheet2に案内状のフォーマットがあり、
sheet1の対象者の情報をsheet2の対象セルに転記、対象者別にexcelファイルで保存する方法を
教えていただけないでしょうか。

具体的には、Sheet1の
D列の情報→Sheet2のA1
E列の情報→Sheet2のA3
F列の情報→sheet2のF10とE37
I列の情報→Sheet2のA5とC33
J列の情報→Sheet2のC34
K列の情報→Sheet2のE34
L列の情報→Sheet2のE35
M列の情報→Sheet2のC36
N列の情報→Sheet2のC38
に転記したいのですが。

どのようにしたら可能かお教え頂けないでしょうか。
よろしくお願いいたします。

< 使用 Excel:Excel2013、使用 OS:Windows10 >


 VLOOKUP 差し込み印刷
 で検索してみてください。
(通りすがり) 2022/08/09(火) 13:20

VLOOKUP差込印刷でSheet2へ転記はできるのですが、
その案内状を別のファイルで保存したい場合はどうしたらいいのか分かりますでしょうか。
(みつ) 2022/08/09(火) 13:32

 シートを複製し新規ブックとして保存してはいかがでしょう?

https://support.microsoft.com/ja-jp/office/%E3%83%AF%E3%83%BC%E3%82%AF%E3%82%B7%E3%83%BC%E3%83%88%E3%82%92%E4%BF%9D%E5%AD%98%E3%81%99%E3%82%8B-34b46819-ee08-43d3-bda6-d3abc6346cd9

 数式は値化しておきましょう。

 大量にあるのならマクロで。
(通りすがり) 2022/08/09(火) 13:51

返信ありがとうございます。
量が多いのですが、その際のマクロについてどのような組み方をしたらよいのでしょうか。
(みつ) 2022/08/09(火) 14:07

ここの過去ログにもたくさん事例があると思いますが、
検索はしましたか?マクロの自動記録も参考になると
思います。
(通りすがり) 2022/08/09(火) 14:11

少しは自分の手を汚しなさいよ。
(・・・) 2022/08/09(火) 16:02

 参考過去ログです。

[[20210418180923]] 『 「データ差込して個別にファイル保存」 についax(Yur)
(通りすがり) 2022/08/09(火) 16:41


 こんばんわ。。。^^
テスト処理対象データー範囲 $A$1:$Z$7
セルデーターは各セルアドレス
様々な方法が有るとは存じますが、一案で
こんな感じでせうか。
お試しの際は新規ブックにて。。。^^;
m(_ _)m
Option Explicit
Sub zsave_test()
    Dim v(), aAry(), bAry(), i&, j&, b, a$
    bAry = Array("A1", "A3", "F10", "E37", "A5", _
                 "C33", "C34", "E34", "E35", "C36", "C38")
    aAry = Array(4, 5, 6, 6, 9, 9, 10, 11, 12, 13, 14)
    With Worksheets("Sheet1")
        v = .Cells(1).CurrentRegion.Value
    End With
    For i = 2 To UBound(v, 1)
        With Worksheets("Sheet2")
            For j = LBound(bAry) To UBound(bAry)
                .Range(bAry(j)) = v(i, aAry(j))
            Next
            .Copy
        End With
        Set b = ActiveWorkbook
        a = "EBX_" & Format(Now, "hhmmss") & "_"
        a = a & Mid(Format(Timer - Int(Timer), "0.000"), 3)
        b.SaveAs ThisWorkbook.Path & "\" & a & "_" & Format(i - 1, "000") & ".xlsx", 51
        b.Close False
    Next
End Sub
(隠居Z) 2022/08/09(火) 19:06

https://www.239-programing.com/cgi-bin/excelvba_bbs.cgi?id=931
投稿者 : mitsu 投稿日時 : 2022/08/08(Mon) 17:11:02 OS : Windows 10 EXCEL : Excel 2013
(rrt) 2022/08/10(水) 07:40

 (◎_◎;)。。。
 m(_ _)m
(隠居Z) 2022/08/10(水) 07:55

通りすがりさま
隠居Zさま

無事やりたいことができました。
ありがとうございました。

(みつ) 2022/08/10(水) 13:10


別に、

難しく 考えず、
例えば Sheet1 の
D列 1強目を、
表示させたいなら、

表示させたい セルに、
=D1
と すればいいし。

じゃなしに、

表示対象行を 変えたいなら、
どの 行を、
表示させるかを、

例えば Sheet1A1に
入れておき、
=offset(Sheet1!$A$1,Sheet1!$A$1-1,4,1,1)
とかで いけませんか?
(Nouble) 2022/08/18(木) 16:39


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.