INSTR関数を上手く使うと短く記述できると思います。 BGC$=CHR$(指定する数値1)+CHR$(指定する数値2)+・・・CHR$(指定する数値n) IF INSTR(BGC$,CHR$(BGGET(0,X/16,Y/16)))<0 THEN 指定した数値全部と一致しないときの処理 ENDIF