DOSコマンドの実行アクションを使って、任意のディレクトリにフォルダを作成してみました。 デスクトップに「sample」というフォルダを作成しています。

DOSコマンドの実行アクションを使って、コマンドラインからExcelファイルを開いてみました。 アクションの中にExcelのフルパスを書き込んでいます。

Word文書の開き方はこちら kei-kmj.hatenablog.com VBScriptの実行でWord文書を開いたあと、ウィンドウを取得します。 ショートカットキーで置換ダイアログを開き、文書中の「平成」を「令和」に置換。 最後にファイルを保存して閉じています。

Power Automate DesktopでPowerPointを開くにはVBScript の実行アクションを使います。 VBScript の実行アクションの中に↓のように書きます。 Set powerPointObj = CreateObject("PowerPoint.Application") powerPointObj.Visible = True

Power Automate Desktopでwordファイルを開くにはVBScript の実行アクションを使います。 既存のファイルを開く場合、アクションの中に下記のように記述します。 Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWo…

仕様は次の通り 勤続年数によって付与日数を変える 新入社員以外は1月1日に一斉付与 新入社員は入社後半年で付与 パート社員には比例付与 前年分から有休を消化する 消滅日数も知りたい drive.google.com

GetOpenFilenameメソッドを使ってファイル選択ダイアログを開くと、カレントフォルダが表示されます。 任意のフォルダを指定したいときは、カレントフォルダを移動してからGetOpenFilenameメソッドを使います。 ファイルを選択しなかったときの処理もしてお…

Pythonのfind_allメソッドでYahoo!のトピックス一覧を取得してみました。 import requests from bs4 import BeautifulSoup, element LOAD_URL = "https://news.yahoo.co.jp/topics" html = requests.get(LOAD_URL) soup = BeautifulSoup(html.content, "html…

PADでＱRコードを作成してみました。 変数に任意のテキストを渡します。今回はこのブログのURLをQRコードにしてみます。 2行目の中身がこちら パラメータを設定すればカスタマイズできます。 size：QRコードの縦横サイズを定義します。✕ではなくx(エックス) …

月初と月末の日付を取得してみました。 日付選択ダイアログが出てきて、選択した日付はDate型の変数に渡されます。 Date型の時間部分を除いて、月初の日付部分だけを取得します。 翌月の月初から1日引いてあげると月末になります。

Year: DateTime値の年の部分 Month: DateTime値の月の部分 Day: DateTime値の日の部分 DayOfWeek: 曜日(Sunday, Monday etc) DayOfYear: DateTime値の年中の日数 Hour: DateTime値の時間の部分 Minute:DateTime値の分の部分 Second: DateTime値の秒の部分 ・…

今日から100日後の日付を取得し、その日が何曜日かを表示します。 表示するとこんな感じです。

SUM関数とAVERAGE関数を入れてみます。 SUM関数は↓のように入力しています。

通常、ExcelはCSVファイルをShift-JISで読み込むため、UTF-8で保存されたCSVファイルをダブルクリックして開くと文字化けしてしまいます。 文字化けを回避するには、BOM付きのUTF-8にします。 import requests url="https://〇〇〇" response=requests.get(u…

WebサイトのHTMLファイルを テキスト形式 で保存します。 import requests url="https://〇〇〇" response=requests.get(url) filename="file.txt" with open(filename, mode="w",encoding="utf-8") as f: f.write(response.text)

データの状態を色で識別するのはあまり好きではありませんが どうしてもそうしたい時があります。 そういう時はユーザー定義関数で。 Function ColorCount(R1 As Range, C As Range) As Long Dim r As Range Application.Volatile 'ユーザー定義関数を自動再…

セルをダブルクリックするごとに色を変えたい。 そんなときはイベントプロシージャを使います。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("B7:H12")) Is Nothing Then Exit Sub '指…

任意の日で始まるカレンダーを関数だけで作成してみました。 ※30,31日始まりには対応していません。 好きな日始まり会社カレンダー.xlsx - Google ドライブ 曜日をweekday関数で数値化して、月初の日が入る場所を決めます。 月初の日が決まったら、前日まで…