記事一覧
【VBA】データ入力と時間計測
'******特定履歴シート******Sub DP_shukei() '★★実際のシート列で要調整★★ Dim xlLastRow As Long 'Excel自体の最終行 Dim LastRow As Long '最終行 xlLastRow = Worksheets("特定履歴").Cells(Rows.Count, 1).Row
もっとみる【UWSC】指定ウィンドウ内のキャプション文字取得
//全角入力の場合は半角入力に直しておくIF GETKEYSTATE(TGL_IME) THEN KBD(VK_KANJI,CLICK)DIM get_ID[GETALLWIN()]DIM m = 0DIM count_m = 0//DIM array[] = "BTN", "LIST", "TAB", "MENU", "TREEVIEW", "LISTVIEW", "EDIT", "STATIC
もっとみる【VBA】月末日以外のボタンを無効にする
Private Sub Worksheet_Activate()'特定履歴シート Dim y As Long, m As Long y = Year(Now) m = Month(Now) If Date = DateSerial(y, m + 1, 1) - 1 Then CommandButton2.Enabled = True Else CommandButton2.Ena
もっとみる【UWSC】経過秒数と現在日時を記録する
DIM t = GETTIME()date_now = text(now(), "yyyy/mm/dd hh:nn:ss")//ここに自動化処理のコードstr = GETTIME() - t//*******は端末名DIM FID = FOPEN("**********.txt", F_READ OR F_WRITE)FPUT(FID, date_now + "<#TAB>" + str + "秒
もっとみる【コマンドプロンプト】テキスト検索
REM 特定履歴検索ツール@echo offchcp 65001@echo 【グローバルIDのコピー貼り付けは、マウスを右クリック】REM 環境に合わせて変更するcd C:\Users\ya570\Desktop\特定履歴set /p serach_id=検索するグローバルIDを入力してください: chcp 932findstr /S /N %serach_id% *.txt pause
【VBA】シート内容を外部テキスト保存
Private Sub Workbook_BeforeClose(Cancel As Boolean)'セルクリア後は保存しないで閉じるDim cell_count As StringSheets("特定履歴").Selectcell_count = WorksheetFunction.CountA(ActiveSheet.Range("A:A"))If cell_count > 0 Then
もっとみる【VBA】アクティブなシートの内容をメッセージ非表示でテキストファイルで保存する
Sub rireki_export()Application.DisplayAlerts = FalseSheets("特定履歴").CopyActiveWorkbook.SaveAs Filename:="C:\Users\ya570\Desktop\export.txt", _ FileFormat:=xlText, Local:=True
もっとみるコマンドプロンプトfindstrによる正規表現でのテキスト検索
@echo offchcp 65001del data_marge_1st.txtdel data_marge_2nd.txtset time2=%time: =0%rem 「time」から切り出した数字をそれぞれ変数に代入set hour=%time2:~0,2%set minute=%time2:~3,2%findstr /r ".*%date%.*" C:\Users\ya570\Deskt
もっとみるUWSC 指定アプリのウィンドウのID取得
DIM Get_ID[GETALLWIN()]DIM cnt = 0WHILE cnt < 2FOR i = 0 TO GETALLWIN()-1//POSを使うことで、ウィンドウタイトルは部分検索もできる IFB POS( "MAGI" ,STATUS(ALL_WIN_ID[i],ST_TITLE) ) <> 0 THEN Get_ID[cnt] = ALL_WIN_ID[i] c
もっとみるUWSC 指定ウィンドウのID取得
DIM Get_ID[GETALLWIN()]DIM cnt = 0//実行するファイルを指定するEXEC("",False)EXEC("",False)FOR i = 0 TO GETALLWIN()-1//POSを使うことで、ウィンドウタイトルは部分検索もできる IFB POS( "MAGI" ,STATUS(ALL_WIN_ID[i],ST_TITLE) ) <> 0 THEN Get
もっとみるUWSC 指定ウィンドウが表示するまで待機してクリック
//「完了」ウィンドウが表示されるまでループ監視REPEAT DIM f = 0 SLEEP(0.1) UNTIL check_finish(f) <> 1//「完了」ウィンドウの監視する関数PROCEDURE check_finish(f)FOR i = 0 to GETALLWIN()-1//「MAGI」のウィンドウがあったら、 IF POS( "MAGI" ,STATUS(ALL_WIN_I
もっとみるuwsc 複数アプリの名前を付けて保存
//★アプリ複数起動後に、各アプリで処理ver★//★アプリ複数起動後に、各アプリで処理ver★//マウス、キーボードの操作禁止LOCKHARDEX(0, 0)//全角入力の場合は半角入力に直しておくIF GETKEYSTATE(TGL_IME) THEN KBD(VK_KANJI,CLICK)//同じタイトルのウィンドウを探して一旦閉じるFOR i = 0 TO GETALLWIN()-1 IF
もっとみるuwsc 定型作業自動マクロ テスト
★アプリ単体で立ち上げたver★//全角入力の場合は半角入力に直しておくIF GETKEYSTATE(TGL_IME) THEN KBD(VK_KANJI,CLICK)//同じタイトルのウィンドウを探して一旦閉じるFOR i = 0 TO GETALLWIN()-1 IF POS( "MAGI" ,STATUS(ALL_WIN_ID[i],ST_TITLE) ) <> 0 THEN CTRLWI
もっとみるUWSC 部分一致でウィンドウタイトル検索
EXEC("notepad")SLEEP(5)DIM Get_ID[2]DIM cnt = 0FOR i = 0 TO GETALLWIN()-1//POSを使うことで、ウィンドウタイトルは部分検索もできる IF POS( "タイトル" ,STATUS(ALL_WIN_ID[i],ST_TITLE) ) <> 0 THEN Get_ID[cnt] = ALL_WIN_ID[i] cnt
もっとみる【VBA】スキャン文字列の判定
Private Sub CommandButton1_Click() UserForm2.ShowEnd Sub---------------------------------------------------------Private Sub CheckBox1_Enter() 'フォーカスをテキストボックスへ移動する With TextBox1 .SetFocus
もっとみる【VBA】スキャン文字列の判定
Private Sub CommandButton1_Click() UserForm2.ShowEnd Sub---------------------------------------------------------Private Sub Checkbox1_enter()With TextBox1 .SetFocus .SelStart = 0
もっとみる