½Ð°Ý¤@ӹϪíÀH®É¶¡¨B¶iªº¤@Óvba°ÝÃD
- ©«¤l
- 81
- ¥DÃD
- 31
- ºëµØ
- 0
- ¿n¤À
- 117
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2013-8-3
- ³Ì«áµn¿ý
- 2024-4-30
|
½Ð°Ý¤@ӹϪíÀH®É¶¡¨B¶iªº¤@Óvba°ÝÃD
§Ú§Æ±æ°µ¤@Ó²{³f¥H¤Î´Á³fªº»ù®tªí
¼Æ¾Ú±qdde±µ¦¬¶i¨Ó
³sµ²¨ì¤u§@ªí1ªºb2©Mb3
¨C¶¡¹j¤@¤ÀÄÁ¬ö¿ý¤@¦¸
¨Ã±N«ü¼Æ·|»s¦¨¹Ïªí,¨Ã¥B¥uÅã¥Ü³Ì·sªº60µ§¸ê®Æ
§Ú¼g¦b
Private Sub Worksheet_Calculate()¤§¤U
¥´¶}«áµo²{¤£·|°Ê!!!¦ý¬O¥un§Ú¦b¤u§@ªí°µÓ§R°£¦Cªº°Ê§@!!
´N·|¥¿±`§@°Ê!!
½Ð°Ý¬O§_¬O¦]¬°§Ú¨Ã¤£¬O¦bdde¥¿±`¦ê±µ®É¶¡,©Ò¥H¤£·|¥¿±`§@°Ê
©ÎªÌ¦]¬°¨ä¥L°ÝÃD©O?
ªþ¤WÀɮ׽Хý¶i«üÂI!!¦³³Ò¤F!! |
-
-
test.rar
(24.21 KB)
|
|
|
|
|
|
- ©«¤l
- 319
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 309
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2k
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-6-24
- ³Ì«áµn¿ý
- 2024-4-27
|
§R°£¦C -> Worksheet_Calculate ·|°õ¦æ
dde°Ê -> Worksheet_Calculate ·|°õ¦æ |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 1# laieven
DDE ªº«ü©w¿é¤JÄæ¦ì¸ê®Æ¶×¤J©Î²§°Ê¡A ¸g´ú¸Õ¸gÅç Worksheet_Change
¥H¤Î Worksheet_Calculate ³£¤£·|³QIJ°Êªº¡C
¤@¯ë¸Ñ¨M¤§¹D¡A¬O¥Î©w®É±½´y¤è¦¡¨Ó³B²z¦¹¤@§x´o°ÝÃD¡C |
|
|
|
|
|
|
- ©«¤l
- 81
- ¥DÃD
- 31
- ºëµØ
- 0
- ¿n¤À
- 117
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2013-8-3
- ³Ì«áµn¿ý
- 2024-4-30
|
½Ð±Ð°ÊºA¹Ïªí½d³ò---->Àx¦s®æªºÈÀHµÛ®É¶¡Åܰʪº°ÝÃD
³oÓ値ªºÅܰʬOn¥ÎÀ³¨ì°ÊºA¹Ïªí¤¤
Åý¹ÏªíÀHµÛ®É¶¡§â³Ì·sªº¹ÏªíÅã¥Ü¥X¨Ó
§Úªº·Qªk¬O¥i¥H§â¥L¼g¦bworkshee calculate¤¤
ÅýÀɮפ@¶}±Ò´N¶i¤Jpºâ
·íµM¹Ïªíªº¼Æ¾Ú¬O¥Îdde¦ê³s¶i¤Jexcel¤¤ |
|
|
|
|
|
|
- ©«¤l
- 81
- ¥DÃD
- 31
- ºëµØ
- 0
- ¿n¤À
- 117
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2013-8-3
- ³Ì«áµn¿ý
- 2024-4-30
|
¦^´_ 3# c_c_lai
·PÁ¦^À³!!§Ú¤F¸Ñ¤F!!
¦¤W§Ú¤]´ú¸Õ¤F¤@¤U!!¥¿±`ªº³¡¥÷¬O¨S°ÝÃDªº!
³Ñ¤Uªº°ÝÃD§Ú¥t¥~µo°Ý¤F
¤]½Ð¥ý¶i¤£§[«ü¾É!!·PÁ |
|
|
|
|
|
|
- ©«¤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 ©ó 2016-10-2 10:37 ½s¿è
¦^´_ 3# c_c_lai
DDE ªº«ü©w¿é¤JÄæ¦ì¸ê®Æ¶×¤J«áȪº²§°Ê,Worksheet_Calculate ¬O·|³QIJ°Êªº
¦^´_ 4# laieven
¸Õ¸Õ¬Ý- Option Explicit
- Private Sub Worksheet_Calculate()
- Dim NowDateTime, nowTime, startTime, stopTime, t As Integer
- Dim tr As String
- 'Application.ScreenUpdating = False
- NowDateTime = Now '²{¦bªº®É¶¡È, ¥h±¼¾ã¼Æ³¡¥÷,
- nowTime = (NowDateTime - Int(NowDateTime)) '±o¨ì²{¦bªº®É¶¡È
- startTime = Range("A2") '¶}½L®É¶¡, ¨Ò¦p: "09:00:00 AM"
- stopTime = Range("A3") '¦¬½L®É¶¡, ¨Ò¦p: "01:30:00 PM"
- If nowTime <= startTime Then '©|¥¼¶}½L
- Exit Sub
- ElseIf nowTime > stopTime Then '¤w¸g¦¬½L
- Exit Sub
- ElseIf Range("B2") <> "-" And Range("B2") <> "###" Then '²M½Lªºª¬ºA, ¤£¨ú¨ä¸ê®Æ
- ' xy = Int((nowTime - startTime) * 1440) + 1 '¨C®t 300 ¬í´N´«¤@¦C
- ' Range("g1").Value = xy
- ' Range("g2").Value = xy + 59
- t = Application.Text(Time - [A6], "[M]") + 1 'pºâ¶¡®æªº¤ÀÄÁ
- Range("B5").Offset(t).Resize(, 4) = Range("B2:E2").Value
- End If
- 'Application.ScreenUpdating = True
- Application.StatusBar = Time
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|