GBKEE

¦^´_ 1# laieven


¬Ý½L³nÅé¦p¦³¦¨¥æ³æÁ`¶q¸ê®Æ,Calculate¨Æ¥ó¥i°Ñ¦Ò¥¦¨Ó°O¿ý¦¨¥æ³æ¶q¸ê®Æ

GBKEE

¦^´_ 8# laieven

¤U¸ü (78.03 KB)

2015-9-14 11:15

Ex.rar (7.83 KB)

¤U¸ü¦¸¼Æ: 14

2015-9-14 11:04

½Ð¼ÒÀÀ¦b ¼ÒÀÀDEE![A2]  ¿é¤J¦¨¥æ¶q
¼ÒÀÀDEE [¤u§@ªí¼Ò²Õ]  ªºµ{¦¡½X

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     With Target.Cells(1)
   
4.         If .Address(0, 0) = "A2" Then [b2] = [b2] + .Cells
   
5.     End With
   
6. End Sub

½Æ»s¥N½X

DEE¬ö¿ý [¤u§@ªí¼Ò²Õ]  ªºµ{¦¡½X

1. Option Explicit
   
2. Dim Á`¦¨¥æ¶q As Integer
   
3. Private Sub Worksheet_Calculate()
   
4.     If IsError([b2]) Then Exit Sub      'dee ³nÅé¦b¶}½L«e­«¾ã®É·|¶Ç¦^¿ù»~­È
   
5.     If Time <= #9:00:00 AM# Then Exit Sub '¶}½L«e¤£²z·|
   
6.     If Á`¦¨¥æ¶q <> [E2].Value Then
   
7.         Application.EnableEvents = False
   
8.         With [C65536].End(xlUp).Offset(1)
   
9.             .Cells(1, 1) = Time
   
10.             .Cells(1, 2) = [D2]
    
11.             .Cells(1, 3) = [E2]
    
12.         End With
    
13.         Á`¦¨¥æ¶q = [E2]
    
14.         Application.EnableEvents = True
    
15.     End If
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 11# laieven


   

¤U¸ü (114.91 KB)

2015-9-15 09:51

GBKEE

¦^´_ 13# laieven

1. Integer ¸ê®Æ«¬ºAInteger ÅܼƫY¥H½d³ò¬° -32,768 ¨ì 32,767 ¤§ 16 ¦ì¤¸ (2 ­Ó¦ì¤¸²Õ) ¼Æ¦rªº§Î¦¡Àx¦s¡CInteger ªº«¬ºA«Å§i¦r¤¸¬O¦Ê¤À¤ñ²Å¸¹(%)¡C

½Æ»s¥N½X

1. Single ¸ê®Æ«¬ºASingle (³æºë«×¯BÂI¼Æ) ÅܼƫY¥H IEEE 32 ¦ì¤¸ (4 ­Ó¦ì¤¸²Õ) ¯BÂI¼Æ¦rªº§Î¦¡Àx¦s¡A¥¦ªº½d³ò¦b­t¼Æªº®É­Ô¬O±q -3.402823E38 ¨ì -1.401298E-45¡A¦Ó¦b¥¿¼Æªº®É­Ô¬O±q 1.401298E-45 ¨ì 3.402823E38¡CSingle ªº«¬ºA«Å§i¦r¤¸¬° !¡C

½Æ»s¥N½X

Integer ¤£°÷¥Î ­×§ï¤@¤U

1. DimÁ`¦¨¥æ¶q As Single

½Æ»s¥N½X

GBKEE

¨º½Ð°Ý~~
1.¬°¦óDDE°O¿ý³oÃ䬰¦ó¦n¹³¨S¦³ IJ ...
laieven µoªí©ó 2015/9/15 11:33

§A¬Ý¬Ý¦³¨S¦³¦b°õ¦æ Worksheet_Calculate

1. Option Explicit
   
2. Dim Á`¦¨¥æ¶q As Single
   
3. Private Sub Worksheet_Calculate()
   
4.     If IsError([b2]) Then Exit Sub      'dee ³nÅé¦b¶}½L«e­«¾ã®É·|¶Ç¦^¿ù»~­È
   
5.     If Time <= #8:45:00 AM# Then Exit Sub  '¶}½L«e¤£²z·|
   
6.     If Á`¦¨¥æ¶q <> [E2].Value Then
   
7.         Application.EnableEvents = False
   
8.         Stop  'µ{¦¡¼È°±¦b³o¸Ì «öF8³v¨B°õ¦æµ{¦¡½X.
   
9.         'Stop µ¹§AÆ[¹î DDE°O¿ý¦³Ä²µo¬ö¿ý,µ{¦¡¥¿±`«á,§R±¼¥¦
   
10.         With [C65536].End(xlUp).Offset(1)
    
11.             .Cells(1, 1) = Time
    
12.             .Cells(1, 2) = [D2]
    
13.             .Cells(1, 3) = [E2]
    
14.         End With
    
15.         Á`¦¨¥æ¶q = [E2]
    
16.         Application.EnableEvents = True
    
17.     End If
    
18. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 17# laieven
'?? 10¤f¥H¤Wªº¦ì¸m  ¦Û¤v³]
'?? 10¤f¥H¤Uªº¦ì¸m  ¦Û¤v³]

1. If Á`¦¨¥æ¶q <> [E2].Value Then
   
2.         Application.EnableEvents = False
   
3.         If ¦¨¥æ³æ >= 10 Then
   
4.             With [??].End(xlUp).Offset(1) '?? 10¤f¥H¤Wªº¦ì¸m
   
5.                 .Cells(1, 1) = Time
   
6.                 .Cells(1, 2) = [¦¨¥æ³æ]
   
7.             End With
   
8.         Else
   
9.             With [??].End(xlUp).Offset(1) '?? 10¤f¥H¤Uªº¦ì¸m
   
10.                 .Cells(1, 1) = Time
    
11.                 .Cells(1, 2) = [¦¨¥æ³æ]
    
12.             End With
    
13.         End If
    
14.         Á`¦¨¥æ¶q = [E2]
    
15.         Application.EnableEvents = True
    
16.     End If

½Æ»s¥N½X

GBKEE

¦^´_ 20# laieven
§Ú¤]¨S¦³¦¨¥æ³æ  
[¦¨¥æ³æ]-§A¶·¦Û¤v­×§ï¬°¤u§@ªí¤WDEE¦¨¥æ³æªº¦ì¸m

GBKEE

¦^´_ 24# laieven

¸Õ¸Õ¬Ý


Ex.rar (16.88 KB)

¤U¸ü¦¸¼Æ: 30

2015-9-16 17:01

GBKEE

¦^´_ 26# laieven
§AªþÀÉ00000002.xlsm ªºµ{¦¡½X

1. Option Explicit
   
2. Dim Á`¦¨¥æ¶q As Single
   
3. Private Sub Worksheet_Calculate()
   
4.     Dim startTime, stopTime
   
5.     Dim Rng As Range, ¦¨¥æ³æ As Range
   
6.     startTime = Range("A1") '¶}½L®É¶¡, ¨Ò¦p: "09:00:00 AM"
   
7.     stopTime = Range("B1")  '¦¬½L®É¶¡, ¨Ò¦p: "01:30:00 PM"
   
8.     If Time <= startTime Then
   
9.         '²M²z¬Q¤é¬ö¿ý
   
10.         Application.EnableEvents = False
    
11.         Range(Range("A5:E5"), Range("A5:E5").End(xlDown)) = ""
    
12.         Application.EnableEvents = True
    
13.         Exit Sub '©|¥¼¶}½L
    
14.     End If
    
15.     If Time > stopTime Then Exit Sub '¤w¸g¦¬½L
    
16.     If IsError([b2]) Then Exit Sub      'dee ³nÅé¦b¶}½L«e­«¾ã®É·|¶Ç¦^¿ù»~­È
    
17.     Set ¦¨¥æ³æ = [G2]
    
18.     Application.EnableEvents = False
    
19.     With [A65536].End(xlUp)
    
20.         If Format(.Cells, "HH:MM") <> Format(Time, "HH:MM") Then
    
21.             'dde¬ö¿ý¤u§@ªí¤W,­n¦³¤@­ÓDEEªº®É¶¡¤½¦¡,¤Þµo³o Calculate ­«ºâ¨Æ¥ó
    
22.             Set Rng = .Offset(1)
    
23.         Else
    
24.             Set Rng = .Cells
    
25.         End If
    
26.     End With
    
27.     With Rng
    
28.         .Cells = Format(Time, "HH:MM")  '¦bAÄ椤°O¤U¨C¤@¤ÀÄÁ , ¤£ºÞ¦³µL¦¨¥æ
    
29.         If Á`¦¨¥æ¶q <> [H2].Value Then
    
30.             If ¦¨¥æ³æ >= 10 Then
    
31.                 .Range("B1") = .Range("B1") + ¦¨¥æ³æ
    
32.             Else
    
33.                 .Range("D1") = .Range("D1") + ¦¨¥æ³æ
    
34.             End If
    
35.             Á`¦¨¥æ¶q = [H2]
    
36.         End If
    
37.         '³o¤ÀÄÁ -¤W¤@¤ÀÄÁ
    
38.         If .Cells.Row > 5 Then
    
39.             .Range("C1") = .Range("B1") - .Range("B1").Offset(-1)
    
40.             .Range("E1") = .Range("D1") - .Range("D1").Offset(-1)
    
41.         Else
    
42.             .Range("C1") = .Range("B1")
    
43.             .Range("E1") = .Range("D1")
    
44.         End If
    
45.     End With
    
46.     Application.EnableEvents = True
    
47. End Sub

½Æ»s¥N½X