Tech 連絡先を Outlook から Word にコピーする
VBSub CopyCurrentContact() Dim OutlookObj As Object Dim InspectorObj As Object Dim ItemObj As Object Set OutlookObj = Cr...
Tech 
Tech PowerPoint で空のテキスト ボックスを削除する
Sub RemoveEmptyTextBoxes() Dim SlideObj As Slide Dim ShapeObj As Shape Dim ShapeIndex As Integer For Each SlideObj In Ac...
EXCEL Excel ワークシートから空の行を削除する
Sub DeleteEmptyRows() SelectedRange = Selection.Rows.Count ActiveCell.Offset(0, 0).Select For i = 1 To SelectedRange If ...
Tech Outlook でメールを作成する
Sub MakeMessage() Dim OutlookMessage As Outlook.MailItem Set OutlookMessage = Application.CreateItem(olMailItem) Outlook...
EXCEL 分岐とループ
この記事で使用した単純なプログラムでは、コードを 1 行ずつ、上から下へ順番に実行しました。 プログラミングの真価は、1 つ以上の条件を指定して、どのコード行を実行するかをその条件に基づいて決定できることにあります。 同じ操作を多くの回数繰...
VBA 変数
この記事で使用したサンプル コードでは、アプリケーションで既に作成されたオブジェクトを操作しました。独自のアプリケーションで一時的に使用する目的で、値または他のオブジェクトへの参照を保存するオブジェクトを独自に作成することもできます。これら...
Tech 【 WSL2】nginxのインストール後、Windows10のEdgeでnginxの起動画面確認する方法
WSL2でUbuntsu20.04TLSをインストールできたので、さっそくWebサーバのサービスを起動させてみた。nginxのインストールターミナルから下記のコマンドを入力（今回、新規にインストールしたwindows Terminalを利用...
Ubuntu Windows10でUbuntsu20.4を起動（WSL2バージョン）
Windows 10 用 Windows Subsystem for Linux のインストール ガイドを活用この通りに行ったらインストールできた。WindowsTerminalが便利！
EXCEL HYPERLINK関数からURL抜き出し
上記サイトのコードをお借りしました。ちょっとだけ改造Sub test2() Dim r As Range Set r = Sheets("Sheet1").Range("A3") Debug.Print GetURL(r)End SubFu...
EXCEL 【Excel 】【VBA】XMLファイル作成とファイル出力
上記サイトのコードがすごく役に立ちました。ありがとうございます。今、自分のExcelのバージョンでは、”DOMDocument60”が最新MSXML2.DOMDocument だとエラーがでたので修正しました。それから、エラー処理を好み（F...
