sget

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
pv = pv + 1
Worksheets("Sheet1").Activate

End If

Next

End Sub

テーブルスクレイピング

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"

' ページの表示完了待ち｡
While objIE.readyState <> 4 Or objIE.Busy = True
DoEvents
Wend

On Error Resume Next 'エラー回避用

I = 1
L = 0
J = objIE.document.all.Length '要素数

Cells(I, 1).Value = "No"

Dim A As Object

For Each A In objIE.document.getElementsByTagName("tr")

For L = 0 To 20

Cells(I, L + 1) = A.Children(L).innerText

Next

I = I + 1

Application.StatusBar = I & "/" & J

Next

On Error GoTo 0

Cells.WrapText = False

Application.ScreenUpdating = True
Application.StatusBar = False

End Sub

メモ

入力画面での操作

HELPを出したままプログラムを編集　ctrl+tab

 

定数設定

CONST #UP=0

CONST #DOWN=1

CONST #UP=2

CONST #DOWN=3

よく使う命令

ACLS '全て消去（初期化）

XSCREEN H,V(サンプル倍率,合成モード,アスペクト比)

サンプル倍率　1以上。数値が大きいと拡縮回転が滑らかになる。レトロ調なら1（省略）

合成モード　デフォルト（0）で良い

アスペクト比b0.1～10 MSXとかx68k的な画面にする時に

SPANIMとか使うときにはメインループにCALL SPRITEと入れる

BEEP 効果音No,,ボリューム

BEEP 100,,5

CASE AAA

  WHEN 0:

    ssssssssssssssssss

 WHEN 1:

   sfsfsfsfsfsfsfsfssf

 OTHERWISE:

  fhaaafhkalf

ENDCASE

スプライトの位置を操作

SPOFS S,100,200

SPOFS S OUT SX,SY

IF (BUTTON(0,#B_LUP,0)) THEN MY=-1

 IF (BUTTON(0,#B_LDOWN,0)) THEN MY=1

 IF (BUTTON(0,#B_LLEFT,0)) THEN MX=-1

 IF (BUTTON(0,#B_LRIGHT,0)) THEN MX=1

SPANIM "XY+",-60,target_x,target_y,loop

コリジョン

SPCOL S,原点からのX位置,原点からのY位置,幅,高さ,8

SPCOL S,-4,-4,8,8

SPFUNC S,"SUB1"

SPFUNC内で自分自身のスプライト番号を取得

 S=CALLIDX()