åãå¦çãå¤ãç¹°ãè¿ãå ´åã«DoEventsãå®è¡ãã¦å¦çãWinodwsã®OSå´ã«ç§»è¡ãããã¨ã¯å¤§äºã§ããããã¯ãã«ãã«ãæ¸ãã¦ããã¾ããã§ã¯ãä¸ä½ã©ã®ãããªç®å®ã§DoEventsãå¼ã³åºãããããã®ã§ããããããã¡ãããå¦çå 容ãç°å¢ã«ãä¾åãããã¨ãããã¨æãã¾ãããããã§ã¯ä¸ã¤ã®å ·ä½ä¾ã示ãã¾ãã ããVBã®ã¢ããªã±ã¼ã·ã§ã³ã§ãã£ã¹ã¯ã»ãã¡ã¤ã«ããï¼ã¬ã³ã¼ããå¼ã³åºãã¦ã¯å¦çãè¡ãã¾ãã å¦çã¯ãã¡ã¤ã«ã®EOFã¾ã§ç¶ãã¾ãããã¡ã¤ã«ã«æ°åãæ°ç¾ä½ã®ã¬ã³ã¼ãã§ã¯åé¡ãªãã£ãã®ã§ãããï¼ãã¡ã¤ã«ã«30,000ã¬ã³ã¼ãããã¨åé¡ãçãã¾ããã åé¡ã®å å®¹ï¼ DoEventsãå¼ã³åºãã¦ããªãã¨ãå®è¡ä¸ãã³ã°ãã¦ããããè¦ããããã«ãã¦ã¹æä½ãå¹ããªããããã§ã以ä¸ã«DoEventsãå¼ã³åºãåæ°ã¨ãã®å¦çæéã®å®é¨ãè¡ã£ãã®ã§ãã®çµæã示ãã¾ãã
ç°¡åã«è¨ãã¨ã OS ã«å¶å¾¡ã渡ãã£ã¦ãã¨ã§ãã(ãã«ããã®ã¾ãã¾) æéãæããã«ã¼ãå¦çãªã©ã®å ´åãã«ã¼ããçµããã¾ã§å¶å¾¡ã¯ç¬å ããã¦ãã¾ãã¾ãã ã§ãã®ã§ã«ã¼ãä¸ã¯ OS ã Excel ãã®ãã®ã«ãåæç»ããããæããä¸ãã¾ããã éä¸ã« DoEvents ãå ¥ããã¨å¶å¾¡ã OS ã«æ¸¡ãã®ã§ãOS ã¯æºã¾ã£ã¦ããå¦çãããã§è¡ããã¨ãã§ãã¾ãã çµæããã©ã¼ã ã®åæç»ãªã©ãè¡ããããã¨ã«ãªãã¾ãã 注æç¹ã§ããã Private Sub CommandButton1_Click() Dim i As Long For i = 1 To 50000 DoEvents Cells(i,1) = "" Next i End Sub Private Sub CommandButton2_Click() MsgBox "hoge" End Sub ã£ã¦ãããã©ã¼ã ã®ã³ã¼ãããã£ãå ´åã Do
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}