ÂŤÑÄR¦À

¦^´_ 18# c_c_lai

¦]¬°§Ú¨ì®É­Ô¥i¯à·|§ì100¤äªÑ²¼¡A©È¸ê®Æ¶q¤Ó¤j¹q¸£¶]¤£°Ê¡A©Ò¥H¤~­nºÉ¥i¯à´î¤Ö¤£¥²­nªº¸ê®Æ

c_c_lai

¦^´_ 20# ÂŤÑÄR¦À
shtRTD(RTD) ¤u§@ªí³æ¤º®e¡G

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     '  ·í D2 Äæ¦ì¦³²§°Ê®É¡A «h¥h©I¥s RecordPrice ªº¤èªk (Method)¡C
   
3.     If Target.Address = "$C$2" Or Target.Address = "$E$2" Or Target.Address = "$G$2" Or Target.Address = "$I$2" Or _
   
4.               Target.Address = "$K$2" Or Target.Address = "$M$2" Or Target.Address = "$O$2" Or _
   
5.               Target.Address = "$Q$2" Or Target.Address = "$S$2" Or Target.Address = "$U$2" Then
   
6.         Call RecordPrice(Target.Address)
   
7.     End If
   
8. End Sub

½Æ»s¥N½X

Module1 ¼Ò²Õ¤º®e¡G

1. Option Explicit
   
2. 
   
3. Sub RecordPrice(TG As String)
   
4.     Dim WR As Long
   
5. 
   
6.     If Range("A1") < 1 Then Exit Sub
   
7.     '  WR = Range("A1").End(xlDown).Row + 1
   
8.     WR = Range(TG).End(xlDown).Row + 1      '  ­×§ï¦¨¥HIJµo¤§Äæ¦ì¬°§PÂ_°òÂI
   
9. 
   
10.     '  ActiveWindow.ScrollRow = WR - 5           '  ¥uÅã¥Ü³Ì·s´Xµ§¸ê®Æ
    
11. 
    
12.     Cells(WR, 1).NumberFormatLocal = "hh:mm:ss"
    
13.    
    
14.     If WR = 3 Then  '  Á`¶q¦³²§°Ê®É¤~°O¿ý
    
15.         Cells(WR, 1).Resize(, 21) = [A2:U2].Value
    
16.     Else
    
17.         Cells(WR, 1) = [A2]
    
18.         Range(Left(TG, 3) & WR) = Range(TG)
    
19.         Range(Left(TG, 3) & WR).Offset(, -1) = Range(TG).Offset(, -1)
    
20.     End If
    
21. End Sub

½Æ»s¥N½X

ÂŤÑÄR¦À

¦^´_ 22# c_c_lai

Private Sub Worksheet_Change(ByVal Target As Range)

    '  ·í D2 Äæ¦ì¦³²§°Ê®É¡A «h¥h©I¥s RecordPrice ªº¤èªk (Method)¡C

    If Target.Address = "$C$2" Or Target.Address = "$E$2" Or Target.Address = "$G$2" Or Target.Address = "$I$2" Or _

              Target.Address = "$K$2" Or Target.Address = "$M$2" Or Target.Address = "$O$2" Or _

              Target.Address = "$Q$2" Or Target.Address = "$S$2" Or Target.Address = "$U$2" Then

        Call RecordPrice(Target.Address)

    End If

End Sub


C¤j¥H¤Wªº¦a¤è¦pªG§Ú¦³100ÀɪѲ¼¡A¬O­n¥´100­Ó¶Ü??:'(

c_c_lai

¦^´_ 21# ÂŤÑÄR¦À
¼ÐÀY²Ä¤@¡B¤G¦C¤½¦¡½Ð¦Û¦æ¸É¤W (¦]§Ú¦¹ºÝµL±Ò°Ê¨é°Ó³nÅé¡A©Ò¥HµLªk¥[¤J¤½¦¡·|·Ó¦¨ExcelÀÉ®×  "µLªk¦^À³")
ªÑ²¼0.rar (18.82 KB)

¤U¸ü¦¸¼Æ: 3

2016-4-8 10:51

¦Ü©ó¦p¦ó³B¸Ì¤é´Á°ÝÃD¡A§A¦A¦Û¦æ¥ý¬ã¨s¬Ý¬Ý¡C

c_c_lai

¦^´_ 23# ÂŤÑÄR¦À
¦p§A¤£¥h¯S§O«ü©wÄæ¦ìªºÄ²µoªº¸Ü¡A¨º¥u­n¥ô¦óÄæ¦ì¦³²§°Ê§¡·|IJµo¨Æ¥óªº¡C

ÂŤÑÄR¦À

¦^´_ 25# c_c_lai
´ú¸Õ«á¨S¦³¥ô¦ó¤ÏÀ³

c_c_lai

¦^´_ 26# ÂŤÑÄR¦À
§A¬O«ü "ªÑ²¼0.xlsm" ¶Ü¡H
ÄR¤G¦Cªº°é°Ó°Ó«~ªº¹ïÀ³¤½¦¡¦³¥[¤J¶Ü¡H

ÂŤÑÄR¦À

¦^´_ 27# c_c_lai


    ¦³ªü¡A¦ý¬O¨S¦³¥ô¦ó¤ÏÀ³
¹ï¡A§A­è­èµ¹§ÚªºªÑ²¼0§Ú§â¤½¦¡©ñ¶i¥h«á¨S¦³¤ÏÀ³

c_c_lai

¦^´_ 28# ÂŤÑÄR¦À
²Ä¤G¦Cªº¥ô¦óÁ`¶q¦³²§°Ê®É¡A§¡¥¼¦³¼g¤J¸ê®Æ¶Ü¡H
§A¬O¥Î§¹¾ãªº "ªÑ²¼0.xlsm" ¨Ó´ú¸Õªº¶Ü¡H
¦p¤´¤@¼Ë¡A¤W¶Ç§A¥Ø«e¥¿¦b´ú¸ÕªºÀɮסC
§_«h§Úªþ¤Wªº¹Ï¥Ü¬O¦p¦ó²£¥Íªº¡H

c_c_lai

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

¤U¸ü (18.89 KB)

2016-4-8 11:59