½Ð¤j¤j­Ì¨ó§U¤F¸Ñ¿z¿ï°ÝÃD,

hong912

¤j¤j­Ì, ¤p§Ì¹ïvbaª¾ÃѦ³­­, ªñ¤é¤p§Ì´X¸g¨¯­W¤~§¹¦¨¤F¤@­Óº¡¥H¬°¥i¦æªº¿z¿ïµ{¦¡, ¦ý·í¥Î®É­ì¨Ó¬O¦æ¤£³q,
¬G¨D±Ð¦U¤j¤j¯à§¹¦¨¸Óµ{¦¡, ªþÀÉ, ÁÂÁÂ!!

¤p§Ìªºµ{¦¡½X¦b¤u§@ªíµ{¦¡°Ï, ·Ð½Ð¦U¤j¤j¨ó§U,

¿z¿ï.rar (17.45 KB)

¤U¸ü¦¸¼Æ: 11

2013-11-3 14:10

c_c_lai

¤j¤j­Ì, ¤p§Ì¹ïvbaª¾ÃѦ³­­, ªñ¤é¤p§Ì´X¸g¨¯­W¤~§¹¦¨¤F¤@­Óº¡¥H¬°¥i¦æªº¿z¿ïµ{¦¡, ¦ý·í¥Î®É­ì¨Ó¬O¦æ¤£³q,
...
hong912 µoªí©ó 2013-11-3 14:10

¦³Ãö§Aªþ¥óÀɮפ¤¤§ abc() ¡A½Ð§Aµyµy»¡©ú¤@¤U §A¹ê»Ú¨ì©³·Q­n°µ¬Æ»ò¡H
·Qªk¦p¦ó¡H µ{¦¡½X¤¤«á¦³ end if «e­±«oµL if, ÁÙ¦³ len(XXX) ¡H
ÁÙ¦³¹LÂoªº±ø¥ó <> ¬Æ»ò¡H

hong912

¦^´_ 2# c_c_lai

ÁÂÁ¤j¤j¦^À³, abc¤£¹L¬Oµ{¦¡¦WºÙ, ¨Ã¨S¦³¹ê½è§@¥Î, ©ÎªÌ³o¼Ë»¡, ¤p§Ì»Ý¨D¤@¿z¿ïµ{¦¡, ·í¤p§Ì«ö¤U«ö¶s, ¼u¥X¤@®Ø¬[, ¥u­n¿é¤J¤@¦r, ¤u§@ªí2«K§â¤u§@ªí1¤ºcÄæ¦ì¦WºÙ, ©Ò¦³¦³¬ÛÃö¦r¦WºÙªº¸ê®Æ¦CÅã¥Ü©ó¤u§@ªí2 ¤º,
¦Ü©ó¤p§Ì©Ò¿×µ{¦¡, ¥»´N¬O¤£­È¤@´£,
ÁÂÁÂÁÂ!

c_c_lai

¦^´_ 3# hong912
½Ð±Nµ{¦¡½Æ»s©ó ThisWorkbook ¤º¡G

1. Option Explicit
   
2. 
   
3. Sub Ex()
   
4.     Dim ·Ç«h1 As String, rngFilter As String
   
5.    
   
6.     ·Ç«h1 = InputBox("¿é¤J¤@¦r (·Ç«h)")
   
7.     If ·Ç«h1 = "" Then Exit Sub
   
8.    
   
9.     With Sheets("Sheet1")
   
10.         Sheets("Sheet2").Cells.Clear
    
11.         rngFilter = "*" & ·Ç«h1 & "*"
    
12.         .[AA1] = "©m¦W"
    
13.         .[AA2] = rngFilter
    
14.         .Range("A3").CurrentRegion.AdvancedFilter xlFilterCopy, .[AA1:AA2], _
    
15.                      CopyToRange:=Sheets("Sheet2").Range("A3"), Unique:=True
    
16.     End With
    
17. End Sub

½Æ»s¥N½X

hong912

¦^´_ 4# c_c_lai

·PÁ¦^À³, ·|²Ó¤ß¾Ç²ß, ¯¬§Ö¼Ö, ÁÂ!!

joey0415

§ï¸ô®|
D:\¿z¿ï.xls

»PSQL»yªk´N¯à§ä¨ì§A·Q­nªº
select * from [Sheet1$] where ©m¦W='¦ó¤¯¼w'

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. ' joey ¦b 2013/11/7 ¿ý»sªº¥¨¶°
   
5. '
   
6. 
   
7. '
   
8.     With ActiveSheet.QueryTables.Add(Connection:=Array( _
   
9.         "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=D:\¿z¿ï.xls;Mode=Share Deny Write;Extended Properties=""HDR=" _
   
10.         , _
    
11.         "YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=35;Jet OLEDB:" _
    
12.         , _
    
13.         "Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password" _
    
14.         , _
    
15.         "="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLE" _
    
16.         , "DB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), Destination _
    
17.         :=Range("A1"))
    
18.         .CommandType = xlCmdTable
    
19.         .CommandText = Array("select * from [Sheet1$] where ©m¦W='¦ó¤¯¼w'")
    
20.         .Name = "¿z¿ï"
    
21.         .FieldNames = True
    
22.         .RowNumbers = False
    
23.         .FillAdjacentFormulas = False
    
24.         .PreserveFormatting = True
    
25.         .RefreshOnFileOpen = False
    
26.         .BackgroundQuery = True
    
27.         .RefreshStyle = xlInsertDeleteCells
    
28.         .SavePassword = False
    
29.         .SaveData = True
    
30.         .AdjustColumnWidth = True
    
31.         .RefreshPeriod = 0
    
32.         .PreserveColumnInfo = True
    
33.         .SourceDataFile = "D:\¿z¿ï.xls"
    
34.         .Refresh BackgroundQuery:=False
    
35.     End With
    
36. End Sub

½Æ»s¥N½X