2020-08-04から1日間の記事一覧
1 2 3 コード '** '*抽出後に、選択したデータでラベルを印刷する '* Sub 抽出後に、選択したデータでラベル印刷する() 'targetRange→tRng Dim tRng As Range: tRng = Selection.SpecialCells(xlCellTypeVisible) tRng = Intersect(tRng, Columns(1)) 'tar…
1 2 3 コード '** '*抽出後に、選択したデータでラベルを印刷する '* Sub 抽出後に、選択したデータでラベル印刷する() 'targetRange→tRng Dim tRng As Range: tRng = Selection.SpecialCells(xlCellTypeVisible) tRng = Intersect(tRng, Columns(1)) 'tar…