¼x¨D°ª¤âÀ°§Ú¸Ñ¨M¤@¤U³oÓ°ÝÃD
- ©«¤l
- 363
- ¥DÃD
- 38
- ºëµØ
- 0
- ¿n¤À
- 402
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-3-15
|
¼x¨D°ª¤âÀ°§Ú¸Ñ¨M¤@¤U³oÓ°ÝÃD
Sub RecordPrice()
Dim WR As Long
Dim I As Long
WR = Range("A1").End(xlDown).Row + 1
[A2] = TimeValue(Now)
For I = 1 To 42
Cells(WR, I) = Cells(2, I)
Next 'I
With ActiveWindow
If Intersect(Cells(WR, "B"), .VisibleRange) Is Nothing Then .SmallScroll 1
End With
End Sub
¥H¤Wµ{¦¡½X¦pªG§Ún±NA1²ÊÅ骺¼Æ¦r©¹¤U¼g¡ACells(WR, I) = Cells(2, I)³oÓ¦a¤èn«ç»ò§ï??
¥Ø«e©¹¤U¼g²ÊÅé´N·|®ø¥¢¤F |
|
|
|
|
|
|
- ©«¤l
- 363
- ¥DÃD
- 38
- ºëµØ
- 0
- ¿n¤À
- 402
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-3-15
|
¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2015-12-27 16:23 ½s¿è
ÅÜ°Ê°O¿ý.rar (20.51 KB)
¦^´_ 1# ÂŤÑÄR¦À
1.¥Ø«e¾A¥Î±ø¥ó®æ¦¡¤Æªº¤è¦¡³B²z¡A¦ý¬Oì¥ýªºµ{¦¡½X©¹¤U¼gªº®ÉÔ¥u·|¼g¤JÈ¡A¥i¥H§ï¦¨©¹¤U¼g¤£n¥H±ø¥ó®æ¦¡¤Æªº¤è¦¡¥X²{ ¡A³æ¯Â´N±N¦rÅéÅܲʴN¦n(´N¹³§Ú̱N¤@ÓÀx¦s®æ¤ºªº¦rÅéÅܲʳo¼Ë)¡A³o¼Ë¥i¥H¶Ü??
2. ¥t¥~¡A§Ú¤U±³]©wªº¦Û°Ê±²°Ê¡A¥i¥H§ï¦¨¶}Ãöªº¤è¦¡¶Ü(´N¬O¥i¥H¥Î¼öÁä¶}Ãöªº¤è¦¡)??
ÁÂÁÂG¤j¡A³Ìªñ¤W¨Ó½×¾Âªº¤H¦n¤Ö¡AÁÙ¥H¬°³sG¤j³£¨S¦A¤W¨Ó¤F©O |
|
|
|
|
|
|
- ©«¤l
- 363
- ¥DÃD
- 38
- ºëµØ
- 0
- ¿n¤À
- 402
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-3-15
|
¦^´_ 3# c_c_lai
½Ð°ÝC¤j³oÓµ{¦¡½Xn¥[¦bþ¸Ì°Ú?? |
|
|
|
|
|
|
- ©«¤l
- 363
- ¥DÃD
- 38
- ºëµØ
- 0
- ¿n¤À
- 402
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-3-15
|
¦^´_ 5# c_c_lai
¥X²{»yªk¿ù»~¦b¥H¤Uµ{¦¡½X
If (WR = 3) Or _
(.Range("G" & WR - 1) <> .Range("G2")) Then ' Á`¶q¦³²§°Ê®É¤~°O¿ý
¥t¥~½Ð±Ð¤@¤UC¤j¡A§Ú¥Ø«e¦bG2¦³³]©w®æ¦¡±ø¥óG2>9¤~ÅܲÊÅé(¤§«á¥i¯àÁÙ·|³]©w§Oªº±ø¥ó¦b²Ä2Ä檺Àx¦s®æ)¡A½Ð±Ð¤@¤UC¤j©pªºµ{¦¡½X¨Æ³£Åý©Ò¦³ªº¼Æ¦rÅܲÊÅé¡AÁÙ¬O¥u¦³²Ä¤GÄæÅܲÊÅ驹¤U¼g¤~ÅܲÊÅé©O?? |
|
|
|
|
|
|
- ©«¤l
- 363
- ¥DÃD
- 38
- ºëµØ
- 0
- ¿n¤À
- 402
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-3-15
|
¦^´_ 8# c_c_lai
C¤j·PÁ§A¡A¥t¥~¦A¸ò§A½Ð±Ð¤@¤U¡A§A¥Ø«e¼gªºµ{¦¡½X¦bG¦CÅܦ¨¥þ³¡ªºÀx¦s®æ³£¦³®æ¦¡¤Æ±ø¥ó¤F¡A¥i¥H§ï¦¨¥u¦³G2¥h°µ§P©w¡A¦pªG¤j©ó9©¹¤U¼g¤J²ÊÅé´N¦n¡A¦Ó¤£n³s¦P®æ¦¡¤Æ±ø¥ó¤@°_¼g¤J¡A³o¼Ë¥i¥H¶Ü?? |
|
|
|
|
|
|
- ©«¤l
- 363
- ¥DÃD
- 38
- ºëµØ
- 0
- ¿n¤À
- 402
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-3-15
|
¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2015-12-29 20:25 ½s¿è
¦^´_ 10# c_c_lai
C¤j¡A§Ú¦b2¼ÓªþªºªºÀɮ׸̱§A¤U¸ü«á¥´¶}G2¨ºÃ䦳³]©w®æ¦¡¤Æ±ø¥ó(¹³¥H¤U³sµ²ªºªF¦è)¡A§Ú§Æ±æ©¹¤U¼gªºªF¦è¤£n¥X²{®æ¦¡¤Æ±ø¥ó¡A¦Ó³æ¯Âªº´N¦rÅéÅܲʴN¦n¡A³o¼ËC¤j¦³¤ñ¸û¦n²z¸Ñ¶Ü??©êºp°Ý±o¦³ÂI¼Ò½k
http://www.techbang.com/posts/9686-excel-formatting-set-conditions-focus-at-a-glance
|
|
|
|
|
|
|
- ©«¤l
- 363
- ¥DÃD
- 38
- ºëµØ
- 0
- ¿n¤À
- 402
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-3-15
|
¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2015-12-29 21:36 ½s¿è
ÅÜ°Ê°O¿ý.rar (23.95 KB)
¦^´_ 12# c_c_lai
¤£¬O#12ªº¨ºÓªF¦è¡AC¤j©p¤ñ¸û¤@¤U¨â±i¹Ï¡A¦A¬Ý¤@¤U§Ú#11©Ò¦^ªº¤º®e
C¤j¥ª¹Ï¸Ì±ªºG3¬O¦³®æ¦¡¤Æ±ø¥óªº¡A¦ý¥k¹ÏH3¬O¨S¦³ªº¡A§Úªº·N«ä¬O¦b©¹¤U¼gªº¹Lµ{¤¤¥ÑG2§PÂ_¡A¼g¨ìG3.G4...¤@ª½©¹¤U¼g³£¤£n®æ¦¡¤Æ±ø¥ó¸Ì±¥X²{¤½¦¡¡A¹³H3¸Ì±¤@¼Ë¬O¨S¦³¤½¦¡¦ýÅܲÊÅé¡A³o¼Ë¥i¥H¶Ü??
§Ú«üªº¤½¦¡¤£¬OÀx¦s®æ¤ºªº¡A¦Ó¬O®æ¦¡¤Æ±ø¥ó¸Ì±ªº
PS.§Únªº³Ì²×µ²ªG´N¬OG3.G4...©Ò¦³ªºGÄæ¸Ì±³£¨S¦³®æ¦¡¤Æ±ø¥ó¡A¦ý¬O¸Ì±ªº¼ÆȤj©ó9´NÅܲÊÅé |
|
|
|
|
|
|
- ©«¤l
- 363
- ¥DÃD
- 38
- ºëµØ
- 0
- ¿n¤À
- 402
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-3-15
|
¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2015-12-29 21:53 ½s¿è
¦^´_ 12# c_c_lai
§Úªº·Qªk¬Oµ{¦¡½X¸Ì±¤£¯à¥X²{¥H¤Uµ{¦¡½X¡A¦]¬°§Ú¤w¸g¦³¦b¨ä¥L¦a¤è¿é¤J¤½¦¡§PÂ_G2>9ÅܲÊÅé¡A¬O§_¥un§ïÅܼg¤J¤è¦¡´N¥i¥H¤F©O??¦ý§Ú¤£ª¾¹D¬O§_¥¿½T
.[G3].Font.FontStyle = IIf(.[G2] > 9, "²ÊÅé", "¼Ð·Ç")
¼g¤J¤è¦¡§ïÅÜ«üªº¬O¡A¦pªG³o¤@¬íA2~H2³£¬O¤@¯ë¦rÅé¡A¨ºA3~H3´N¼g¤J¤@¯ë¦rÅé¡A¦pªG¤U¤@¬íA2~F2¬°¤@¯ë¦rÅé¡BG2.H2¬°²ÊÅé¡A¨ºA4~F4´N¼g¤J¤@¯ë¦rÅé¡BG2.H2«h¼g¤J²ÊÅé¡A¥H¦¹Ãþ±À¡A¤W±«ç»òÅܤU±´N«ç»ò¼g¡A¦Ó¤£¬O¥t¥~¼g¤½¦¡¥h§PÂ_¡A³o¼Ë¥i¥H¶Ü?? |
|
|
|
|
|
|
- ©«¤l
- 363
- ¥DÃD
- 38
- ºëµØ
- 0
- ¿n¤À
- 402
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-3-15
|
¦^´_ 12# c_c_lai
C¤j·PÁ§ڤw¸g¸Ñ¨M°ÝÃD¤F¡AÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 363
- ¥DÃD
- 38
- ºëµØ
- 0
- ¿n¤À
- 402
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-3-15
|
¦^´_ 12# c_c_lai
C¤j¤W±ªº°ÝÃD§Ú³£¸Ñ¨M¤F¡A¦ý¬OÁÙ¦³¤@Ó¤p°ÝÃD½Ð±Ð¤@¤U¡A¦pªG§Ú¤â°Ê§ó§ïG2ªºÈ¬°¤°»ò¤£·|©¹¤U¼g©O?? |
|
|
|
|
|
|