Tech

EXCEL

日付ブックマークに日付に置換

Sub 日付ブックマークに日付に置換() Dim objRange As Word.Range Set objRange = Me.Bookmarks("日付ブックマーク").Range objRange = Date End Sub  W...
Tech

TechNet ギャラリーは読み取り専用になり、間もなく廃止される予定です。必ず、プロジェクトとコードをバックアップしてください

たまに見てたscriptcenterが、間もなく廃止のとのこと!プロジェクトとコードをバックアップしないと
Tech

My DNS への通知スクリプト

papanda925@papandaSV:/usr/local/bin$ cat NoticeIP.shcurl --interface eth0 -u userID:Password ポイントは、--interface eth0  複数イ...
Tech

連絡先を Outlook から Word にコピーする

VBSub CopyCurrentContact() Dim OutlookObj As Object Dim InspectorObj As Object Dim ItemObj As Object Set OutlookObj = Cr...
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 つ以上の条件を指定して、どのコード行を実行するかをその条件に基づいて決定できることにあります。 同じ操作を多くの回数繰...
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が便利!