わいえー@鹿目まどか同盟No.48

キューポッシュとPICマイコンと元乗り鉄と

わいえー@鹿目まどか同盟No.48

キューポッシュとPICマイコンと元乗り鉄と

【VBA】データ入力と時間計測

'******特定履歴シート******Sub DP_shukei() '★★実際のシート列で要調整★★ Dim xlLastRow As Long 'Excel自体の最終行 Dim LastRow As Long '最終行 xlLastRow = Worksheets("特定履歴").Cells(Rows.Count, 1).Row 'Excelの最終行を取得 LastRow = Workshee

わいえー@鹿目まどか同…

    • 【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", "STATUSBAR", "TOOLBAR", "LINK", "ACCC

      わいえー@鹿目まどか同…

      • 【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.Enabled = False End IfEnd SubSub CommandBut

        わいえー@鹿目まどか同…

        • 【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 + "秒" , 0)FCLOSE(FID)FUNCTION now() GETTIME

          わいえー@鹿目まどか同…

        【VBA】データ入力と時間計測

        わいえー@鹿目まどか同盟No.48

        マガジン

        • キューポッシュほむらさんと始めてみる PICマイコン
          8本
        • PICマイコンソースコード
          4本

        記事

          【コマンドプロンプト】テキスト検索

          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

          わいえー@鹿目まどか同…

          【コマンドプロンプト】テキスト検索

          わいえー@鹿目まどか同盟No.48

          【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 Call Sheets("特定履歴").rireki_exportElse

          わいえー@鹿目まどか同…

          【VBA】シート内容を外部テキスト保存

          わいえー@鹿目まどか同盟No.48

          【VBA】アクティブなシートの内容をメッセージ非表示でテキストファイルで保存する

          Sub rireki_export()Application.DisplayAlerts = FalseSheets("特定履歴").CopyActiveWorkbook.SaveAs Filename:="C:\Users\ya570\Desktop\export.txt", _ FileFormat:=xlText, Local:=True Ac

          わいえー@鹿目まどか同…

          【VBA】アクティブなシートの内容をメッセージ非表示でテキストファイルで保存する

          わいえー@鹿目まどか同盟No.48

          コマンドプロンプト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\Desktop\export.txt | findstr /r /v ".*2回目.*"

          わいえー@鹿目まどか同…

          コマンドプロンプトfindstrによる正規表現でのテキスト検索

          わいえー@鹿目まどか同盟No.48

          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] cnt = cnt + 1 ENDIFNEXTWENDCTRLWIN(Get_ID

          わいえー@鹿目まどか同…

          UWSC 指定アプリのウィンドウのID取得　

          わいえー@鹿目まどか同盟No.48

          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_ID[cnt] = ALL_WIN_ID[i] cnt = cnt +

          わいえー@鹿目まどか同…

          UWSC 指定ウィンドウのID取得

          わいえー@鹿目まどか同盟No.48

          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_ID[i],ST_TITLE) ) <> 0 THEN//ウインドウ内のキャプショ

          わいえー@鹿目まどか同…

          UWSC　指定ウィンドウが表示するまで待機してクリック

          わいえー@鹿目まどか同盟No.48

          uwsc 複数アプリの名前を付けて保存

          //★アプリ複数起動後に、各アプリで処理ver★//★アプリ複数起動後に、各アプリで処理ver★//マウス、キーボードの操作禁止LOCKHARDEX(0, 0)//全角入力の場合は半角入力に直しておくIF GETKEYSTATE(TGL_IME) THEN KBD(VK_KANJI,CLICK)//同じタイトルのウィンドウを探して一旦閉じるFOR i = 0 TO GETALLWIN()-1 IF POS( "MAGI" ,STATUS(ALL_WIN_ID[i],ST_TI

          わいえー@鹿目まどか同…

          uwsc 複数アプリの名前を付けて保存

          わいえー@鹿目まどか同盟No.48

          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 CTRLWIN(ALL_WIN_ID[i], CLOSE2) ENDIFNEXT//起動する

          わいえー@鹿目まどか同…

          uwsc　定型作業自動マクロ　テスト

          わいえー@鹿目まどか同盟No.48

          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 = cnt + 1 ENDIFNEXT//PRINT Get_ID[0] + "

          わいえー@鹿目まどか同…

          UWSC 部分一致でウィンドウタイトル検索

          わいえー@鹿目まどか同盟No.48

          【VBA】スキャン文字列の判定

          Private Sub CommandButton1_Click() UserForm2.ShowEnd Sub---------------------------------------------------------Private Sub CheckBox1_Enter() 'フォーカスをテキストボックスへ移動する With TextBox1 .SetFocus .SelStart = 0 .SelLen

          わいえー@鹿目まどか同…

          【VBA】スキャン文字列の判定

          わいえー@鹿目まどか同盟No.48

          【VBA】スキャン文字列の判定

          Private Sub CommandButton1_Click() UserForm2.ShowEnd Sub---------------------------------------------------------Private Sub Checkbox1_enter()With TextBox1 .SetFocus .SelStart = 0 .SelLength = Len(TextBox1)End

          わいえー@鹿目まどか同…

          【VBA】スキャン文字列の判定

          わいえー@鹿目まどか同盟No.48