c_c_lai

¦^´_ 1# ÂŤÑÄR¦À

1. WR = Range("A1").End(xlDown).Row + 1

½Æ»s¥N½X

½Ð§ï¦¨

1. WR = Range("A" & Rows.Count).End(xlUp).Row + 1

½Æ»s¥N½X

¸Õ¸Õ¬Ý¡C

c_c_lai

¦^´_ 5# ÂŤÑÄR¦À
§AÀ³¸Ó½Ð±Ð stillfish00 ¤j¤jªº¡C

1. Sub RecordPrice()
   
2.     Dim WR As Long
   
3.     Dim I As Byte
   
4. 
   
5.     If Range("E2") < 1 Then Exit Sub
   
6.     Application.EnableEvents = False
   
7.     .
   
8.     .
   
9.     .
   
10.     Application.EnableEvents = True
    
11. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 7# ÂŤÑÄR¦À
§A¦Û¤v¥ý´ú¸ÕÆ[¹î¦³¦ó®t²§¡H
µª®×¬O¤@¼Ëªº¡C
®t§O¶È¦b©ó§A¬~¾þ®É±N´«¬~¦çªA©ñ¦bª×«Ç»P¨Æ¥ý®³¶i¯D«Ç
¦³¦ó®t§O¡H