EXCEL 【Excel】【VBA】ADODB.Streamを利用したコード変換機能付きCSVファイル取込
ADODB.Stream (Microsoft ActiveX Data Objects)を使えば、コード変換をしながらＣＳＶデータを取り込むことが可能。ＣＳＶファイルの作成元のシステムが、Windows(Excel）以外で、文字コードを気...
EXCEL 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 複数イ...
資料 【WSL2】【Docker 】バックアップ用ローカルWordPress環境の構築
かなり手間取ったので忘れないようにメモ１ WSL２のインストールと設定Windows Subsystem for Linux (WSL) を Windows 10 にインストールする | Microsoft Docs公式サイトの通りに設定す...
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 つ以上の条件を指定して、どのコード行を実行するかをその条件に基づいて決定できることにあります。 同じ操作を多くの回数繰...
