GBKEE

¦^´_ 1# av8d
¸Õ¸Õ¬Ý


    ÃöÁä¦r¿é¤J½d¨Ò..rar (10.25 KB)

¤U¸ü¦¸¼Æ: 29

2012-6-26 13:42

GBKEE

¦^´_ 3# av8d
¨º¦b§ï¤@¤U¤F

ÃöÁä¦r¿é¤J½d¨Ò..rar (11.42 KB)

¤U¸ü¦¸¼Æ: 25

2012-6-26 20:51

GBKEE

¦^´_ 7# dechiuan999
Replace "*" & TextBox1 & "*", "=what this", xlPart
¬°¦ó¥Î"=what this"¡A¤p§Ì¦³¦b¤u§@ªí¤Wªº¿é¤J­È¦a¤è¦³¬Ý¨ì  
´N¬O¨S¦³°Ú  ·|²£¥Í¤@­Ó #NAME?¿ù»~­È
.SpecialCells(xlCellTypeFormulas, xlErrors).Name = "xxx"
¦¹»yªk¤p§Ì¤@ª½¤£À´±o¦p¦ó¥hÀ³¥Î¤ÎÅçÃÒ©O¡H
¬°¦ó°Ï°ìÅܼƬݤ£¨ì
¦³¦¹ª«¥óÅܼÆ[XXX]¡A
¤S¦¹ª«¥óÅܼƥѦó¦Ó¨Ó©O¡H

¸Õ¸Õ¬Ý [A1:D10].NAME="dechiuan999"
¨ì¤u§@ªí ¬d¬Ý©w¸q¦WºÙ ¬Ý¬Ý    [ ª«¥ó©Î¨ç¼Æ ¤£¥i¥H¬°ÅÜ¼Æ ]

¦^´_ 5# av8d

1. Private Sub UserForm_Initialize()
   
2. With ActiveSheet
   
3. .Range("b:b").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
   
4. 'AdvancedFilter ¶i¶¥¿z¿ï: ¤£­«½Æ¸ê®Æ, ¸ê®Æ½Æ»s¨ì¨ä¥L¦ì¸m
   
5. ComboBox1.List = .Cells(1, .Columns.Count).CurrentRegion.Offset(1).Value '
   
6. .Cells(1, .Columns.Count).EntireColumn = ""
   
7. .Range("c:c").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
   
8. ComboBox2.List = .Cells(1, .Columns.Count).CurrentRegion.Offset(1).Value '
   
9. .Cells(1, .Columns.Count).EntireColumn = ""
   
10. End With
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# av8d
¨S¦³ª«¥ó ¨º¶·¥ýÀˬd  UserForm1 ¤¤¦³¨S¦³TextBox1 ¬Ý¬Ý

GBKEE

¦^´_ 12# av8d
ªþÀɬݬÝ

GBKEE

¦^´_ 14# av8d
Option Explicit  ¥D­n¬O¥iÁקK¥´¿ùÅܼƦWºÙ ,¨Ï±oµ{¦¡¹B¦æ¤¤,§ä¤£¥X¿ù»~¦b­þ¸Ì
Textbox  ¬Oªí³æ¤º±±¨î¶µªºÃöÁä¦r, ­nÁקK©l¥Î .

GBKEE

¦^´_ 17# av8d

1. Option Explicit
   
2. Dim d As Object
   
3. Private Sub UserForm_Initialize()
   
4.     Dim A As Range
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     With ActiveSheet
   
7.         For Each A In .Range("d2", .[d2].End(xlDown))
   
8.           d(A.Value) = IIf(d(A.Value) = "", A.Offset(, 1).Value, d(A.Value) & "," & A.Offset(, 1))
   
9.         Next
   
10.         ComboBox1.List = d.KEYS
    
11.     End With
    
12. End Sub
    
13. Private Sub ComboBox1_Change()
    
14.     If ComboBox1.ListIndex > -1 Then
    
15.         ComboBox2.List = Split(d(ComboBox1.Value), ",")
    
16.         ComboBox2.Value = ComboBox2.List(0)
    
17.     End If
    
18. End Sub

½Æ»s¥N½X

¤U¸ü (13.36 KB)

2012-6-28 17:47

GBKEE

¦^´_ 19# av8d
Dim d As Object ³oµ{¦¡½X §A©ñ¦b­þ¸Ì   
¦pªG¦p¤U«Å§i¨â¦¸

1. Dim d As Object  '1 ¼Ò²Õ ªº³»ºÝ «Å§iÅܼƠ ¬°¦¹¼Ò²Õªº¨p¥ÎÅܼƠ ¦¹¼Ò²Õ¤¤µ{§Ç¬Ò¥i¥ÎªºÅܼÆ
   
2. Private Sub UserForm_Initialize()
   
3.     Dim d As Object    '2 ¦bµ{§Ç¤¤ «Å§iÅܼƠ   '*** ³o¸Ì¤£­n«Å§i¤F
   
4.    Set d = CreateObject("Scripting.Dictionary")  
   
5. '³od ¬O   UserForm_Initialize µ{§Çªº  ¨Ã¤£¬O ¼Ò²Õ³»ºÝªºd

½Æ»s¥N½X

GBKEE

¦^´_ 21# av8d
¥Ñ©ó§ÚµLªk¨Ï¥ÎOption Explicit¦]¬°§Ú¤j¦h¼Æ¤º®e³£¨S+Option Explicit ¾É­PÅܼƧڨS¦³¤@­Ó¤@­Ó¥h³]©w~¤@ª½¥X¿ù~
³o¬O¤£¦nªº²ßºD,­n¥ß§Y§ï±¼
¦p¹Ï ·|¦b·s¼Ò²Õ¤¤¦Û°Ê¦b³»ºÝ¥[¤J  Option Explicit

¤U¸ü (93.02 KB)

2012-6-29 06:58

GBKEE

¦^´_ 25# av8d

1. ption Explicit
   
2. Dim d As Object
   
3. Private Sub UserForm_Initialize()
   
4.     Dim A As Range, W As String
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     With ActiveSheet
   
7.         For Each A In .Range("d2", .[d2].End(xlDown))
   
8.             If d(A.Value) = "" Then
   
9.                 d(A.Value) = A.Offset(, 1).Value
   
10.             Else
    
11.                 W = "," & d(A.Value) & ","   '¦r¨åª«¥ó¤º®e«e«á¥[¤W ,
    
12.                 If InStr(W, "," & A.Offset(, 1) & ",") = 0 Then d(A.Value) = d(A.Value) & "," & A.Offset(, 1)
    
13.                 'InStr(w, "," & A.Offset(, 1) & ",") = 0 ¤ñ¹ï¦r¨åª«¥ó¤º®e¦³µLA.Offset(, 1)ªº¦r¦ê
    
14.             End If
    
15.         Next
    
16.         ComboBox1.List = d.KEYS
    
17.     End With
    
18. End Sub

½Æ»s¥N½X