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

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

¦^´_ 30# emma

§Úı±o©pªº»Ý¨D¤£¹³¬O¬d¸ß¸ê®Æ
¤ñ¸û¹³¬O§â¸ê®ÆÀɤu§@ªíBÄ榳¼Æ値ªº¦C
¸g¹L³B²z«á¼g¤J¬d¸ß¤u§@ªí
¸Õ¸Õªþ¥ó
VBAtest7.rar (17.2 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 31# Hsieh


    «D±`·PÁÂHsiehª©¤j¡BGBKEEª©¤j¡A±o¤G¦ì°ª¤âªº¨ó§U¡A§Ú¤wºî¦X¥X§Ú·Q­nªºª©¥»¤F¡A
    Hsiehª©¤j¡A¨ä¹ê§Ú¤]¥u¬O·Ó¨Ï¥ÎªÌ·Q­nªº¥\¯à¥h¬ã¨s¡A¬O§Æ±æ¨Ï¥ÎªÌ¦b¿é¤J¼Æ¶q®É¡A¯à²¤Æ¤H­û¥Î¤H¤u§PÂ_ªº±ø¥ó¡A¥H´î¤Ö¤H¤u§PÂ_ªº¿ù»~¡A©Ò¥H´N...¦¨¤F³o¼Ëªº¤u§@ªí¤F¡C

PS.§Ú·Q­n¦A½Ð±Ð¤@­Ó°ÝÃD¡A¯à¤£¯àÅý¨Ï¥ÎªÌ¦b¿é¤J§¹¼Æ¶q¡A±N¸Óµ§¼Æ¶q¼g¦Ü¡i¬d¸ß¡j¤u§@ªí¡A´N¥ß§Y²MªÅ¸ÓÀx¦s®æ?¨Ò¦p¦bB3¿é¤J§¹1234Â÷¶}«á¡A±NB3¦C¸ê®Æ±a¤J¡i¬d¸ß¡j¤u§@ªí¸Ì¡A¦A¥ß§Y±NB3ªºÀx¦s®æ²MªÅ!!¦³³oºØ¤èªk¶Ü?

ªþ¤W³Ì«á§¹¦¨ªº½m²ß½d¥»¡A©Î³\ª©¤j­Ì¥i¥H§ó²z¸Ñ§Ú°ÝPS.ªº¤èªk¥Î·N
VBAtest9.rar (36.62 KB)

TOP

ÁÂÁ¤À¨É
·Pı¦n¦h­n¾Çªº³á
¤j¤j­Ì³£¤Ó±j¤F

TOP

¦^´_ 31# Hsieh


    Hsiehª©¤j¡AÁÙ¦³¤@­Ó¦a¤è·Q¶¶«K½Ð±Ð¤@¤U¡A´N¬O¡õ³o­Ó¦a¤è¥i¤£¥i¥H§ï¦¨¡u¥]§t¡v»P¡u¤£¥]§t¡vªº¥Îªk?¦ý§Ú¤£ª¾¹D¤£¥]§tªº»yªk¬O¤°»ò¡A©Ò¥H³o»ò¸Õªºµ²ªG·íµM¬O¸ò§Ú»¡»yªk¿ù»~°Õ ¡AÁÂÁ±z!!
  1. ElseIf A.Offset(, 5) = "±À" And A > A.Offset(, 4) Then
  2.          m = "§K¹B"
  3.          ElseIf A.Offset(, 5) <> "±À" And A > A.Offset(, 4) Then
½Æ»s¥N½X
  1. ElseIf A.Offset(, 5) Like "*±À*" And A > A.Offset(, 4) Then
  2.          m = "§K¹B"
  3.          ElseIf A.Offset(, 5) Not Like "*±À*" And A > A.Offset(, 4) Then
½Æ»s¥N½X

TOP

¦^´_ 34# 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
  4.     Dim Ar(), A As Range
  5.     If Target.Address(0, 0) = "E1" Then
  6.         Range("D3").AutoFilter Field:=2, Criteria1:="*" & Target & "*"
  7.     ElseIf Target.Address(0, 0) = "C1" Then
  8.         Range("C3").AutoFilter Field:=1, Criteria1:="*" & Target & "*"
  9.     End If
  10.     With Sheet1
  11.         If Application.Count(.Range("B:B")) > 0 Then
  12.             For Each A In .Range("B:B").SpecialCells(xlCellTypeConstants, 1)
  13.                 ReDim Preserve Ar(s)
  14.                 If A.Offset(, 8) = "V" And A.Offset(, 9) >= Date And A > A.Offset(, 4) Then dot = Int(A / 1000) * 1000 Else dot = 0
  15.                 k = IIf(Sheets("¬d¸ß").[B1] = "Á`©±", 10, 11)
  16.                 If A.Offset(, 7) < Date Then
  17.                     m = "¤wµ²§ô"
  18.                 ElseIf A < A.Offset(, 4) Then
  19.                     m = "¹B¶O+¤âÄò¶O"
  20.                 ElseIf InStr(A.Offset(, 5), "±À") And A > A.Offset(, 4) Then       '¥]§t
  21.                     m = "§K¹B"
  22.                 ElseIf InStr(A.Offset(, 5), "±À") = 0 And A > A.Offset(, 4) Then   '¤£¥]§t
  23.                     m = "¹B¶O"
  24.                 End If
  25.                 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)
  26.                 s = s + 1
  27.             Next
  28.         End If
  29.     End With
  30.     With Sheets("¬d¸ß")
  31.         If s > 0 Then
  32.             Target = ""
  33.             .Range("A" & .Rows.Count).End(xlUp).Offset(1).Resize(s, 8) = Application.Transpose(Application.Transpose(Ar))
  34.             .Range("A4").CurrentRegion.Sort key1:=.[A4], Header:=xlYes
  35.         End If
  36.     End With
  37. End Sub
½Æ»s¥N½X

TOP

¦^´_ 35# GBKEE


    GBKEEª©¤jÁÂÁ±z¡AÁÙ¦³¤@­Ó·sªº·Qªk¡A¦ý³o¤@­Ó¥\¯àªº¥i¯à©Ê¤£¾å±o¯à¤£¯à°µ¨ì¡A¦pªG¨Ï¥ÎªÌ¦b¼Æ¶qªºÄæ¦ìKEY¬Y­ÓÃöÁä¦r¡A¦pKEY"0"©Î«D¼Æ¦r¨Ò"ABC"³oºØ¥N¸¹ªº¸Ü¡A´N¥t¥~¸õ¥X¤@­Ó¿é¤J¼Æ¶qªºµøµ¡¡AÅý¨Ï¥ÎªÌKEY¤J¼Æ¶q¡A¥Øªº¬O¬°¤F¬Y¨Ç¯S®íªº±¡§Î­nÁ׶}­pºâ¡u§K¹B¡vªº³¡¥÷¡AµL½×¸Ó¶µ²£«~¥»¨­¬O§_¦³²Å¦X¡u§K¹B¡vªº±ø¥ó¡A¥u­n¥Î³o­Ó¤è¦¡¿é¤J¼Æ¶qªº¸Ü¡A´N¬O¤£¥h§PÂ_§K¹Bªº³¡¥÷¡A¥u·|¦³¡u¤wµ²§ô¡v¡B¡u¹B¶O¡v¡B¡u¹B¶O+¤âÄò¶O¡v³o¤TºØ§PÂ_¦Ó¥H¡C

§Æ±æ¯àÀò±o¸Ñ´b¡AÁÂÁÂ!!

TOP

¦^´_ 35# GBKEE


    GBKEEª©¤j¡A¤£¦n·N«ä¡A·Q¦A¦V±z½Ð±Ð¤@¤U¡A¦p·QÅý¡u¸ê®ÆÀÉ¡v¤u§@ªíªºC2Åã¥Ü³Ì«á¤@µ§¨Ï¥ÎªÌ¿é¤JªºÀx¦ì¡AÀ³¸Ó­n«ç»ò°µ©O?
    §Ú¸Õ¤FSheets("¸ê®ÆÀÉ").[C2] = A.Offset(, k).Value¡A¦ý·|Åã¥Ü¡u¨S¦³³]©wª«¥óÅܼƩÎwith°Ï¶ôÅܼơv¬°¤°»ò©O?
    ³Â·Ð±z¤F¡AÁÂÁÂ^^
VBAtest11.rar (19.24 KB)

TOP

¦^´_ 37# 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
  4.     Dim Ar(), A As Range
  5.     Application.EnableEvents = False              '****
  6.     If Target.Address(0, 0) = "E1" Then
  7.         Range("D3").AutoFilter Field:=2, Criteria1:="*" & Target & "*"
  8.     ElseIf Target.Address(0, 0) = "C1" Then
  9.         Range("C3").AutoFilter Field:=1, Criteria1:="*" & Target & "*"
  10.     Else
  11.         Exit Sub                                  '*****
  12.     End If
  13.     With Sheet1
  14.         If Application.Count(.Range("B:B")) > 0 Then
  15.             For Each A In .Range("B:B").SpecialCells(xlCellTypeConstants, 1)
  16.                 ReDim Preserve Ar(s)
  17.                 If A.Offset(, 8) = "V" And A.Offset(, 9) >= Date And A > A.Offset(, 4) Then dot = Int(A / 1000) * 1000 Else dot = 0
  18.                 k = IIf(Sheets("¬d¸ß").[B1] = "Á`©±", 10, 11)
  19.                 If A.Offset(, 7) < Date Then
  20.                     m = "¤wµ²§ô"
  21.                 ElseIf A < A.Offset(, 4) Then
  22.                     m = "¹B¶O+¤âÄò¶O"
  23.                 ElseIf InStr(A.Offset(, 5), "±À") And A > A.Offset(, 4) Then       '¥]§t
  24.                     m = "§K¹B"
  25.                 ElseIf InStr(A.Offset(, 5), "±À") = 0 And A > A.Offset(, 4) Then   '¤£¥]§t
  26.                     m = "¹B¶O"
  27.                 End If
  28.                 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)
  29.                 s = s + 1
  30.             Next
  31.         End If
  32.     End With
  33.     With Sheets("¬d¸ß")
  34.         If s > 0 Then
  35.             Target = ""
  36.             .Range("A" & .Rows.Count).End(xlUp).Offset(1).Resize(s, 8) = Application.Transpose(Application.Transpose(Ar))
  37.             Sheets("¸ê®ÆÀÉ").[C2] = .Range("A" & .Rows.Count).End(xlUp).Offset(, 5)   'FÄæ:Àx¦ì
  38.         End If
  39.     End With
  40.     Application.EnableEvents = True                 '*******
  41. End Sub
½Æ»s¥N½X

TOP

¦^´_ 38# GBKEE

  GBKEEª©¥D¡A¸Õ¤F¡A¦ý¬O¨S¤ÏÀ³¡A³s­ì¥ýªº¥\¯à¤]¤£¨£¤F¡A«ç»ò·|³o¼Ë©O??
    VBAtest11.rar (19.08 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-18 17:03 ½s¿è

¦^´_ 39# emma
¿é¤J: «H
¨ì[¬d¸ß]¬Ý¬Ý

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD