Sub get_sameday() Worksheets("Sheet1").Activate Dim i, pv Dim vl pv = 1 For i = 30 To 1 Step -1 vl = InStr(Cells(i, 1).Value, "即答") If vl <> 0 Then vd = Mid(Cells(i, 1).Value, 8, 3) Worksheets("Sheet2").Activate Cells(pv, 1).Value = vd p…

Sub IE_table_output() Application.ScreenUpdating = False 'IEの起動Dim objIE As Object Set objIE = GetObject("", "InternetExplorer.Application") objIE.Visible = True objIE.navigate "https://www.kanzaki.com/docs/html/htminfo16.html" ' ページ…

入力画面での操作 HELPを出したままプログラムを編集 ctrl+tab 定数設定 CONST #UP=0 CONST #DOWN=1 CONST #UP=2 CONST #DOWN=3 よく使う命令 ACLS '全て消去（初期化） XSCREEN H,V(サンプル倍率,合成モード,アスペクト比) サンプル倍率 1以上。数値が大き…