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

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

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

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

マガジン

最近の記事

【VBScript】キー入力検知 VBAマクロ起動

Option Expliciton error resume nextDim ExcelDim strFunctionDim FilePathDim appSet Excel = CreateObject("Excel.Application")FilePath = "C:\Users\ya570\Desktop\特定検索リニューアルテスト.xls"Set app = CreateObject("Excel.Application")app.Visible = trueapp

    • 【VBA】テキストボックス内でenterキーが押された時に別のボタンを押す

      Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then Call CommandButton1_Click KeyCode = 0 End IfEnd Sub

      • 【VBA】テキストデータ検索

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

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

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

        マガジン

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

        記事

          【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

          【UWSC】指定ウィンドウ内のキャプション文字取得

          【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

          【VBA】月末日以外のボタンを無効にする

          【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

          【UWSC】経過秒数と現在日時を記録する

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

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

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

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

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

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

          コマンドプロンプト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による正規表現でのテキスト検索

          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取得 

          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取得

          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 指定ウィンドウが表示するまで待機してクリック

          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 複数アプリの名前を付けて保存

          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 定型作業自動マクロ テスト