½Ð±Ð¦p¦ó±NDDE¸ê®Æ¶K¤Wsheet2ªºÀx¦s®æ
- ©«¤l
- 21
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- «ÌªF
- µù¥U®É¶¡
- 2014-12-21
- ³Ì«áµn¿ý
- 2019-1-4
|
½Ð±Ð¦p¦ó±NDDE¸ê®Æ¶K¤Wsheet2ªºÀx¦s®æ
¥»©«³Ì«á¥Ñ Apple007 ©ó 2014-12-21 03:50 ½s¿è
½Ð±Ð¦U¦ì«e½ún¦p¦ó±N¦p¹ÏªÑ²¼¸ê®Æ,CÄ欰DDE¦¨¥æ¶qdate,§Ún±N¦¨¥æ¶qÅܰʤj©ó100±i®É,¶K¤Wsheet2ªºC3Àx¦s®æ,²Ä¤Gµ§¶K¤W¤U¤@¦CC4,.....¨Ì§Ç³vµ§©¹¤U¶K¤W,¦p¹Ï©Ò¥Ü!½Ð°Ýn¦p¦ó½s¼gµ{¦¡,ÁÂÁÂ~ps.¦]èµù¥UÅv©|²L¥i§_½Ð¤j¤j¶K¤W¨Ó¶±,ÁÂÁÂ! |
-
-
date.JPG
(55.5 KB)
|
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- «ÌªF
- µù¥U®É¶¡
- 2014-12-21
- ³Ì«áµn¿ý
- 2019-1-4
|
¦^´_ 2# ashan0418
·PÁÂashan0418¤j,§Ú²{¦b¦³¤@Ó°ÝÃD:´N¬O¦b¤â°Ê¿é¤J>100®É¬O¥¿±`ªº,¦ý¦pªG½L¤¤³z¹LDDEªº¸ê®Æ¸õ°ÊÅܰʶq(>100®É),«o¤£·|¿é¥X¨ìsheet2,¤£ª¾¤j¤j¬O§_¯à¦³¨ä¥L¸Ñ¨Mªº¤è¦¡,¥i¥H§PÂ_¦¹ºØ¦Û°Ê¸ê®ÆÅܰʪºµ{¦¡¼gªk,thank you!! |
|
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- «ÌªF
- µù¥U®É¶¡
- 2014-12-21
- ³Ì«áµn¿ý
- 2019-1-4
|
¥»©«³Ì«á¥Ñ Apple007 ©ó 2014-12-26 11:27 ½s¿è
¦^´_ 4# ashan0418
¸ê®Æ¬O¬ù¨C¤Q¬í§Y®É§ó·s,§ÚexcelÀÉ
ªÑ²¼¦¨¥æ¶q.rar (4.97 KB)
¦³ddeªº³sµ²,¦w¸Ë³ohttp://www.sinotrade.com.tw/ec/eleader1/setup_eLeader.exe¬Ý½L³nÅé(Testname:B133043133),¦b½L¤¤CÄ檺¦¨¥æ¶q´N·|ÅÜ°Ê. |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-12-29 15:43 ½s¿è
¦^´_ 5# Apple007
¤â°Ê¿é¤J>100®É¬O¥¿±`ªº
·|IJ°Ê Worksheet_change(ByVal Target As Range) ¤u§@ªí¦³×§ï¨Æ¥óµ{¦¡
½L¤¤³z¹LDDEªº¸ê®Æ¸õ°ÊÅܰʶq(>100®É),Àx¦s®æ¤¤¤½¦¡ÈªºÅÜ°Ê
·|IJ°Ê Sub Worksheet_Calculate() ¤u§@ªí¦³«ºâ¨Æ¥óµ{¦¡
¸Õ¸Õ¬Ý- Dim AR
- Private Sub Worksheet_Calculate()
- Dim i As Integer
- i = 2
- Do While i <= Cells(2, "C").End(xlDown).Row
- If Not IsError(Cells(i, "C")) Then
- If Cells(i, "C") > 100 Then
- With Sheets("sheet2").[C65535].End(xlUp).Offset(1).Resize(, 3)
- If IsEmpty(AR) Then
- .Value = Cells(i, "A").Resize(, 3).Value
- ElseIf Cells(i, "C") <> AR(i - 1, 1) Then
- .Value = Cells(i, "A").Resize(, 3).Value
- End If
- End With
- End If
- End If
- i = i + 1
- Loop
- AR = Range(Cells(2, "C"), Cells(2, "C").End(xlDown))
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- «ÌªF
- µù¥U®É¶¡
- 2014-12-21
- ³Ì«áµn¿ý
- 2019-1-4
|
¥»©«³Ì«á¥Ñ Apple007 ©ó 2014-12-29 14:43 ½s¿è
¦^´_ 6# GBKEE
GBKEE¤j±z¦n:§Ú¦b´ú¸Õµ{¦¡®É,¶}±Òµøµ¡°õ¦æ®É³£·|¥X²{¦p¹Ï°õ¦æ¶¥¬q¿ù»~'13'-«¬ºA¤£²Åªºµe±,±Nµe±Ãö±¼«á«h¥i¥¿±`°õ¦æµ{¦¡,,¤£ª¾þÃä¥X°ÝÃD,¥i§_½ÐGBKEE¤jÀ°§Ú¬d¬Ý¬Ý,ÁÂÁÂ!! |
|
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- «ÌªF
- µù¥U®É¶¡
- 2014-12-21
- ³Ì«áµn¿ý
- 2019-1-4
|
¦^´_ 8# GBKEE
GBKEE¤j¤j±z¦n:§ó·s½X¤wµL°õ¦æ¶¥¬q'13'¿ù»~°ÝÃD,¦ý¸ê®ÆÅܰʮɷ|¦³«½Æ¶K¸ê®Æ¦Üsheet2,¦p¹Ï:
½Ð¤j¤j¦bÀ°§Ú¬Ý¤@¤U,thanks~ |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2017-5-26 20:07 ½s¿è
¦^´_ 9# Apple007
¦A¸Õ¸Õ¬Ý- Private Sub Worksheet_Calculate()
- Dim i As Integer
- For i = 2 To [C65535].End(xlUp).Row
- If IsNumeric(Cells(i, "C")) Then
- 'CÄ欰¦¨¥æ¶q>100 ,DÄ欰¦¨¥æÁ`¶q > F»²§UÄæ°O¿ý¦¨¥æÁ`¶q(**->¦¨¥æ¶q¦³ÅÜ°Ê**)
- If Cells(i, "C") > 100 And Cells(i, "D") > Cells(i, "F") Then
- Cells(i, "F") = Cells(i, "D") 'F»²§UÄæ°O¿ý¦¨¥æÁ`¶q
- Sheets("sheet2").[C65535].End(xlUp).Offset(1).Resize(, 3) = Cells(i, "A").Resize(, 3).Value
- End If
- Else '¬°¶}½L«e²M²zF»²§UÄæ
- Cells(i, "F") = "" 'F»²§UÄæ°O¿ý¦¨¥æÁ`¶q
- End If
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|