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

[µo°Ý] ¿z¿ï?ÃöÁä¦r?¬d¸ß?

¦^´_ 50# GBKEE


    GBKEEª©¤j¡A±z¦n¡A·Q¦A¦V±z½Ð±Ð¤@¤U¡A¥i§_©ó¶}±Òexcel®É¡A¥ý³]©w¤@µøµ¡¸õ¥XÅý¨Ï¥Î¤H¿ï¾Ü¡u©±§O¡v¤Î¡u¸g¿ì¡v¡A³]©w§¹¦¨¤§«á¡A
    ¨ä©±§Oªº¬ÛÃö³]©w¬O¬°¤F¨ú¥N²{¦³ªº¡i¬d¸ß¡j¤u§@ªí¤¤ªºB1¡AµM«á·Q¦A¦h¤@¤u§@ªí¡i·í¤é­q³æ©ú²Ó¡j¡A¦ýÁÙ¬OµLªk¦Û¦æ­×§ï¦¨·Q­nªºµ²ªG¡A
    ¦p¡i·í¤é­q³æ©ú²Ó-¤â°Êµ²ªG¡jªº¼Ë¤l¡A©Ò¥H¦A«pÃC¤W¨Ó½Ð±Ð¡AÁÂÁ±z^^

VBAtest14.rar (30.52 KB)

TOP

¦^´_ 51# emma
¸Õ¸Õ¬Ý

test.rar (31.47 KB)

TOP

¦^´_ 52# GBKEE


     GBKEEª©¤j¡A±z¦n¡A¤S¦³¤@­Ó·sªº·Qªk·Q½Ð±Ð±z¡A¦pªG»¡·Q­nÅý¨Ï¥ÎªÌ¿é¤J§¹¤@µ§¸ê®Æ¤§«á¡A´N¸õ¥Xµøµ¡Åã¥Ü³¡¥÷°T®§ªº¸Ü¡A
¤£¾å±o«ç»ò§â¬ÛÃöªºÅã¥Üµ²ªG±a¨ìTextBox¸Ì¡AÁÂÁ±z^^


00001.jpg
2013-4-22 15:35

VBAtest15.rar (32.51 KB)

TOP

¦^´_ 53# emma
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Dim Target_Row As String, s As Integer, dot As Long, K As Integer, M As String, t As String
  4.     Dim Ar(), A As Range, Rng As Range
  5.     If Target.Address(0, 0) = "E1" Then
  6.         Range("D3").AutoFilter Field:=4, Criteria1:="*" & Target & "*"
  7.     ElseIf Target.Address(0, 0) = "C1" Then
  8.         Range("C3").AutoFilter Field:=3, Criteria1:="*" & Target & "*"
  9.     End If
  10.     Application.EnableEvents = False              '****
  11.     Set Rng = Range("B4:B65536").SpecialCells(xlCellTypeVisible)     '¦Û°Ê¿z¿ï«á¥i¨£ªºÀx¦s®æ
  12.     If Application.Count(Rng) > 0 Then                                                      '¥i¨£ªºÀx¦s®æ:¦³¸ê®ÆÀx¦s®æªºÁ`¼Æ>0
  13.         Set Rng = Rng.SpecialCells(xlCellTypeConstants)                         '¥i¨£ªºÀx¦s®æ:¦³¸ê®ÆªºÀx¦s®æ
  14.             For Each A In Rng.Cells
  15.              ReDim Preserve Ar(s)
  16.                 If A.Offset(, 8) = "V" And A.Offset(, 9) >= Date And A > A.Offset(, 4) Then dot = Int(A / 1000) * 1000 Else dot = 0
  17.                 K = IIf(Sheets("¬d¸ß").[b1] = "Á`©±", 10, 11)
  18.                 If A.Offset(, 7) < Date Then
  19.                     M = "¤wµ²§ô"
  20.                     t = "¤w¥X³f"
  21.                 ElseIf A < A.Offset(, 4) Then
  22.                     M = "¹B¶O+¤âÄò¶O"
  23.                     t = "¥¼¥X³f"
  24.                 ElseIf InStr(A.Offset(, 5), "±À") And A > A.Offset(, 4) Then       '¥]§t
  25.                     M = "§K¹B"
  26.                     t = "¥¼¥X³f"
  27.                 ElseIf InStr(A.Offset(, 5), "±À") = 0 And A > A.Offset(, 4) Then   '¤£¥]§t
  28.                     M = "¹B¶O"
  29.                     t = "¥¼¥X³f"
  30.                 End If
  31.                 Ar(s) = Array(A.Offset(, 2).Value, A.Value, A.Offset(, 3).Value, dot, A.Offset(, 12).Value, A.Offset(, K).Value, M, A.Offset(, 6).Value, A.Offset(, 7).Value, t)
  32.                 s = s + 1
  33.             Next
  34.             With UserForm2
  35.                 .TextBox1 = Ar(s - 1)(0)
  36.                 .TextBox2 = dot
  37.                 .TextBox3 = M
  38.                 .Show
  39.             End With
  40.         End If
  41.     With Sheets("¬d¸ß")
  42.         If s > 0 And UserForm2.Msg = False Then
  43.             Target = ""
  44.             .Range("A" & .Rows.Count).End(xlUp).Offset(1).Resize(s, 10) = Application.Transpose(Application.Transpose(Ar))
  45.             .Range("A4").CurrentRegion.Sort Key1:=.[A4], Header:=xlYes
  46.              Sheets("¸ê®ÆÀÉ").[C2] = .Range("A" & .Rows.Count).End(xlUp).Offset(, 5)   'FÄæ:Àx¦ì
  47.         End If
  48.     End With
  49.     Application.EnableEvents = True                 '*******
  50. End Sub
½Æ»s¥N½X
  1. Public Msg As Boolean   '«ö¤U [¨ú®ø] ªº¤½¥ÎÅܼÆ
  2. Private Sub CommandButton1_Click()
  3.     UserForm2.Hide
  4. End Sub
  5. 'UserForm2 ¶·¼W¥[¤@CommandButton2  '¨ú®ø«ö¶s
  6. Private Sub CommandButton2_Click()  
  7.     Msg = True                               ''«ö¤U [¨ú®ø] «ö¶s¬° True
  8.     UserForm2.Hide
  9. End Sub
  10. Private Sub UserForm_Activate()  'UserForm Åã¥Ü®É
  11.       Msg = False                '¨ú®ø [¨ú®ø]«ö¶s
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 54# GBKEE

    ÁÂÁ GBKEE ª©¤j¡A¥t¥~¦³­Ó¤p°ÝÃD·Q¦A½Ð±Ð¤@¤U¡A´N¬O²Ö¿nÂI¼Æªºªí¥Ü¤è¦¡.TextBox2¥i¥HÅã¥Ü¥X,¤d¤À¦ìªº²Å¸¹¶Ü?¨Ò¡u1,234,567,890] ³o¼Ë
    ©ÎªÌ¬O»¡·QÅã¥Ü¡u1¸U2¥a3¨Õ4¬B5ÂI¡v³oºØªí¥Ü¤è¦¡¡A¥i¥H¶Ü?
   
2013-04-24_121702.jpg
2013-4-24 12:17

TOP

¦^´_ 55# emma
  1.             With Cells(Rows.Count, Columns.Count)
  2.                 .Value = dot
  3.                 .NumberFormatLocal = "[DBNum1][$-404]G/³q¥Î®æ¦¡" '¤p¼g°ê¦r
  4.                 '.NumberFormatLocal = "[DBNum2][$-404]G/³q¥Î®æ¦¡" '¤j¼g°ê¦r
  5.                 '.NumberFormatLocal = "#,##0_);[¬õ¦â](#,##0)"     '¤d¤À¦ì
  6.             End With
  7.             With UserForm2
  8.                 .TextBox1 = Ar(s - 1)(0)
  9.                 .TextBox2 = Cells(Rows.Count, Columns.Count).Text
  10.                 .TextBox3 = M
  11.                 .Show
  12.             End With
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 56# GBKEE

   «D±`ÁÂÁ GBKEE ª©¤j¡A¯uªºÀ°¤F¤j¦£¤F¡AÃö©ó¡u'.NumberFormatLocal = "[DBNum2][$-404]G/³q¥Î®æ¦¡" '¤j¼g°ê¦r¡v
   ³o­Ó³¡¥÷·Q¦A°µ§ó²Ó¤@ÂIªº¸ß°Ý¡A¦pªG¬O1,234,567,890ªº¸Ü¡A¥H¡u"[DBNum3][$-404]G/³q¥Î®æ¦¡"¡v®M¥Î«á
   Åã¥Üµ²ªG¬°¡u¢°»õ¢±¤d¢²¦Ê¢³¤Q¢´¸U¢µ¤d¢¶¦Ê¢·¤Q¢¸¡v¡A¦ý¹ê»Ú¤W¡A­n¤@³¡¥÷¼Æ¦r¤@³¡¥÷°ê¦rªº­ì¦]¥u¬O¬°¤FÅý¨Ï¥Î¤H­û¦nŪ¨ú¡A
   ¤£¥Î¤@­Ó­Ó¥H­Ó¡B¬B¡B¨Õ¡B¥a¡B¸Uªº¼Æ¤W¥h¤~±oª¾Á`¦@¬O¦h¤ÖªºÂI¼Æ¡A¦ý¥i¥H¥uÅã¥Ü°ê¦r¨ì¸U´N¦n¶Ü?
   ¨Ò¡u¢°»õ¢±¤d¢²¦Ê¢³¤Q¢´¸U¢µ¤d¢¶¦Ê¢·¤Q¢¸¡v¡÷¡u¢°¢±,¢²¢³¢´¸U¢µ¤d¢¶¦Ê¢·¤Q¢¸¡v
   ¡ô¥i¥H³o¼Ë¶Ü?ÁÂÁ±z¤F^^

TOP

¦^´_ 57# emma
  1. Option Explicit
  2. Sub EX()
  3.     '¢°¢±,¢²¢³¢´¸U¢µ¤d¢¶¦Ê¢·¤Q
  4.     Dim Dot As Long, m As String
  5.     Dot = 123456789
  6.     m = "000¸U0¤d0¦Ê0¤Q0"
  7.     If Len(CStr(Dot)) = 1 Then m = "0"
  8.     If Len(CStr(Dot)) = 2 Then m = "0¤Q0"
  9.     If Len(CStr(Dot)) = 3 Then m = "0¦Ê0¤Q0"
  10.     If Len(CStr(Dot)) = 4 Then m = "0¤d0¦Ê0¤Q0"
  11.     MsgBox Format(Dot, m)
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 56# GBKEE


    ÁÂÁ GBKEE ª©¤j¡A¨º¦pªG¥u·Q§ì¡A¥a¸ò¸U´N¦n¡A¨Ò¦p¡u123,000¡v´N¥uÅã¥Ü¡u12¸U3¥a¡v¡A²{¦bªº¬O¡u12¸U3¥a0¨Õ0¬B0¡v¡A¨º¨Ç"0"¦³¿ìªk¬Ù²¤¶Ü?
   ¦pªG¤£¬O¥Îµ{¦¡¡A¦Ó¬O¤@¯ëªºÀx¦s®æ®æ¦¡¦³¿ìªk¥Î¨ç¼Æ¤§Ãþªº¹F¨ìÃþ¦üªº³]©w¶Ü?ÁÙ¬O´N¥u¯à¥Îvba¥h¹F¨ì³oºØÅã¥Ü®ÄªG?!
   ¯uªº«D±`·PÁ±z¤£¹½¨ä·Ðªº¦^ÂЧڪº¤p°ÝÃD^^

TOP

¦^´_ 59# emma
  1. Option Explicit
  2. Sub EX()
  3.     '¢°¢±,¢²¢³¢´¸U¢µ¤d¢¶¦Ê¢·¤Q
  4.     Dim Dot As Long, m As String
  5.     Dot = Int(123456789 / 1000)
  6.     m = "0¸U0¤d"
  7.     MsgBox Format(Dot, m)
  8. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD