ÂŤÑÄR¦À

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

c_c_lai

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

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

ÂŤÑÄ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

¦^´_ 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¦À

¦^´_ 18# c_c_lai

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

ÂŤÑÄR¦À

¦^´_ 18# c_c_lai


    ¹ï

ÂŤÑÄR¦À

¦^´_ 17# c_c_lai
ªÑ²¼-1.rar (18.51 KB)

¤U¸ü¦¸¼Æ: 1

2016-4-8 10:33

§Ú¬O¥´ºâ¤§«á¦h¤@Äæ¨Ó¼g¤J®É¶¡¡AÅý¨C­Ó®É¶¡³£¤À¶}¡AC¤j«ç»ò¬Ý??

c_c_lai

¦^´_ 16# ÂŤÑÄR¦À
Like this?

¤U¸ü (16.52 KB)

2016-4-8 10:28

c_c_lai

¦^´_ 16# ÂŤÑÄR¦À
¨º[A] ®É¶¡°Z¤£³Q«áªÌ¼Å»\¡H