2019.02.05 13:40書類を3つ折りにするA4サイズの書類を折って封筒に入れたいとき、線に合わせて印をつけるだけで３つ折りにできるようテンプレートを作成してあります。わかりやすいように上下で2本の線を入れていますが、実際には下の線で目印をつけ、その目印に合わせて上下を折るだけで問題ありません。以下の画像をクリックするとGoogleドライブに遷移します。
2019.02.01 14:35VBAでエラー処理を行うマクロ実行時にエラーが発生し落ちないようにします。エラーログを作成しておくと後からでも確認できて便利です。まず、エラーを発生させるためのサンプルを作成しました。以下のコードは0の除算で必ずエラーになります。このログに記載されるのはエラーの発生年月日、時間、エラー番号と内容です。Sub わざとエラーを起こす()' 'エラーが発生したら myError に飛ばす On Error GoTo myError ' Range("A1") = 10 / 0 ' '通常の処理の最後には必ず Exit Sub を入れる Exit Sub 'myError: '情報を引数に入れて渡す Call エラーログ作成( _ ...
2019.01.31 10:59封書を郵送する封書を郵送する際に必要なものをまとめます。【住所シール】定例作業等で繰り返し同じ場所に送る場合は、住所を貼るだけにしておくと便利です。A4用紙の1ページ目に宛先、2ページ目に切り取り線を入れておき、長辺綴じの両面印刷をすると簡単にハサミで切れます。以下の画像をクリックするとGoogleドライブに遷移します。
2019.01.30 11:48Excelでオートフィルタ後に表示セルを選択するオートフィルタをかけた後に表示された表の最終行を選択します。フィルタ結果から特定のデータを使用したいときに便利です。フィルタ結果が1件以上あるかを判別するときにも便利です。Sub オートフィルタ後に表示セルを選択() ' Dim filterRow As Long Dim keyWord As String ' keyWord = "山田" ' '「Sheet1」シートの1行目（Rows(1)）のA列（Field:=1）を「山田」でフィルタリングする Worksheets("Sheet1").Rows(1).AutoFilter Field:=1, Criteria1:=keyWord 'フィルタリングされた表の最終表示行を取得 ...
2019.01.29 11:37Excelでオートフィルタを使用する頻繁に使用する4つのパターンをご紹介します。ここではフィルタリングする言葉を「keyWord 」としますが、ダブルクォーテーション（ " " ）でくくれば文字列も使用できます。【パターン1】ベーシック「山田」でフィルタリングします。Sub オートフィルタ()' Dim keyWord As String ' keyWord = "山田" ' '「Sheet1」シートの1行目（Rows(1)）のB列（Field:=2）を「山田」でフィルタリングする Worksheets("Sheet1").Rows(1).AutoFilter Field:=2, Criteria1:=keyWord 'End Sub【パターン2】ワイルドカード「山田を含む」でフィルタリングします。Sub オートフィルタ()' &n...
2019.01.28 12:29Excelで値のみコピーするクリップボードとのデータのやり取りです。Excelでコピペする際、[ctrl] + C で値のみコピーできるようにします。ExcelをコピーしてExcel以外のテキストエディタ等に張り付ける際に便利です。Sub 値のみコピー()' Dim clipOjt As New DataObject ' With clipOjt .SetText ActiveCell.Value '選択したセルの値をデータオブジェクトへ渡す .PutInClipboard 'データオブジェクトのデータをクリップボードに入れる End With'End Sub上記のマクロを [ctrl] + C に登録します。上記のマクロがコンパイルできない場合は、以下の記事を参照してくださ...
2019.01.28 11:59Excelでデフォルトを値のみ貼り付けにするクリップボードとのデータのやり取りです。Excelでコピペする際、[ctrl] + V で値のみ貼り付けできるようにします。Excel以外のテキストをコピーしてExcelに張り付ける際に便利です。Sub 値のみ貼り付け()' Dim cbCopy As Variant 'コピーした値 Dim clipOjt As New DataObject ' cbCopy = "" ' With clipOjt .GetFromClipboard 'クリップボードからデータオブジェクトへ値を渡す cbCopy = .GetText 'データオブジェクトのデータを変数に入れる End With...
2019.01.25 15:26Excelの全シート名を一覧化Excelブック内にある全シートの名前を取得し、ブックの最後にその一覧を作成します。Sub 全シート名書き出し()' Dim wsCount As Long 'シート数 ' wsCount = Worksheets.Count ' Worksheets.Add after:=Worksheets(wsCount) 'シート名を一覧にするためのシートを作成 Dim i As Long For i = 1 To wsCount Range("A" & i) = Sheets(i).Name 'A列にシート名を書き出し Next i 'End Su...
2019.01.25 15:21Excelの全シートを左寄せExcelブック内にある全シートを一度に左上揃い（A1セル選択状態）にさせます。大量にシートが分かれているブックの体裁を整える際に便利です。Sub 全シートを左寄せ()' Application.ScreenUpdating = False '画面の更新を停止させる ' Dim i As Long For i = 1 To Worksheets.Count Sheets(i).Activate ActiveWindow.ScrollColumn = 1 'スクロール列の設定 ActiveWindow.ScrollRow = 1 'スクロール行の設定 ...