¬°¤°»ò§ÚªºExcel ¤£·|°Ê ??
- ©«¤l
- 117
- ¥DÃD
- 34
- ºëµØ
- 0
- ¿n¤À
- 155
- ÂI¦W
- 0
- §@·~¨t²Î
- windows XP
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-19
- ³Ì«áµn¿ý
- 2024-8-29
|
HI~ª©¥D
¤w¸g¥i¥H¥Î¤F, ÁÂÁÂÀ°¦£~
¥t¥~¦A½Ð°Ý¤@¤U(ÁöµMì¨Óªº°µªk¤]¥i¥H)
1.¦pªG¨Ï¥ÎDDE¤Wªº®É¶¡, n«ç»ò°µ¨ì¨C´X¤ÀÄÁ§ì¤@¦¸¸ê®Æ(¦]¬°¦³®ÉÔ·|¸ò¹q¸£ªº®É¶¡¤£¤Ó¤@¼Ë)
DDE®É¶¡®æ¦¡¬OÃþ¦ü¹³134459 --->13:44:59
2.DDE¤@ª½¦b¸õ°Ê,¥i¥H¥Î¨Ï²Ö¿n¶q°O¿ý¶Ü?¤ñ¦p°O¿ý²Ö¿n¤@¤ÀÄÁªº¶R½æ¶q
3.Private Sub Worksheet_Calculate() ¦³¿ìªk¦b¨ä¤¤¤@¨âÓÀx¦s®æµo¥ÍÅܰʤ~IJµovb¶Ü? |
|
ªì¾ÇªÌcolor
|
|
|
|
|
- ©«¤l
- 117
- ¥DÃD
- 34
- ºëµØ
- 0
- ¿n¤À
- 155
- ÂI¦W
- 0
- §@·~¨t²Î
- windows XP
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-19
- ³Ì«áµn¿ý
- 2024-8-29
|
DDE-1.rar (16.98 KB)
hi~ª©¥D, ¤£¦n·N«ä, ¦³2Ó·Qªk·Q½Ð§AÀ°¦£
1. ®É¶¡¬O·Q¥Hdde¤Wªº®É¶¡¬°¥D,¨C5¤ÀÄÁ(©Î1¤ÀÄÁ) °O¿ý»ù®æ,®É¶¡,³Ì°ª»ù,³Ì§C»ù,¶}©l»ù,µ²§ô»ù¤Î²Ö¿n[G8] & [I8]ªº¶q
2. ¥t¤@Ó·Qªk¬O·Q[G8] & [I8]µo¥ÍÅܤÆ, ¤~°O¿ý®É¶¡,»ù®æ |
|
ªì¾ÇªÌcolor
|
|
|
|
|
- ©«¤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
|
¦^´_ 13# color790 - '¤u§@ªí1ªºµ{¦¡
- Dim S As String '¤u§@ªí1ªº ¨p¥ÎÅܼÆ
- Private Sub Worksheet_Calculate()
- Application.EnableEvents = False
- If S <> [G8] & [i8] And [G8] & [i8] <> "" Then
- Cells(Rows.Count, "k").End(xlUp).Offset(1).Resize(1, 3) = Array(Time, [G8], [i8])
- S = [G8] & [i8]
- End If
- Application.EnableEvents = True
- End Sub
½Æ»s¥N½X- 'Module1ªºµ{§Ç
- Sub AUTO_OPEN()
- ¥¨¶°1
- End Sub
- Private Sub ¥¨¶°1()
- Dim ¶}½L®É¶¡ As String, ¦¬½L®É¶¡ As String, DEE®É¶¡, Deehh As String, Deemm As String
- Dim Time_Step As Date
- ¶}½L®É¶¡ = "B5"
- ¦¬½L®É¶¡ = "D5"
- DEE®É¶¡ = "C2"
- Dim TESTTr '¦¹ÅܼƬO´ú¸Õµ¹§A¬Ýªº
- With ¤u§@ªí1
- If .Range(¶}½L®É¶¡) > Time Then ' ©|¥¼¶}½L 'µ¥Ô¶}½L®É¶¡¨ì°õ¦æ
- Application.OnTime .Range("¶}½L®É¶¡"), "¥¨¶°1"
- ElseIf .Range(¦¬½L®É¶¡) < Time Then ' ¤w¸g¦¬½L 'Ãö³¬¥¨¶°
- Exit Sub
- End If
- Time_Step = #12:05:00 AM# '³]©w¶¡¹j®É¶¡: 5¤ÀÄÁ
- 'Time_Step = #12:01:00 AM# '³]©w¶¡¹j®É¶¡: 1¤ÀÄÁ
- ' 1 = 1¤ÀÄÁ ; ¤@¤ÑªºÁ`¤ÀÄÁ¼Æ 24 * 60 =1440
- '1¤ÀÄÁ #12:01:00 AM# * 1400
- 'Time_Step* 1400 = ³]©w¶¡¹j ? ¤ÀÄÁ
-
- '**¦³¿ù»~ Tr = Int((Time - .Range(¶}½L®É¶¡) ) * 1440) + 30 '¨C®t 300 ¬í´N´«¤@¦C***
- '¤W¦¡À³¬°¶Ç¦^-> ¶¡¹jªºÁ`¤ÀÄÁ¼Æ + 30
- Tr = Int(Int((Time - .Range(¶}½L®É¶¡)) * 1440) / 5) '¨C®t 300 ¬í ¦¹ÅܼƬO´ú¸Õµ¹§A¬Ýªº
- TESTTr = Int((Time - .Range(¶}½L®É¶¡)) / Time_Step) '¦¹ÅܼƬO´ú¸Õµ¹§A¬Ýªº
- MsgBox TESTTr = Tr '¦¹ÅܼƬO´ú¸Õµ¹§A¬Ýªº
- If .[D2] <> "-" And .[D2] <> "###" Then '²M½Lªºª¬ºA, ¤£¨ú¨ä¸ê®Æ
- Tr = Int((Time - .Range(¶}½L®É¶¡)) / Time_Step) + 30
- ' Time_Step ¤ÀÄÁ¤@¦C -> ±q²Ä30¦C¶}©l **
- Range("K" & Tr) = Time '¥[¤W®É¶¡
- If Range("L" & Tr) = "" Then Range("L" & Tr) = Range("D2") '¶}©l»ù
- If Range("M" & Tr) = "" Or Range("D2") > Range("M" & Tr) _
- Then Range("M" & Tr) = Range("D2") '³Ì°ª»ù
- If Range("N" & Tr) = "" Or Range("D2") < Range("N" & Tr) _
- Then Range("N" & Tr) = Range("D2") '³Ì§C»ù
- Range("O" & Tr) = Range("D2") 'µ²§ô»ù
- End If
- Deehh = Mid(.Range(DEE®É¶¡), 1, 2)
- Deemm = Mid(.Range(DEE®É¶¡), 3, 2)
- Deemm = (Int(Deemm / (Time_Step * 1440)) + 1) * (Time_Step * 1440)
- If Val(Deemm)>=60 Then
- Deehh = Deehh + 1
- Deemm = "00"
- End If
- Application.OnTime TimeSerial(Deehh, Deemm, 0) + Time_Step, "¥¨¶°1"
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 117
- ¥DÃD
- 34
- ºëµØ
- 0
- ¿n¤À
- 155
- ÂI¦W
- 0
- §@·~¨t²Î
- windows XP
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-19
- ³Ì«áµn¿ý
- 2024-8-29
|
¤Ñ°Ú.....¤Ó·PÁ§A¤F,ª©¥D
¦^®a¦A¨Ó¸Õ¤@¤U, ·P®¦:'( |
|
ªì¾ÇªÌcolor
|
|
|
|
|
- ©«¤l
- 117
- ¥DÃD
- 34
- ºëµØ
- 0
- ¿n¤À
- 155
- ÂI¦W
- 0
- §@·~¨t²Î
- windows XP
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-19
- ³Ì«áµn¿ý
- 2024-8-29
|
HI~ª©¥D, ¦A³Â·Ð§A¤@¤U~
²Ä¤@Óµ{¦¡¦b襴¶}µ{¦¡®É, ¤U±³o¤@¦æ·|¦³¿ù»~²£¥Í
If S <> [G8] & [i8] And [G8] & [i8] <> "" Then
¤£¹L¦b°»¿ù«á°±¤î¦A«ö°õ¦æ´NOK¤F,¦A³Â·Ð§A¤@¤U, ÁÂÁª©¥D~ |
|
ªì¾ÇªÌcolor
|
|
|
|
|
- ©«¤l
- 117
- ¥DÃD
- 34
- ºëµØ
- 0
- ¿n¤À
- 155
- ÂI¦W
- 0
- §@·~¨t²Î
- windows XP
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-19
- ³Ì«áµn¿ý
- 2024-8-29
|
ÁÂÁª©¥DªºÀ°¦£ |
|
ªì¾ÇªÌcolor
|
|
|
|
|