VBAで多重ループを使っていると、重くなって反応なしになってしまう。簡単な対策は、ループの中にDoEventsを挟むだけ。それだけ。毎回ループ毎にDoEventsを挟むと時間がかかるので、数回に一回ループを挟む形にする。 for i = x to y if i mod z = 0 then Do…

def sosu(s): for i in range(2,s-1): if s % i ==0: return ("素数じゃない") else: return ("素数") sosu(10)