¦p¦ó§ó§ï¨ä¥LªÑ¸¹¡Anþ¨Ç¨BÆJ¡H
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦p¦ó§ó§ï¨ä¥LªÑ¸¹¡Anþ¨Ç¨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ªÑ¸¹¡Anþ¨Ç¨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¼Ë¹ï¶Ü¡Hn¦p¦ó¦sÀÉ¡H |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦^´_ 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
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 18# GBKEE
ì¨Ó¬O¨ú¥X¨ä³Ì¤jÈ¡C |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ 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 |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 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 |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 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- ' Sheet2 (¬ö¿ý) ªºµ{¦¡°Ï°ì
- Option Explicit
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target(1).Cells = [C1] Then Run "ThisWorkbook.MyDee"
- End Sub
½Æ»s¥N½X Ä@¨â¦ì¦³Ó´r§Öªº©P¦ì©]±ß¡I
ªÑ²¼¬ö¿ý.rar (12.55 KB)
ªÑ²¼¬ö¿ý1.rar (13.13 KB)
ªÑ²¼¬ö¿ý2.rar (11.43 KB)
|
|
|
|
|
|
|
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦^´_ 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
|
|
|
|
|