GBKEE

¦^´_ 9# afu9240

¬O³o¼Ë¶Ü?

1. Sub old() '¦~ÄÖ¦Û°Ê¥N¤J
   
2.     Dim x1, x2, i As Integer
   
3.     Cells(1, 5) = Now()
   
4.     'x1 = YearFrac(Now(), 0) '³o¸Ì¿ù»~
   
5.     'x1 = Application.WorksheetFunction.YearFrac(Now(), 0)
   
6.     X = 2
   
7.     Do
   
8.         Cells(X, "C") = "=AGE(RC[-1])"  'RC[-1] R1C1ªº®æ¦¡°Ñ·Óªk
   
9.         X = X + 1
   
10.     Loop Until Cells(X, "B") = ""
    
11. End Sub
    
12. '***'Module1(¤@¯ë¼Ò²Õ)ªºµ{¦¡½X
    
13. '**¦Û­q¨ç¼Æ
    
14. Function AGE(D1)  
    
15.     AGE = "#NA"
    
16.     Application.Volatile (False)
    
17.     If IsDate(D1) And D1 > 0 Then AGE = DateDiff("YYYY", D1, Date)
    
18. End Function

½Æ»s¥N½X

afu9240

¦^´_ 8# Hsieh

·PÁª©¤j,,,ªøª¾ÃÑ ¦³Ãö¤é´Á³]©w­pºâ.zip (10.87 KB)

¤U¸ü¦¸¼Æ: 9

2018-1-2 15:10

½Ð±Ð¤@¤Uªþ¥ó, ¦p¦ó¥Îvba¼g¦º¨ç¼Æ¤½¦¡, ª¦¤å¸ò¦b½×¾Â¤º§ä¤F§ä³£¨S¦³¬ÛÃö¤å³¹,¬O§_¥i¨ó§U¸Ñ´b!¤p©f·P¿E

Hsieh

1. Private Sub CommandButton2_Click()
   
2. Dim A As Range, Rng As Range
   
3. If TextBox1.Text = "" Then
   
4.     MsgBox "½Ð¿é¤J¥¿½Tªº­È"
   
5. Else
   
6. Application.ScreenUpdating = False
   
7. Worksheets("¤u§@ªí2").Range("A:G").Clear
   
8. With Worksheets("¤u§@ªí1")
   
9. Set A = .Cells.Find(TextBox1, Lookat:=xlPart)
   
10. If Not A Is Nothing Then
    
11.   first = A.Address
    
12. Do
    
13. If Rng Is Nothing Then
    
14.    Set Rng = .Cells(A.Row, 1).MergeArea
    
15.    Else
    
16.    Set Rng = Union(Rng, .Cells(A.Row, 1).MergeArea)
    
17. End If
    
18. Set A = .Cells.FindNext(A)
    
19. Loop While Not A Is Nothing And A.Address <> first
    
20. Rng.EntireRow.Copy Sheets("¤u§@ªí2").[A1]
    
21. Else
    
22. MsgBox "µL²Å¦X¸ê®Æ"
    
23. End If
    
24. End With
    
25. End If
    
26. Application.ScreenUpdating = True
    
27. End Sub

½Æ»s¥N½X

¦^´_ 7# afu9240

afu9240

¦^´_ 5# GBKEE

G¤j  ±z¦n

    ¤p©f¥d¦í¤F,ÃöÁä¦r·j´M­n¦p¦ó±a¥X¨ì"¤u§@ªí2"(¥u­n¸ò³o¦r¦³Ãö«Yªº³£­n±a¥X),¯uªº«Ü©êºp·Q ¸ê®Æ20171218.zip (43.57 KB)

¤U¸ü¦¸¼Æ: 7

2017-12-18 15:49

¸ò±z½Ð¯q!!!!

GBKEE

1. Private Sub CommandButton4_Click() 'clear
   
2.     TextBox11.Text = ""
   
3.     TextBox10.Text = ""
   
4.     TextBox1.Text = ""
   
5.     Image1.Picture = LoadPicture
   
6.     With ListBox1
   
7.     'If Selection.Count > 7 Then
   
8.   '  .List = Selection.Value
   
9.   '  Else
   
10.     .Clear
    
11.    ' .AddItem Selection
    
12.    ' End If
    
13.    ' .ColumnCount = Selection.Columns.Count
    
14.     End With
    
15.    
    
16. End Sub

½Æ»s¥N½X

¦^´_ 4# afu9240

afu9240

¦^´_ 2# GBKEE

G¤j ª©¥D  ±z¦n  ¤p©f¥i¥H¦A½Ð±Ð¤@­Ó°ÝÃD

ªþ¥ó¬O¤@­Ó°V½m¼i¾úªí,¬°¦ó§Ú¥Î¦W¦rmark¬d¸ß«á,listbox1·|¥X²{¸ê®Æ,¦ý¦bclear«á,¦A¿é¤Jmark¬d¸ß«oµLªk¥X²{¸ê®Æ,¿é¤J§O±o¦W¦r¤]¤@¼Ë, ¬O§_¥i¸Ñ´b!!·P®¦ÁÂÁÂ

     

¤U¸ü (57.51 KB)

2017-12-14 10:17

¸ê®ÆÀÉ.zip (36.5 KB)

¤U¸ü¦¸¼Æ: 11

2017-12-14 10:26

GBKEE

¦^´_ 1# afu9240

1. TextBox6.Value = Format(Worksheets("¥s­×©ú²Ó").Cells(x, 1) + 1, "000")

½Æ»s¥N½X