GBKEE

¦^´_ 20# lifedidi
½Ð¦bªþ¤WÀÉ®× ¬Ý¬Ý

lifedidi

¦^´_ 21# GBKEE


ÁÂÁ¡C

    ¤u®É¨t²Îexcel20130312.rar (75.26 KB)

¤U¸ü¦¸¼Æ: 14

2013-3-12 11:06

GBKEE

¦^´_ 22# lifedidi
¦Û°Ê ©Î ¶i¶¥ ¿z¿ï ¸ê®Æ®wªºªíÀY ³£¤£¾A©y¦³¦X¨ÖªºÀx¦s®æ

lifedidi

ÁÂÁ¤j¤j¡I§ä¥X­ì¦]¤F^^

¦ý¬OÁ`¤u®Éªº¤½¦¡«ç»ò¼g©O¡H

¨ä¹ê³Ì­«­nªº¬O¤u®ÉOrz..

lifedidi

If .Parent.AutoFilterMode = False Then .AutoFilter
            .AutoFilter Field:=2, Criteria1:=ComboBox1
            For Each a In .Columns(2).Cells.SpecialCells(12)
            If a <> "" Then
            d(a.Value) = ""
            Else
            Exit For
        End If
        Next

½Ð°Ý¤j¤j¡I³oµ{¦¡½XªºÅܼƦ³­þ¨Ç©O¡H§Ú¸Õ¤F¤@¤U¤ÈÁÙ¬O§ä¤£¥X¨Ó¡A

¡iFor Each a In .Columns(2).Cells.SpecialCells(12)¡j

³o¬O«ü²Ä¤G¦Cªº¤°»ò¡Hspecialcells(12)¡÷12«üªº¬O?

§Ú«öF8¤@­Ó¤@­Ó¶]¡A³£·|¸õ¹LNEXT¡A½Ð«ü±Ð¡A·PÁ¡I

ÁÂÁÂ

GBKEE

¦^´_ 25# lifedidi

1. Sub Ex()
   
2.     Dim a
   
3.     With [a1] '¤£²M·¡ With ????
   
4.        ' .Parent (¤W¤@¼hªºª«¥ó): ¤u§@ªí
   
5.         If .Parent.AutoFilterMode = False Then .AutoFilter
   
6.         .AutoFilter Field:=2, Criteria1:=ComboBox1
   
7.         'For Each a In .Columns(2).Cells.SpecialCells(12)
   
8.         '¤W­± For ³o¸Ì¦³¿ù»~:ª½±µ¸õ¨ì Next ¤£·|°õ¦æ¦^°é
   
9.         '¦p¬O With ' [a1]->Àx¦s®æ½d³ò ¶·§ï¦¨¦p¤U
   
10.         For Each a In .Parent.Columns(2).Cells.SpecialCells(xlCellTypeVisible)
    
11.             If a <> "" Then
    
12.                 d(a.Value) = ""
    
13.             Else
    
14.                 Exit For
    
15.             End If
    
16.         Next
    
17.     End With
    
18. End Sub

½Æ»s¥N½X

1. SpecialCells ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí»P«ü©w«¬ºA¤Î­È¬Û²Å¦Xªº©Ò¦³Àx¦s®æ¡CRange ª«¥ó¡C
   
2. expression.SpecialCells(Type, Value)
   
3. expression      ¥²¿ï¡C¸Ó¹Bºâ¦¡·|¶Ç¦^ [®M¥Î©ó] ²M³æ¤¤ªº¨ä¤¤¤@­Óª«¥ó¡C
   
4. Type     ¥²¿ïªº XlCellType¡C­n¥]§tªºÀx¦s®æ¡C
   
5. XlCellType ¥i¥H¬O³o¨Ç XlCellType ±`¼Æ¤§¤@¡C
   
6. xlCellTypeAllFormatConditions¡C  ¥ô¦ó®æ¦¡ªºÀx¦s®æ
   
7. xlCellTypeAllValidation¡C¨ã¦³ÅçÃÒ·Ç«hªºÀx¦s®æ
   
8. xlCellTypeBlanks¡CªÅÀx¦s®æ
   
9. xlCellTypeComments¡C¥]§tµù¸ÑªºÀx¦s®æ
   
10. xlCellTypeConstants¡C¥]§t±`¼ÆªºÀx¦s®æ
    
11. xlCellTypeFormulas¡C¥]§t¤½¦¡ªºÀx¦s®æ
    
12. xlCellTypeLastCell¡C¤w¥Î½d³òªº³Ì«á¤@­ÓÀx¦s®æ
    
13. xlCellTypeSameFormatConditions¡C  ¦³¬Û¦P®æ¦¡ªºÀx¦s®æ
    
14. xlCellTypeSameValidation¡C  ¦³¬Û¦PÅçÃÒ·Ç«hªºÀx¦s®æ
    
15. xlCellTypeVisible¡C©Ò¦³¥i¨£Àx¦s®æ

½Æ»s¥N½X

¤U¸ü (19.57 KB)

2013-3-12 16:56

¤U¸ü (44.68 KB)

2013-3-12 16:56

lifedidi

«zÁÉ¡I§Ú¤F¸Ñ¤F¡IÁÂÁ¤j¤j¡I§ÚÄ~Äò¬ã¨s~

lifedidi

½Ð°Ý¤j¤j¡G
¦³¤T­Ótextbox¤À§O¬O1¡B2©M3
1©M2¬Okey®É¶¡¥Î¡A3¬O§â2-1
Á|¨Ò¡Gtextbox1 key¤J 08:00
             textbox2 key¤J 12:00
             textbox3 ¦Û°ÊÅã¥Ü 4:00  (¤]´N¬O2-1)
¥Ø«e¼g¨ì

Private Sub UserForm_Initialize()

Text1.Value = Format( "HH:MM:SS")
Text2.Value = Format("HH:MM:SS")
TextBox3 = Val(TextBox2) - Val(TextBox1)

End Sub

½Ð°Ý­þ¸Ì¦³¿ù©O¡H½Ð«ü¾É¡I·PÁ§A¡I

GBKEE

¦^´_ 28# lifedidi

1. Option Explicit
   
2. Private Sub UserForm_Initialize()
   
3.     Dim A As Date
   
4.     TextBox1.Value = "8:00"
   
5.     TextBox2.Value = "12:00"
   
6.     TextBox3 = Val(TextBox2) - Val(TextBox1)
   
7.     'TextBox3 = Format(CDate(TextBox2) - CDate(TextBox1), "H:M")
   
8.     'A = CDate(TextBox2) - CDate(TextBox1)
   
9.     'TextBox3 = A
   
10. End Sub

½Æ»s¥N½X

lifedidi

GBKEE¤j¤j§A¦n¡G

TextBox1¤ÎTextBox2¬OªÅ®æµ¹¨Ï¥ÎªÌkeyinªº

TextBox3¤]¬O¬°®É¶¡®æ¦¡ ex: TextBox1 key¤J 8:20
                                                        TextBox2 key¤J 11:55
                                                        TextBox3 Åã¥Ü¥X 3:35
¹ï·Ó¹Ï¡õ

¤U¸ü (24.77 KB)

2013-3-14 16:11

½Ð°Ý²Ä¤C¦C»P²Ä¤K¡B¤E¦Cªº¥\¯à¬O¤@¼Ëªº¶Ü¡H

" ' "¤£¥u¦³µù¸Ñªº¥\¯à¡AÁÙ¦³¨ä¥L§@¥Î¡H