Private cnt as long

Sub 図形_Click()
　　cnt ＝ cnt+1
　　CALL　本処理BMP2PNG(☆、★)
　　cnt ＝ cnt+10
　　CALL　本処理BMP2PNG(○、●)
　　cnt ＝ cnt+100
　　CALL　本処理BMP2PNG(△、▲)
　　cnt ＝ cnt+1000
　　CALL　本処理BMP2PNG(□、■)
　　cnt ＝ cnt+10000
　　CALL　本処理BMP2PNG(▽、▼)
　　cnt ＝ cnt+100000
cells(1,"a")　＝ cnt
END SUB

で、ガンガン、クリックしたら
地球の表計算ソフトのA1セルはどるなるんだ
短時間に5回クリックすりゃ55555 かそれとも
それ以外で1より大きく50000より小さいか
ま、1以下にはならんだろが、んーーー
机上では、偏差値無限大のオレでも無理だ

by 👤ランベルト星人