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

[µo°Ý] Ãö©ó(¶K¦n¸ê®Æ«á¡A¦Û°Ê±N¨ä¥L®æ¦ìªº¤½¦¡©¹¤U©Ôªº°ÝÃD)

[µo°Ý] Ãö©ó(¶K¦n¸ê®Æ«á¡A¦Û°Ê±N¨ä¥L®æ¦ìªº¤½¦¡©¹¤U©Ôªº°ÝÃD)

³o¬O¤@­ÓÃö©ó¦Û°Ê±N¤½¦¡¤U©Ôªº°ÝÃD¡A½Ð±Ð¦U¦ì¤j¤j¡A¦p¦ó¥Îvba«ü¥O§¹¦¨¦¹°Ê§@¡A¸ê®Æ»¡©ú¦p¤U¡G
°²³]ªí1ªºaÄæbÄæcÄ檺³Ì«á¤@Äæ¤w¸g¶K¦n¤µ¤Ñªº¼Æ­È¡A¦p¦ó¦Û°Ê¦bdÄæ»PeÄ檺³Ì«á¤@¦Cªº¤½¦¡©¹¤U©Ô¤@®æ§¹¦¨¦Û°Ê¹Bºâ



ªí1
aÄæ        bÄæ          cÄæ           dÄæ                        eÄæ
¤é´Á      ³Ì°ª»ù     ³Ì§C»ù      ³Ì°ª-³Ì§C»ù        ³Ì°ª»ù/³Ì§C»ù
1/1        8000        7900        100                       1.01
1/2        8100        8000        100                       1.01
1/3        8150        8000

¦^´_ 1# yagami12th
¬O³o¼Ë¶Ü?
  1. Option Explicit
  2. Sub Ex()
  3.     [D2:E2].AutoFill Destination:=Range("D2:E" & [C2].End(xlDown).Row) ', Type:=xlFillCopy
  4. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

ÁÂÁÂGBKEE¤j¡A§Ú·Ó³o­Ó¹Á¸Õ§ï¼g¬Ý¬Ý¡A¦]¬°¬Q±ß¸Õªº®É­Ô¡A·Q§â¤½¦¡¦Û°Ê©¹¤U©Ô¨ì³Ì«á¤@Äæ¡A¦ý¬Q¤Ñ¥Î¿ý¨îªº¤è¦¡Æ[¹î®É¡A¥¦·|¤@ª½¥Î¦³Äæ¦ì¼Æ¥Øªºµ{¦¡½X¡D¡D

TOP

¦^´_ 2# GBKEE

ÁÂÁÂGBKEE¤jªº¸Ñµª

¦ý¦³¥t¤@­Ó°ÝÃD¡A°²³]ªí1ªºaÄæbÄæcÄ檺³Ì«á¤@Äæ¤w¸g¶K¦n¤µ¤Ñªº¼Æ­È¡A¦Û°Ê¦bdÄæ»PeÄ檺³Ì«á¤@¦Cªº¤½¦¡©¹¤U©Ô¤@®æ§¹¦¨¦Û°Ê¹Bºâ¡A
¦ý¦]¬°8:45¤§«eb4¸òc4Äæ(8150¸ò8000)¬O¨S¦³¸ê®Æªº¡A©Ò¥H·Q¸Õ¼g¨âºØ±ø¥ó§PÂ_¦¡¡A·Q½Ð±Ð¦p¦ó¼g³o­Ó±Ò°Ê±ø¥ó¡G

²Ä¤@ºØ¡G¦]8:45¤§«e¦bb4Äæ¸òc4Äæ¬OªÅ¥Õ¨S¸ê®Æªº¡A¦pªG8:45¦³¸ê®Æ¶i¨Ó(¤£¬°ªÅ¥Õ¡A«h°õ¦æ¬Y¥¨¶°if cells(4,3)<>"" then .....  <<<<¤£ª¾¥¿¤£¥¿½T

²Ä¤GºØ¡G³o¤@ºØ¬O³]©w¦¨®É¶¡±Ò°Ê¡A¦b8:45:05¬í®É¡A«h°õ¦æ¡D¡D¡D

ªí1
aÄæ        bÄæ          cÄæ           dÄæ                        eÄæ
¤é´Á      ³Ì°ª»ù     ³Ì§C»ù      ³Ì°ª-³Ì§C»ù        ³Ì°ª»ù/³Ì§C»ù
1/1        8000        7900        100                       1.01
1/2        8100        8000        100                       1.01
1/3        8150        8000

TOP

¦^´_ 4# yagami12th
  1. Option Explicit
  2. Private Sub Workbook_Open()
  3.     If [COUNTA(Sheet1!D2:E2)] = 2 Then     'D2:E22. ³£¦³¸ê®Æ     'Sheet1! : ¬°¤u§@ªí¦WºÙ
  4.     'If Application.CountA(Sheet1.[D2:E2]) = 2 Then              'Sheet1. : ¬°¤u§@ªí¼Ò²Õ¦WºÙ
  5.     'If Application.CountA(Sheets("Sheet1").[D2:E2]) = 2 Then
  6.         Ex
  7.     Else
  8.         Application.OnTime #8:45:00 AM#, "EX"                  'EX ¦b¤@¯ë¼Ò²Õ
  9.         'Application.OnTime #8:45:00 AM#, "EX"                  'EX ¦b¤@¯ë¼Ò²Õ
  10.         'Application.OnTime #8:45:00 AM#, "ThisWorkbook.EX"    'EX ¦bª«¥ó¼Ò²Õ
  11.         'Application.OnTime TimeValue("8:45:00"), "EX"         'EX ¦b¤@¯ë¼Ò²Õ
  12.         'Application.OnTime Now + TimeValue("0:0:30"), "EX"    '30¬í«á°õ¦æEX
  13.     End If
  14. End Sub
  15. Sub Ex()
  16.     With Sheet1
  17.     .[D2:E2].AutoFill Destination:=.Range("D2:E" & .[C2].End(xlDown).Row) ', Type:=xlFillCopy
  18.     End With
  19. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# GBKEE

ÁÂÁÂGBKEE¤j¡AÃö©óµ{¦¡½X¤¤ªº²Ä¤T¦æ¬O¥Î"¤èªk¤@"ªº·N«ä¶Ü¡H¦³¤@ÂI¬Ý¤£À´¡A·Q½Ð±ÐGBKEE¤j¡A¤£¹L«á­±¤ñ¸û¬ÝªºÀ´¡A¥Îontimeªº³¡¥÷À³¸Ó¬O"¤èªk¤G"

TOP

¦^´_ 6# yagami12th
3¦¡³£¬O¤u§@ªí¨ç¼Æ"=COUNTA(D2:E2)"
¤èªk¤@  ­pºâ D2:E2 ªº¸ê®Æ¼Æ
[COUNTA(Sheet1!D2:E2)]                                                 [  ** Excelµ{¦¡ªºª«¥ó,¨ç¼Æ,¦WºÙ(¤£¥i¬OÅܼƠ ) **    ]   
Application.CountA(Sheet1.[D2:E2])                              Application.¤u§@ªí¨ç¼Æ(vba¤ä´©ªº)
Application.CountA(Sheets("Sheet1").[D2:E2]) <=>Application.CountA(Sheets("Sheet1").Range("D2:E2"))

TOP

¦^´_ 7# GBKEE

ÁÂÁÂGBKEE¤j¡A¥¿¦b®ø¤Æ¥B§ï¼g¤¤¡A¥ý¸Õ¸Õ¬Ý·|¤£·|¦¨¥\¡C

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD