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）を「山田」でフィルタリングする ...
2019.01.29 11:37Excelでオートフィルタを使用する頻繁に使用する4つのパターンをご紹介します。ここではフィルタリングする言葉を「keyWord 」としますが、ダブルクォーテーション（ " " ）でくくれば文字列も使用できます。【パターン1】ベーシック「山田」でフィルタリングします。Sub オートフィルタ()' Dim keyWord As String ' keyWord = "山田" ' '「Sheet1」シートの1行目（Rows(1)）のB列（Field:=2）を「山田」でフィルタリングする Worksheets("Sheet1").Rows(...
2019.01.28 12:29Excelで値のみコピーするクリップボードとのデータのやり取りです。Excelでコピペする際、[ctrl] + C で値のみコピーできるようにします。ExcelをコピーしてExcel以外のテキストエディタ等に張り付ける際に便利です。Sub 値のみコピー()' Dim clipOjt As New DataObject ' With clipOjt .SetText ActiveCell.Value '選択したセルの値をデータオブジェクトへ渡す .PutInClipboard 'データオブジェクト...
2019.01.28 11:59Excelでデフォルトを値のみ貼り付けにするクリップボードとのデータのやり取りです。Excelでコピペする際、[ctrl] + V で値のみ貼り付けできるようにします。Excel以外のテキストをコピーしてExcelに張り付ける際に便利です。Sub 値のみ貼り付け()' Dim cbCopy As Variant 'コピーした値 Dim clipOjt As New DataObject ' cbCopy = "" ' With clipOjt .GetFromClipboard 'クリッ...
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 ...
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.Scroll...