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

¦p¦ó§ó§ï¨ä¥LªÑ¸¹¡A­n­þ¨Ç¨BÆJ¡H

¦p¦ó§ó§ï¨ä¥LªÑ¸¹¡A­n­þ¨Ç¨BÆJ¡H

½Ð±Ðª©¤j°ª¤â«üÂI¡FÁÂÁÂ~~
1.§Ú¦b[¶×¤J]Äæ¡A¾Þ§@[¸ê®Æ]¡÷[¶×¤J¥~³¡¸ê®Æ]¡÷[½s¿è¬d¸ß]¡÷§â[2303Áp¹q]§ï¦¨[2330¥x¿n¹q]¡÷[°O¿ý]Äæ«o¤£¯à§ó·s¦¨[2330¥x¿n¹q]Data¡A5¤ÀÄÁ«á¤SÁÙ­ì[2303Áp¹q]½Ð°Ý¦p¦ó³B¸m¡H§ó§ï¨ä¥LªÑ¸¹¡A­n­þ¨Ç¨BÆJ¡H
2.½d¨Ò¡G10¬í§ó·s¸ê®Æ=>Application.OnTime Now + TimeValue("00:00:10"), "MyDee"  '³]©w 10¬í«á °õ¦æ MyDee µ{§Ç
    Exit Sub
­n§ï¦¨5¤À§ó·s¸ê®Æ=>Application.OnTime Now + TimeValue("00:05:00"), "MyDee"  '³]©w 5¤À«á °õ¦æ MyDee µ{§Ç
³o¼Ë¹ï¶Ü¡H­n¦p¦ó¦sÀÉ¡H

ªÑ²¼¬ö¿ý.zip (15.57 KB)

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 17# c_c_lai
Meadª©¤jc_c_laiª©¤j¡F§A­Ì¦n¡F
·PÁ¨â¦ì¥ý¶i¤ÏÂЫü¾É¡AÅý·s¤â½m²ß¡BÅé·|
¦A¦¸¦V¨â¦ì»¡Án "·P¿E¨â¦ì¥ý¶i"¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 18# GBKEE
­ì¨Ó¬O¨ú¥X¨ä³Ì¤j­È¡C

TOP

¦^´_ 17# c_c_lai
¨ú®øµù¸Ñ ¬Ý¬Ý
¬O»¡©ú [    ]   ªº¥Îªk

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-4-28 11:07 ½s¿è

¦^´_ 16# GBKEE
¸g´ú¸Õ²×©óÅé·|¤F¡A¦­°_ªº³¾¨à¯uªº¦³ÂΦY¡I

  Sub Ex()
        ' [xxx]  'xxx ¬°¬¡­¶Ã¯ªºª«¥ó ©Î¨ç¼Æ  ¦ý¤£¥i¥H¬OÅܼÆ
        ' MsgBox [max({5,100,9})]
       [¤u§@ªí1!B3] = 0.666
        [¤u§@ªí1!B3].NumberFormatLocal = "h:mm;@"
       MsgBox [¤u§@ªí1!B3]                   '¶Ç¦^ªº¬O­È   .Value                 0.666
       MsgBox [¤u§@ªí1!B3].Text          '¶Ç¦^ªº¶Ç¦^Àx¦s®æªº®æ¦¡       15:59
       [¤u§@ªí1!B4] = [¤u§@ªí1!B3]       '±a¤Jªº¬O­È   .Value                 0.666
       [¤u§@ªí1!B5] = [¤u§@ªí1!B3].Text  '±a¤Jªº¬OÀx¦s®æªº®æ¦¡       15:59
          'Rng.Value = .ResultRange.Rows(3).Value
        'Rng ²Ä2­Ó¦ì¸m¬O ¼Æ­È ±N¥¦³]©w ¬°®É¶¡®æ¦¡
        'Rng.Cells(2).NumberFormatLocal = "h:mm;@"      
    End Sub

§Ú±N MsgBox [max({5,100,9})] Marked¡Aµo²{¦n¹³µL§@¥Î¡A
½Ð°Ý¥¦¦³¦ó§@¥Î¡H

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-4-28 10:37 ½s¿è

¦^´_ 15# c_c_lai
  1. Option Explicit
  2. Sub Ex()
  3.      '[xxx]  'xxx ¬°¬¡­¶Ã¯ªºª«¥ó ©Î¨ç¼Æ  ¦ý¤£¥i¥H¬OÅܼÆ
  4.     MsgBox [max({5,100,9})]
  5.    [¬ö¿ý!B3] = 0.666
  6.     [¬ö¿ý!B3].NumberFormatLocal = "h:mm;@"
  7.     MsgBox [¬ö¿ý!B3]          '¶Ç¦^ªº¬O­È   .Value
  8.     MsgBox [¬ö¿ý!B3].Text     '¶Ç¦^ªº¶Ç¦^Àx¦s®æªº®æ¦¡   

  9.       'Rng.Value = .ResultRange.Rows(3).Value
  10.     'Rng ²Ä2­Ó¦ì¸m¬O ¼Æ­È ±N¥¦³]©w ¬°®É¶¡®æ¦¡
  11.     'Rng.Cells(2).NumberFormatLocal = "h:mm;@"
  12.    
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 14# GBKEE
½Ð±Ð±z¡A¥N¸¹ = .[C1] ªº [C1] ¨ä¥»¨­¦b©w¸q¤W«üªº¬O Range ÁÙ¬O Cells¡A ¥¦­ÌÂà¥X­È·|¬O Value ÁÙ¬O Text¡H
·íµM¦b³]©w®É¡A´N¤w«D±`²M·¡¸ÓÄ檺ÄÝ©Ê¡A §Ú­n¤F¸Ñªº¬O¥¦¦bÀ³¥Î­±¤W¥¿½Tªº¨Ï¥Î¡C
Ä´¦p»¡¤§«e´£¹Lªº¡G¦pªG¸ÓÄæ¦ì¬O®É¶¡Äæ¡A¦ý¸ÓÄæ "A3" Àx¦sªº¬O "=TIME(LEFT(A2,LEN(A2)-4),MID(A2,LEN(A2)-3,2),RIGHT(A2,2))"
©Î¬O A3 ¬O Web ª½±µ¶×¤Jªº®É¶¡¡A¦ý¸ÓÄæ¦ì®æ¦¡¨Ã«D "®É¶¡"¡A¤]³\¬O "¦Û­q" ¤]»¡¤£©w¡A¨º»ò¦¹®É   ®É¶¡ = .[A3]¡A
©Ò±o¨ìªº­È·|¬O 0.604166667 ÁÙ¬O 14:30 (°²³]·í®É®É¶¡¬° 02:30:00 PM)¡H À³¸Ó¦p¦ó¥h°µ¥¿½Tªº«Å§i¡H

TOP

¦^´_ 12# cfuxiong
ÀH³oExcel ¦sÀÉ´N¥i¥H¦sÀÉ ©Î ¶×¥X¦sÀÉ ¨ä¥L Excel ÀÉ®× ¥i¶×¤J¨Ï¥Î
¶i¤J VBA  µøµ¡ ÁÙ¦³¤@³~®|
¦p¹Ï
                        

TOP

¦^´_ 12# cfuxiong
¦^´_ 11# GBKEE
§Ú±N GBKEE ¤j¤jªºµ{¦¡ (µy¥[­×¹¢) ©ñ¤J ªÑ²¼¬ö¿ý2¡A cfuxiong ¦Ñ§Ìªº©ñ¤J¨ì ªÑ²¼¬ö¿ý1 ¤¤¡A³Ì¥ýªºÀÉ®×·íµM¬O ªÑ²¼¬ö¿ý ¤F¡C
«e¨âªÌ³£¬O±Nµ{¦¡½X©ñ¸m¦b ThisWorkbook µ{¦¡°Ï¤º°õ¦æªº¡A ¦P®É C1 Äæ¦ì²§°ÊªºÀˬdµ{¦¡½X¤]¸òµÛ­×¥¿ (­ì¥»¬O "Module1.MyDee")¡A
  1. '   Sheet2 (¬ö¿ý)  ªºµ{¦¡°Ï°ì
  2. Option Explicit

  3. Private Sub Worksheet_Change(ByVal Target As Range)
  4.     If Target(1).Cells = [C1] Then Run "ThisWorkbook.MyDee"
  5. End Sub
½Æ»s¥N½X
Ä@¨â¦ì¦³­Ó´r§Öªº©P¦ì©]±ß¡I
ªÑ²¼¬ö¿ý.rar (12.55 KB)
ªÑ²¼¬ö¿ý1.rar (13.13 KB)
ªÑ²¼¬ö¿ý2.rar (11.43 KB)

TOP

¦^´_ 11# GBKEE
GRKEEª©¤j±ß¦w¡F§Ú¬O·s¤â°ÝÃD¯S§O¦h¡F½Ð°Ý¶K¤WVBAµ{¦¡¤£ª¾¦p¦óÀx¦s~~~
§Ú¾Þ§@¦p¤U[¤u¨ã]¡÷[¥¨¶°] ¡÷[VB½s¿è¾¹] ¡÷¶K¤WVBAµ{¦¡=>­n¦p¦óÀx¦s¡H
¯à§_«ü¾É¡HÁÂÁÂ~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD