GBKEE

¦^´_ 1# blue2263
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.         Application.Calculation = xlManual
   
4.         [A1] = ""
   
5.         With [A2]
   
6.             .Cells = ""
   
7.             .Cells = "=A1*5"  '¤½¦¡
   
8.             MsgBox .Value
   
9.             [A1] = 10
   
10.             .Calculate             '[A2]ªº­pºâ
    
11.             MsgBox .Value
    
12.         End With
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# blue2263

¸Õ¸Õ¬Ý,¬O§_¦p¦¹

1. '¨ç¼Æ¤½¦¡Âà¼g¬°­È
   
2.          .Range("a" & ­º¦C & ":c" & §À¦C - 2).Calculate
   
3.          .Range(Cells(­º¦C, Ä渹), Cells(§À¦C - 2, §ÀÄæ)).Calculate
   
4.          .Range("a" & ­º¦C & ":c" & §À¦C - 2) = .Range("a" & ­º¦C & ":c" & §À¦C - 2).Value
   
5.          .Range(Cells(­º¦C, Ä渹), Cells(§À¦C - 2, §ÀÄæ)) = .Range(Cells(­º¦C, Ä渹), Cells(§À¦C - 2, §ÀÄæ)).Value

½Æ»s¥N½X