出力原義(ひな型）シートを同一ブック内にコピーして一件別請求書シート作成

1 ひな型から同じブック内に複数シート作成出力用のひな型シートには、あらかじめJ1セルを参照するVlookupを埋め込んである。削除してはまずい一覧シートやひな型シートは、シート名の冒頭に●をつけてある。 2 コード Option Explicit Sub ひな型シートを同…

2020-08-29

シート名が●で始まっているもの以外を削除

１原義シート（ひな型シート）以外を削除残したい原義シート（ひな型シート）やマスターシートには、そのシート名に●をつけておき、他の作業シートを削除する。２コード Option Explicit Sub シート名が●で始まらないものを削除() Application.ScreenUpd…

2020-08-24

シート目次作成(目次シート→各シート、各シート→目次シートへのハイパーリンク）

Sub 目次作成() Dim ws目次 As Worksheet: Set ws目次 = Thisworkbook.Sheets("目次") ws目次.Range("A:A").ClearContents Dim i As Integer For i = 1 To ThisWorkbook.Sheets.Count '目次シート作成 With ws目次 .Hyperlinks.Add Anchor:=.Range("A" & i),…

2020-08-16

SaveAsと保存ファイル名の拡張子との整合性エラーの回避

1 前提 SaveAsメソッドによる保存でファイル名(ここでは、myFileNameとする）を指定するとき、ファイル名に拡張子まで含めることもできるし、拡張子の付加はSaveAsメソッドに任せることもできる。２課題しかし、引数FileFormatの内容（FileFormatを省略し…

2020-08-16

実行時エラー’1004　並べ替えの参照が正しくありません。

１エラーメッセージ実行時エラー’お1004 並べ替えの参照が正しくありません。参照が並べ替えるデータ内にあることと、[最優先されるキー]ボックスが空白でないことを確認してください。２原因表をSortメソッドで並べ替えたしたときに発生。最初はセル…

2020-08-15

受付簿をNo.を加算しながらループ印刷

１２コード '** '*機能：入力セルに値を増やしながら代入して印刷をループする '*要確認事項 '*@inputCell(入力セル） '*@NUM_DIFF(No.の増差) '*Wait(待機）する秒数 '* Sub 帳票数字代入印刷マクロ() 'プリンタ設定確認 Dim m As String: m = "" m = m & …

2020-08-14

背表紙を2枚セットで1ページに印刷その２

１選択範囲をintersectでC列に限定しないで、Rows.Rowで掴むことで、無駄なmsgboxを減らした。ただし、１つの列に絞っていないので、同じ行のセルをわざわざCtrを押して離れて選択すると、Rows.rowは重複した行番号を返してしまう。これは無視した。２コー…

2020-08-11

背表紙を2枚セットで1ページに印刷

1 2レコード単位で処理を繰り返す cntの数え方を要改善 2 Sub 背表紙2枚セット印刷() Dim Sh1 As Worksheet: Set Sh1 = Sheets("Sheet1") Dim Sh2 As Worksheet: Set Sh2 = Sheets("Sheet2") With Sh1 '初期化 .Range("E7:E8").ClearContents 'tRng(targetRa…

2020-08-08

シート跨ぎ転記（2シート間転記）マクロ

１転記元シートから転記先シートへの転記２コード Option Explicit '転記先シートのシートモジュールに記載 'シート跨ぎ転記 Private Sub Worksheet_Activate() '転記元シート Dim wsFrom As Worksheet: Set wsFrom = Sheets("sheet1") With wsFrom Dim l…

2020-08-04

オートフィルタで抽出したデータの選択部分を各レコード別に印刷する

１２３コード '** '*抽出後に、選択したデータでラベルを印刷する '* Sub 抽出後に､選択したデータでラベル印刷する() 'targetRange→tRng Dim tRng As Range: tRng = Selection.SpecialCells(xlCellTypeVisible) tRng = Intersect(tRng, Columns(1)) 'tar…

2020-08-01

シートを別ブックに保存する(オフィスTANAKA練習問題４)

1 よく使うコードの整理 2コード (1)xlsx保存 Sub TanakaMondai4() Dim i As Long For i = 2 To Sheets.Count ThisWorkbook.Sheets(i).Copy With ActiveWorkbook .SaveAs "C:\Work\" & ActiveSheet.Name & ".xlsx" .Close End With Next End Sub (2)PDF保存 …

2020-08-01

並べ替えて指定フォルダに保存する

１並べ替えて、保存するマクロ指定の順序で並べ替え。指定のフォルダ（シート内にアドレスを記載）に保存。２コード Sub 引継簿並べ替え() '並べ替え With ThisWorkbook.Sheets("引継簿") .Range("A5").Sort key1:=Range("G5"), order1:=xlAscending, _ k…