2021-09-20から1日間の記事一覧

2021-09-20

excelのThisWorkbookに放り込んでおいてカレントに「old」フォルダを作っておくとセーブの度に履歴を「old」フォルダに保存して「保存しました」と喋ってくれるVBAのテスト

Public Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Const FOLD_NAME = "old" Dim fold_path As StringDim fold_path2 As StringDim objFileSysDim strPathDim Y As StringDim m As StringDim d As StringDim h As StringDim s …

2021-09-20

文字を入力するとPCが喋ってくれるVBS

tooljp.com 'http://tooljp.com/CommandBank/Windows/Speak/PC-speak.html'文字を読み取りPCに喋らせるDim Message, SpeakMessage=InputBox("PCに喋らせる文字を入力してください。","Speak") if len(Message)>0 then Set Speaker=CreateObject("sapi.spvoic…