システムwiki

2セルをマージするマクロを作成し、合計を取得するためにマージセルをグループ化します.

&nn 受付中 最終更新日:2021-06-15 10:08

こんにちは、

私は3つのワークシート(データ、ピボット&サマリー)を含むファイルを持っていて、マクロを作成したいです.

私は2つのボタンを作成する必要があると思います.

以下の

を実行する最初のボタン
  1. データシート-列a-式(= f2&""&e2)を下段にコピーして、下のデータの一意のIDを下にコピーします(私は10行と他の時間が1000持つことができます).行方)
  2. ピボットシート-その後、ピボットtableを下記のように更新します.そのため、データシートと列の合計から列Aをグループ化することができます.
  3. サマリーシート-ピボットシートから、私たちは以下のようにまとめの途中にこれをコピーして貼り付けます.私たちのマネージャーは毎週の要約の上に書面によるレポートを入力します
  4. 書面による報告書が完了したら.サマリーシートをPDFとして保存し、Finance
    5. に電子メールを送信します.

    ステップ4(PDFとして保存ファイルを保存し、可能であれば、PDFファイルを特定の電子メールアドレスに自動的に電子メールで送信する)を実行するように2ボタンを作成できます.

    私は上記が理にかなっていることを願っています.

    あなたの助けは大いに感謝されます

    返信リスト(回答:3)

    3 #
    Jeovany

    こんにちは&nni3
    現在の情報であなたの要件を視覚化するのは難しいです、あなたのワークブックはあなたのファイルにアクセスすることなく解決策を与えるために複雑すぎる.
    機密/機密データをすべて削除します.
    シナリオや目標の詳細を教えてください.また、予想される結果を投稿してください.
    それは私達にあなたにプロンプトと正しい解決策を与えるのを助けます.
    あなたがそれをする方法についての助けが必要な場合は、下のリンクをクリックしてください
    support.office.com/ja-jp/article...

    応答3# ->にスキップ
    2 #

    私に戻ってくれてありがとう.その多くは高く評価されています

    [データ]タブからの情報を要約タブに入るようにします.予想される最終結果は、概要タブにあります.

    また、[データ]タブの列Mの合計が[概要]タブの列jの合計と同じであることを確認する必要があります.ピボットtableが更新されているが、データソースが追加の行を含むように更新されていない場合がありました.

    データが要約ページにまっすぐになるのは可能ですか?つまり、ピボットtableステップを取り外します.

    ピボットtableを使用してその情報をサマリーにコピーして貼り付けます.

    あなたからの連絡をお待ちしているのを楽しみにしています

    応答2# ->にスキップ
    1 #
    Jeovany

    あなたはあなたの質問に対する答えを持つファイルの下のリンクからダウンロードすることができます

    注:

    1-ボタンを作成し、それらにマクロを割り当てます.

    2-ピボットtableシートは、データを要約するための最良かつより効率的な方法であるために滞在する必要があります.

    ここで2つのマクロ

    サブUpdatereFreshPivot()

    ムードLASTROW長い

    範囲

    としての薄暗いpvtuid

    範囲

    としてのDIM PVTCOST

    '' '列の挿入式A表範囲

    シート(「データ」)

    LASTROW=.Cells(Rows.Count、 "F").end(xlup).row

    k= 2からLASTROW

    .Range( "a"&k).value=.value&""&""&""( "e"&k).value

    次のK

    で終わります

    '' '更新/リフレッシュピボットtable

    ActiveWorkbook.Refreshall

    シート(「ピボット」)

    .pivottables( "pivottable1").PivotCache.refresh

    '' 'コピー範囲を設定

    pvtuid=.pivottables( "pivottable1")を設定します.TableRange2.Columns(1)

    pvtcost=.pivottables( "pivottable1")を設定します.TableRange2.Columns(2)

    pvtuid= pvtuid.offset(1).Resize(pvtuid.rows.count-2,1)

    PVTCOST= PVTCOST.OFFSET(1).Resize(PVTCOST.ROWS.COUNT-2,1)

    で終わります

    シートを使用する( "summary") '' 'データの範囲を要約シートに転送する

    .Range( "B22").サイズ変更(pvtuid.rows.count、1).value= pvtuid.value

    .Range( "J22").サイズ変更(pvtcost.rows.count、1).value= pvtcost.value

    で終わります

    終了SUB

    SUB SAVEASPDF_AND_SENDEMAIL()

    string、mypath、stringとしてflumpathとしてのfname

    MyPath= thisworkbook.path&"\"

    fname= "weekly Report-"&Format(現在 "" DD-MMM-YYYY-HHMMSS ")&".pdf "

    fullpath= MyPath&FNAME

    シート(「概要」)

    .exportAsFixedFormat型:= xltypepdf、filename:= fullpath、_

    品質:= XlqualityStandard、IncullocProperties:= true、ignoreprintareas:= false、OpenAfterPublish:= false

    で終わります

    '' '' '' ''メールを送る '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

    DIM OutlookApp Outlook.Application

    Outlook.Mailitem

    としての明暗MyMail

    PDFPathを文字列

    として薄暗くします

    OutlookApp= New Outlook.Application

    を設定します

    mymail= Outlookapp.CreateItem(OlmailItem)

    PDFPath= FullPath

    Mymail

    を使って

    .attachments.add pdfpath

    .to= "[email protected]"

    .cc= ""

    .subject= "Weekly Report"

    Boby= "HI Everyone"&Vbnewline&"weeklyレポートの添付ファイルを見つけてください"&vbnewline&"ありがとう"

    .display

    で終わります

    終了SUB

    一方、

    答えがあなたを助けたならば.

    このスレッドを答えてマークすることを検討してください.

    それは同様の質問や問題を抱えているコミュニティの他の人たちを助けるでしょう.

    事前にありがとう

    関連質問