-
-
Excel VBAでメールに画像を挿入してOutLookで送信する方法
2022/09/17 -EXCELマクロVBA
Excel VBAでメールに画像を挿入してOutLookで送信するコードを書きました。 HTMLメールの本文にQRコードなどを挿入したいときに使用できます。 画像ファイルをBase64でエンコードして ...
-
-
Excel VBAでSendUsingAccountがエラーになる、アカウントが切り替わらない問題の対処法
2022/08/16 -EXCELマクロVBA
Excel VBAでメール送信をするプログラムを作成するとき、SendUsingAccountに送信元のメールアドレスを設定することで、アカウントの切り替えをすることができます。 検索すると以下のコー ...
-
-
Excel VBAでOutlookに添付ファイル付き下書きを保存するコード
2022/08/13 -EXCELマクロVBA
Excel VBAでOutlookを操作して、添付ファイル付きのメールの下書きを作成し、保存するコードを書きました。 Excel VBAでOutlookを操作して、添付ファイル付きのメールの下書きを作 ...
-
-
Excel VBAでLoop処理中にキーボードなどで割り込むと処理が止まってしまう場合の対処法
2022/08/02 -EXCELマクロVBA
Excel VBAでLoop処理中にキーボードなどで割り込むと処理が止まってしまう場合の対処法です。 以下のようなLoop処理を作った場合の話です。 Do 処理 DoEvents Loop 処理のとこ ...
-
-
Excel VBAで列のアルファベットを取得するコード
2022/03/13 -EXCELマクロVBA
Excel VBAで列のアルファベットを取得する方法です。 こんな表があるとします。 会員番号 名前 1 やまだ 2 いとう 3 ごとう 会員番号はA列、名前はB列です。 名前の列のアルファベットを取 ...
-
-
複数のシートを選択して印刷画面を開くコード（Excel VBA）
2022/02/12 -EXCELマクロVBA
複数のシートを選択して印刷画面を開くコードです。
12Sheets(Array("Sheet1", "Sheet2", "Sheet3")).SelectApplication.CommandBars.ExecuteMso "PrintPreviewAndPrint"ファイル→印刷 をクリックしたときの画面を開くことができるので、 微調整して印刷する ...
-
-
他のファイルの一部をコピーして貼り付けるコード（Excel VBA）
2022/02/12 -EXCELマクロVBA
Excel VBAで他のエクセルファイルを開き、一部を書式を含めてコピペするコードを書きました。
12345678910111213Dim strPath As StringDim wbOpen As WorkbookstrPath = "ファイルのパス"Set wbOpen = Workbooks.Open(strPath)wbOpen.Worksheets("Sheet1").Columns("A:D").CopyThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial xlPasteAllApplication.CutCopyMode = FalsewbOpen.Closeコピー対象のファイルを ...
-
-
VBAでフォルダ内のCSVファイルを全部新しいSheetとして追加するコード
2020/12/27 -EXCELマクロVBA
VBAでフォルダ内のCSVファイルを全部新しいSheetとして追加するコードを書きました。 月ごとのCSVファイルを一つのワークブックに追加したいときに便利です。 [crayon-6484c83d32 ...
-
-
VBAでシートのデータの最終行、最終列を取得するコード
2020/12/26 -EXCELマクロVBA, プログラミング
を書きました。 以前は、最終行までループさせるために、上から順番に見ていって、 空欄があったら終わりという方法でチェックしていましたが、 もっと良い方法を見つけました。 以下のコードだと、空欄があって ...
-
-
VBAでフォルダのプロパティのサイズ、ファイル数、フォルダ数を取得するコード
2020/12/19 -EXCELマクロVBA
VBAでフォルダのプロパティのサイズ、ファイル数、フォルダ数を取得するコードを書きました。 フォルダを右クリックして、プロパティを表示するときと似たような内容を取得することができます。 フォルダサイズ ...