ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

»ù®æ¬ö¿ýªº»yªk¦³¼g¿ù¶Ü??

¦^´_ 18# c_c_lai

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

TOP

¦^´_ 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. Sub RecordPrice(TG As String)
  3.     Dim WR As Long

  4.     If Range("A1") < 1 Then Exit Sub
  5.     '  WR = Range("A1").End(xlDown).Row + 1
  6.     WR = Range(TG).End(xlDown).Row + 1      '  ­×§ï¦¨¥HIJµo¤§Äæ¦ì¬°§PÂ_°òÂI

  7.     '  ActiveWindow.ScrollRow = WR - 5           '  ¥uÅã¥Ü³Ì·s´Xµ§¸ê®Æ

  8.     Cells(WR, 1).NumberFormatLocal = "hh:mm:ss"
  9.    
  10.     If WR = 3 Then  '  Á`¶q¦³²§°Ê®É¤~°O¿ý
  11.         Cells(WR, 1).Resize(, 21) = [A2:U2].Value
  12.     Else
  13.         Cells(WR, 1) = [A2]
  14.         Range(Left(TG, 3) & WR) = Range(TG)
  15.         Range(Left(TG, 3) & WR).Offset(, -1) = Range(TG).Offset(, -1)
  16.     End If
  17. End Sub
½Æ»s¥N½X

TOP

¦^´_ 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­Ó¶Ü??:'(

TOP

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

TOP

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

TOP

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

TOP

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

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-4-8 11:49 ½s¿è

¦^´_ 27# c_c_lai


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

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD