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

[µo°Ý] ½Ð±Ð§ï¨}³t«×¤èªk

½ÐÀ°¦£¸Ñ¨M¿ù»~¡C

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-11-24 15:35 ½s¿è

book1.rar (626.53 KB)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, Rng As Range
If Target.Column = 1 Then
With Sheets("oracle")
For i = 1 To .UsedRange.Rows.Count
   Set A = .UsedRange.Rows(i).Find(Target)
   If Not A Is Nothing Then
     If Rng Is Nothing Then
     Set Rng = .UsedRange.Rows(i)
     Else
     Set Rng = Union(Rng, .UsedRange.Rows(i))
     End If
    End If
Next
End With
End If
If Not Rng Is Nothing Then Rng.Copy Target.Offset(, 1)

End Sub
½Ð°Ý­þ¸Ì¥X¿ù¤F¡A«e¤@¤d­Ó¥ª¥k³£§ä¹ï¤F¡A¦ý¤§«áªº¸ê®Æ´N¶}©l¶Ã¤F¡C
¥t¥~½Ð°Ý
1)¦p¦ó±N´M§ä½d³ò³W©w¬Y¤@­ÓÄæ¡A¤£¬O¥þ³¡³£¦b´M§ä½d³ò¡C
2)If Target.Column = 1 Then ¥i§_§ï¦¨«ü©w¬Y­Ó¦r¶Ü¡H¨Ò¦p¡GTarget = "TT"
3)¥i§_³]©w´X­Ó´M§äªº³W«h¶Ü¡H¨Ò¦p¡GClient = "John"  Payment term = ¡§TT¡¨   ORIGIN = "USA"
4)¥i§_±NTarget«ü©w¬Y¤@­ÓÀx¦s®æ¡H
5)¥i§_¥u¬Ocopy ²Å¦X³W®æªº¬Y´X­ÓÄ檺¸ê®Æ¶Ü¡H¤£¬O¥þ³¡¸ê®Æ³£copy ¹L¥h¡C¨Ò¦p A Äæ¡ACÄæ¡AEÄæ¡A¨ä¥Lªº³£¤£­n¡C

TOP

¦^´_ 1# 198188


    ½Ð°Ý¦³µL°ª¤H¥i¥HÀ°¦£¸Ñµª¡H

TOP

¦^´_ 2# 198188
§A¦C¥Xªºµ{§Ç,¦ý¨S»¡©ú¥Øªº®ÄªG,¬O¨S¤H©úÁA§A­n½Ð±Ð¤°»ò.
¨Ò¦p¡GClient = "John"  Payment term = ¡§TT¡¨   ORIGIN = "USA"  ³o¤]¬Ý¤£À´§A­n½Ð±Ð¤°»ò.

TOP

¦^´_ 3# GBKEE


    If Target.Column = 1 Then   ³o­Ó¦n¹³¬O ·j´M½d³ò  ¥L­n±N Target §ï¦¨  "TT"  ¡A¥u¬O ¬Ý¤F¬Ý¡A·Pı¤£¶¶.....

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 3# GBKEE
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, Rng As Range
If Target.Column = 1 Then
With Sheets("oracle")
For i = 1 To .UsedRange.Rows.Count
    Set A = .UsedRange.Rows(i).Find(Target)
    If Not A Is Nothing Then
      If Rng Is Nothing Then
      Set Rng = .UsedRange.Rows(i)
      Else
      Set Rng = Union(Rng, .UsedRange.Rows(i))
      End If
     End If
Next
End With
End If
If Not Rng Is Nothing Then Rng.Copy Target.Offset(, 1)

End Sub
¸ê®Æ®w
  A               B                   C                D                 E                F                  G
    ©m¦W        ©Ê§O        ¹q¸Ü        °êÂÇ        ¨®µP        ¦~ÄÖ        ¾·~
John        ¨k        11111111        China        ¦³        25        Clerk
Peter        ¨k        22222222        Germany        ¦³        30        A/C
David        ¨k        33333333        USA        µL        15        Admin
Tina        ¤k        44444444        China        ¦³        25        Clerk
June        ¤k        55555555        Italy        µL        35        Clerk

·Q­n®ÄªG¡G
1)¦p¦ó±N´M§ä½d³ò³W©w¬Y¤@­ÓÄæ¡A¤£¬O¥þ³¡³£¦b´M§ä½d³ò¡C
´N¬O·Q¦b©m¦W¡]A¡^¤@Äæ³]©w¬°´M§ä½d³ò
¨Ò¦p¡G³W«h¡G·Q§ä§t¦³"a"ªº¸ê®Æ
µ²ªG:
Tina        ¤k        44444444        China        ¦³        25        Clerk

2)If Target.Column = 1 Then ¥i§_§ï¦¨«ü©w¬Y­Ó¦r¶Ü¡H¨Ò¦p¡GTarget = "TT"
¦p¦ó³]©w±NTarget¤£¬OColumn ¦Ó¬O«ü©w¤@­Ó¦r¡C
³W«h¡GTarget§t¦³¡§in¡¨¤l¸ê®Æ
µ²ªG¡G
John        ¨k        11111111        China        ¦³        25        Clerk
David        ¨k        33333333        USA        µL        15        Admin
Tina        ¤k        44444444        China        ¦³        25        Clerk

3)¥i§_³]©w´X­Ó´M§äªº³W«h¶Ü¡H¨Ò¦p¡GClient = "John"  Payment term = ¡§TT¡¨   ORIGIN = "USA"
³W«h¡G©Ê§O=¡§¨k¡¨; ¨®µP=¡§¦³¡¨
µ²ªG¡G
John        ¨k        11111111        China        ¦³        25        Clerk
Peter        ¨k        22222222        Germany        ¦³        30        A/C
³W«h¡G°êÂÇ=¡§China"; ¨®µP=¡§¦³¡¨;¦~ÄÖ="25"; ¾·~="Clerk"
µ²ªG¡G
John        ¨k        11111111        China        ¦³        25        Clerk
Tina        ¤k        44444444        China        ¦³        25        Clerk

4)¥i§_±NTarget«ü©w¬Y¤@­ÓÀx¦s®æ¡H
¨Ò¦p±NTarget«ü©w¬O¥t¤@­ÓªíªºÀx¦s®æ"A1"
¥u­nA1¿é¤J"¨k", Target´N¬O"¨k"
µ²ªG¡G
John        ¨k        11111111        China        ¦³        25        Clerk
Peter        ¨k        22222222        Germany        ¦³        30        A/C
David        ¨k        33333333        USA        µL        15        Admin

©ÎªÌ±NTarget«ü©w¬O¥t¤@­ÓªíªºÀx¦s®æ"A1" ¤Î "A2"
¥u­nA1¿é¤J"¨k", A2¿é¤J"¦³¡§ ¡FTarget´N¬O"¨k" ©M "¦³¡¨
µ²ªG¡G
John        ¨k        11111111        China        ¦³        25        Clerk
Peter        ¨k        22222222        Germany        ¦³        30        A/C

5)¥i§_¥u¬Ocopy ²Å¦X³W®æªº¬Y´X­ÓÄ檺¸ê®Æ¶Ü¡H¤£¬O¥þ³¡¸ê®Æ³£copy ¹L¥h¡C¨Ò¦p A Äæ¡ACÄæ¡AEÄæ¡A¨ä¥Lªº³£¤£­n¡C
³]©w¥u·|copy A Äæ¡ABÄæ¡ACÄæ
³W«hTarget="¦³"
µ²ªG¡G
John        ¨k        11111111
Peter        ¨k        22222222
Tina        ¤k        44444444

TOP

¦^´_ 5# 198188


   
EX1.GIF
2012-12-1 10:33


©m¦W-¾·~Äæ ¦r§À¥[*¥i·j¬d§t¦¹¦r¦êªº¸ê®Æ
¦p¹Ï Sheet2 ªºµ{¦¡½X
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)         '³o¬O¤u§@ªíªºÄ²µo¨Æ¥ó
  3.     Dim xlFind As Range, F As String, W As String
  4.     Application.EnableEvents = False                        'EnableEvents ÄÝ©Ê ¦pªG«ü©wª«¥ó¯àIJµo¨Æ¥ó¡A«h¥»Äݩʬ° True¡CŪ/¼g Boolean¡C
  5.     If Target.Row = 2 Then                                  '§ïÅÜ¿é¤J(¸ê®Æ)ªºÀx¦s®æ¦C¦ì=2
  6.         If Target.Column >= 1 And Target.Column <= 7 Then   '§ïÅÜ¿é¤J(¸ê®Æ)ªºÀx¦s®æÄæ¦ì¤¶©ó AÄæ:GÄæ ¶¡
  7.         'If Target.Row = 2 And Target.Column >= 1 And Target.Column <= 7 Then  '¨â§PÂ_¦¡ ¥i¦X¨Ö
  8.             Cells(Rows.Count, "A").End(xlUp).CurrentRegion.Offset(1) = ""   '²M°£Â¦³´M§äªº¸ê®Æ
  9.             W = Replace(Target, "*", "")                                    '¥h±¼ "*"¦r¦ê
  10.             Set xlFind = Sheets("¸ê®Æ®w").Columns(Target.Column).Find(W, LOOKAT:=IIf(InStr(Target, "*"), xlPart, xlWhole))
  11.                       '¦bSheets("¸ê®Æ®w").Columns(Target.Column) ªº¬Û¦PÄæ¦ì¤¤Target¦³"*"  ´M§ä¦³xlPart(³¡¥÷)¬Û¦P
  12.             If Not xlFind Is Nothing Then           '´M§ä¨ì
  13.                 F = xlFind.Address                  '³]¤U²Ä¤@­Ó§ä¨ìªº¦ì¸m
  14.                 Do
  15.                     With Cells(Rows.Count, "A").End(xlUp).Offset(1)
  16.                         Cells(.Row, "A") = xlFind.Parent.Cells(xlFind.Row, "A")  'xlFind.Parent: Parent ª«¥óªº¤÷¼h
  17.                         Cells(.Row, "B") = xlFind.Parent.Cells(xlFind.Row, "B")  'xlFind.Row:    §ä¨ìªº¦C¸¹
  18.                         Cells(.Row, "C") = xlFind.Parent.Cells(xlFind.Row, "C")
  19.                         ' Cells(.Row, "C") «e­±¨S¥[  . ¬O¦b³oSheet ªº Cells(Àx¦s®æ)
  20.                     End With
  21.                     Set xlFind = Sheets("¸ê®Æ®w").Columns(Target.Column).FindNext(xlFind) '±µµÛ©¹¤U§ä
  22.                 Loop While F <> xlFind.Address      'Â÷¶}°j°é: ª½¨ì´M§ä¦^²Ä¤@­Ó§ä¨ìªº¦ì¸m
  23.             End If
  24.          End If
  25.     End If
  26.     Application.EnableEvents = True
  27. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# GBKEE

test.rar (15.06 KB)

¬O¥i¥H´M§ä¥X¨Ó¡A¦ý¬O­n¦b²Ä¤GÄæ¿é¤J¤~·|¥X¨Ó¡A¦pªG²Ä¤GÄæ§Ú¥Îªº¤£¬O©m¦W´M§ä¡A¨º»ò´N·|¦³­«½Æ
John         ¨k        11111111        a*
John         ¨k        11111111       
Peter        ¨k        22222222       
David        ¨k        33333333       
Tina        ¤k        44444444       
June        ¤k        55555555       
¥t¥~§Ú¥Î¨â­Ó¨Ó´M§ä¡A¥X¨Óªº¬O³Ì«á¿é¤Jªº­þ­Ó³W®æªº¸ê®Æ¡A¦ý§Ú·Q­nªº¬O­n¥þ³¡²Å¦X¤~·|¥X¨Ó¡C¥t¥~²Ä¤GÄæ¥X²{¤@¦¸«á´N»Ý­n¦Û¤v§R°£¡]John ¨k 11111111¡^
John         ¨k        11111111        usa*                        clerk*
David        ¨k        33333333                               
                       
½Ð°Ý¥i§_¦bsheet3 °µ±ø¥ó¥Î³~
A1 ¬O¶ñ¼Æ¦r¡A¼g©ú·|¦³¦h¤Ö­Ó³W«h,
A2ªí¥Ü³o±ø³W«hÀ³¥Î¦b­þ¤@Äæ B2¥Nªí­n´M§äªº¸ê®Æ
¨Ò¦p
A1 ¶ñ "1"
A2 ¶ñ "B"; B2 ¶ñ "¨k"
¥X¨Óªº¬O
John         ¨k        11111111
Peter        ¨k        22222222
David        ¨k        33333333

¨Ò¦p
A1 ¶ñ "3"
A2 ¶ñ "D"; B2 ¶ñ "A"
A3 ¶ñ "E"; B2 ¶ñ "¦³"
A4 ¶ñ "F"; B2 ¶ñ "CLERK"
¥X¨Óªº¬O
John         ¨k        11111111       
Tina        ¤k        44444444       

¨Ò¦p
A1 ¶ñ "2"
A2 ¶ñ "D"; B2 ¶ñ "A"
A3 ¶ñ "E"; B2 ¶ñ "µL"
¥X¨Óªº¬O
David        ¨k        33333333

TOP

¦^´_ 7# 198188


½Ð°Ý°ª¤H©ú¥Õ§Ú·Qªí¥Ü¤°»ò¶Ü¡H»Ý­n§ó¥[¸Ô²Óªí©ú¶Ü¡H

TOP

¦^´_ 7# 198188
§AÀ³¸Óª`·N¤@¤UGª©ªºÁY¹Ï ,
¥L³o¼Ë°µ¤w¸g±N±ø¥ó°Ï©M¿z¿ïµ²ªG¤À¶}¤F,
§Aªºsheet2¤@¶}©l¬O§¹¥þªÅ¥Õ

TOP

¦^´_ 9# stillfish00


³oÂI§Úª¾¹D¡A¤£±Ä¥ÎOption Explicit´N¥i¥H¤F¡C¥i¥H¥Î«ö¶s©ÎªÌ¤â°Ê±±¨î¡C³Ì¥D­n¬O¥i¥H°µ¨ì¨º¨Ç¥\¯à¡C

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD