GBKEE

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

GBKEE

¦^´_ 5# 198188


   

¤U¸ü (84.16 KB)

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

GBKEE

¦^´_ 22# 198188
´ú¸Õ§¹¦¨¬ù12¬í,®É¶¡¤£ºâªø§a!

1. Option Explicit
   
2. Sub Worksheet()
   
3.     Dim LastRec As Integer
   
4.     Dim i As Integer, T
   
5.     T = Time
   
6.     With Worksheets("Oracle")
   
7.          LastRec = .Range("G1").End(xlDown).Row
   
8.         .Range("A2:A" & LastRec).Value = .Range("G2:G" & LastRec).Value  '¥þ³¡ª½±µµ¹­È·|§Ö¨Ç
   
9.         For i = 2 To LastRec
   
10.             If IsError(Application.VLookup(Worksheets("Oracle").Range("C" & i).Value, Sheets("Follower").Range("A:E"), 5, False)) Then
    
11.                 .Range("B" & i).Value = ""
    
12.             Else
    
13.                 .Range("B" & i).Value = Application.VLookup(Worksheets("Oracle").Range("c" & i).Value, Sheets("Follower").Range("A:E"), 5, False)
    
14.             End If
    
15.         Next
    
16.     End With
    
17.     MsgBox Format(Time - T, "HH:MM:SS")
    
18. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 24# 198188
Option Explicit ³¯­z¦¡ ¦b¼Ò²Õ¼h¦¸¤¤±j­¢¨C­Ó¦b¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½Tªº«Å§i¡C
¼Ò²Õ¼h¦³Option Explicit§@¥Î¬O:  ¨t²Î·|´£¿ô,¨S«Å§iªºÅܼƶ·«Å§i. ­n¾i¦¨³o²ßºD ¦³§Uµ{¦¡ªº°»¿ù.

GBKEE

¦^´_ 26# 198188
§A­n¦b¦óºØª¬ºA¤U¤£«ö¶s´N¦Û°Êrun
1.Àɮ׶}±Ò®É
A: ¦bThisWorkbook³o¼Ò²Õ¤¤¦³¤@¹w³]ªºµ{§Ç

1. Private Sub Workbook_Open()
   
2.    '³o¸Ìªºµ{¦¡½X¤£«ö¶s´N¦Û°Êrun
   
3. End Sub

½Æ»s¥N½X

B: ¦bVBA ªº¤@¯ë¼Ò²Õ ¼g¤W

1. Sub AUTO_OPEN()  
   
2. '³o¸Ìªºµ{¦¡½X¤£«ö¶s´N¦Û°Êrun
   
3. End Sub

½Æ»s¥N½X

2.Àɮ׶}±Ò«á¿ï©w(²¾°Ê)¨ì³o¤u§@ªí,¦b³o¤u§@ªí¼Ò²Õ¤¤¦³¤@¹w³]ªºµ{§Ç

1. Private Sub Worksheet_Activate()
   
2.    '³o¸Ìªºµ{¦¡½X¤£«ö¶s´N¦Û°Êrun
   
3. End Sub

½Æ»s¥N½X

3.¨Ï¥Î OnTime ¤èªk

1. Sub AUTO_OPEN()  
   
2. Application.OnTime Now + TimeValue("00:05:00"), "¼Ò²Õ.µ{¦¡¦WºÙ"
   
3. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 29# 198188
18# ªþÀÉ [Rule] ¤u§@ªí  Ordered Date Äæ¦ìªº¶i¶¥¿z¿ï¤½¦¡
=">="&DATEVALUE("2012/10/1")    «ü©w¤é´Á
=">="&TODAY()                                    ·í¤é

GBKEE

¦^´_ 31# 198188
¥i¦Û¦æ¸Õ¤@¤U°Ú!!!

GBKEE

¦^´_ 33# 198188
½Ð¬Ý¹Ï¸Ñ

¤U¸ü (70.53 KB)

2012-12-6 10:28

GBKEE

¦^´_ 35# 198188


  

¤U¸ü (59.21 KB)

2012-12-13 07:53

GBKEE

¦^´_ 37# 198188
" °õ¦æ¶¥¬q¿ù»~¡¥9¡¦¡G°}¦C¯Á¤Þ¶W¥X½d³ò"-> ´N¬O§ä¤£¨ì!!! (³o¨â¤u§@ªí¦WºÙÀˬd¬Ý¬Ý)  
VLookup(Wb.Worksheets("New form of payment report").Range("B" & j).Value, Worksheets("outstanding payments").Range("A:A"), 1, False)