ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ð·s¼Wªí³æ½s¸¹°ÝÃD

[µo°Ý] ½Ð±Ð·s¼Wªí³æ½s¸¹°ÝÃD

ª©¤j ¦U¦ìvba°ª¤â:

    ·Q½Ð±Ð¦bªí³æ «ö--·s¼W«á---ªí³æ¸¹½X¬O§_¥i²£¥Í¦¨³æ¸¹"009", ªþ¤W¹Ï¤ù¤ÎÀÉ®×,,,,
20171113-1.jpg
2017-12-13 11:10
ºû­×¬ö¿ýDB.zip (28.42 KB) ¨D¨ó§U!!ÁÂÁÂ
yvonne

¦^´_ 1# afu9240
  1. TextBox6.Value = Format(Worksheets("¥s­×©ú²Ó").Cells(x, 1) + 1, "000")
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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®¦ÁÂÁÂ

     
20171213-2.png
2017-12-14 10:17

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

TOP

  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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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) ¸ò±z½Ð¯q!!!!
yvonne

TOP

  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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# Hsieh

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

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE

·PÁÂG¤j¦^´_..G¤j¯uªº¤Ó¼F®`¤F
·Q½Ð°ÝG¤j¬O§_¥i¥H­pºâ¨ì¤p¼ÆÂI¨â¦ì¼Æ  ¦]¬°²{¦b¦n¹³³£¬O¨ú¾ã¼Æ
yvonne

TOP

¦^´_ 9# afu9240
  1. Function AGE(D1 As Range)         'Module1(¤@¯ë¼Ò²Õ)
  2.     AGE = "#NA"
  3.     Application.Volatile (False)
  4.     If IsDate(D1) And D1 > 0 Then
  5.         AGE = DateDiff("m", D1, Date)
  6.         AGE = Round(Int(AGE / 12), 0) & "." & AGE - (Round(Int(AGE / 12), 0) * 12)  ' ³Ñ¾l¤ë¥÷ªº¤p¼ÆÂI
  7.         'AGE = Round((AGE / 12), 2)   '10¶i¦ìªº¤p¼ÆÂI
  8.    End If
  9. End Function
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD