ML089

¦^´_ 24# c_c_lai

¨S¿ù¦b ¾Þ§@¼Ò¦¡ ¤§¤U¡A¨S¦³¥X²{¤U©Ô¿ï³æªº¤T¨¤²Å¸¹¡A´N¬O¤@¯ëªÅ¥Õ

¦b ³]­p¼Ò¦¡ ¤§¤U¦³¬Ý¨£ COMBOBOX ª«¥ó

¥i¯à¬O§ÚEXCEL 2007ªº°ÝÃD¶Ü? ½Ð°Ý§A¥Îªº¬O´XªO?
­YÂà¦s¬° 2003ªO¥i¥H¥Î¶Ü ? µ¹§Ú¸Õ¸Õ¬Ý

ML089

¦^´_ 21# c_c_lai

¹Ï¤@¡A´N¬O§Ú­ì¥ý»¡ªº¡A¦n¹³­n³] ¸ê®ÆÅçÃÒ - ²M³æ¡A³o¼Ëµ{¦¡¤~¯à±Ò°Ê¡C

¹Ï¤G¡A¤º®e¬Û¦P

c_c_lai

¦^´_ 23# ML089
½Ð¦A¥J²Ó¦^¨ý #10 ªº¹Lµ{¹Ï¤ù»¡©ú¡C
(³]­p¼Ò¦¡»P¾Þ§@¼Ò¦¡¤£¯à²V¬°¤@½Í)

ML089

¦^´_ 21# c_c_lai

¬JµM¥Î COMBOBOXª«¥ó
¥i§_±N ³W®æ¦WºÙ¡B¤Ø¤o¡B³æ»ù ¦X¨Ö©ó¤U©Ô¿ï³æ¤¤Åã¥Ü¡A
¿ï¤¤«á ³W®æ¦WºÙ¡B¤Ø¤o¡B³æ»ù ª½±µ¼g¦ÜÄæ¦ì¤¤¡A
³o¼Ë·|§ó±M·~·P¤@¨Ç¡C

¤£¦n·N«ä¡A°½°½¥[½X¤@¤U

ML089

¦^´_ 20# c_c_lai

A2§¹¥þªÅ¥Õ¡A¨S¦³§A¹Ï¤W¦h¥X¨Óªº¿ï³æ

­Y¶}°_ ³]­p¼Ò¦¡ «á ¤~·|¬Ý¨ì COMBOBOXª«¥ó

¤U¸ü (142.08 KB)

2013-11-6 16:10

c_c_lai

¦^´_ 19# ML089
ªþ¤W¾ã²z«á¤§«Ø¸m³]©w¡A¨Ñ°µ°Ñ¦Ò¤§¥Î¡G

¤U¸ü (51.29 KB)

2013-11-6 15:55

¤U¸ü (66.39 KB)

2013-11-6 15:56

c_c_lai

¦^´_ 19# ML089
¦A¸Õ¸Õ¬Ý (¦³¾ã²z¹L)

¤U¸ü (76.34 KB)

2013-11-6 15:48

¬Û¤ù¿é¥X»ù¥Øªí_ML089.rar (24.95 KB)

¤U¸ü¦¸¼Æ: 6

2013-11-6 15:49

ML089

¦^´_ 18# c_c_lai


¶}±Ò #1 ªºªþ¥ó¡AµM«á±Nµ{¦¡½X¶K¤J¨ì Sheet2 ªºµ{¦¡½X°Ï¡AÁÙ¬O¤£¦æ

¦Û¦æ³]©w ¸ê®ÆÅçÃÒ «á¡A¬O¥i¥H°õ¦æ¡A¤U©Ô¿ï³æ - ¿ï§¹¦Û°Ê¸õ¨ì CÄæ¼Æ¶q - ¿é¤J¼Æ¶q¤]¦Û°Ê¸õ¨ì¤U¤@¦C¡C
¥i¬O¤U©Ô¿ï³æ¤S¦n¹³¤£¬O ¸ê®ÆÅçÃÒªº¤U©Ô¿ï³æ¡AÀ³¸Ó¬OComboBox1±o¤U©Ô¿ï³æ

§Ú¦Û¤v¥Î¸ê®ÆÅçÃÒ°t¦XWorksheet_Change¤]¥i¥H¹F¨ì®ÄªG¡A¥u¬O¸ê®ÆÅçÃÒ¿ï³æ¥\¯à¤ñ¸û¶§¬K¡C
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Offset(, 2).Select
    ElseIf Target.Column = 3 Then
        Target.Offset(1, -2).Select
    End If
End Sub

¬Û¤ù¿é¥X»ù¥Øªí_ML089.rar (31.27 KB)

¤U¸ü¦¸¼Æ: 3

2013-11-6 15:07

c_c_lai

¦^´_ 17# owen06
½Ð§Aª½±µ¶}±Ò #1 ªºªþ¥ó¡AµM«á±N¥H¤Uµ{¦¡½X¶K¤J¨ì Sheet2 ªºµ{¦¡½X°Ï¦A¸Õ¸Õ¬Ý  (§¹¥þ½Æ»s¹L¥h)¡A
µ²ªG¦p¦ó½Ð¦^´_§iª¾¡AÁÂÁ¡I (§Ú³oÃäµL½×¬O¥t¦æ·s¼W¡B©ÎªÌ¬O¨Ï¥Î #1 ªºªþ¥ó³£¬OOKªº )

1. Public ckCurr As Boolean
   
2. 
   
3. Private Sub ComboBox1_Change()    '  stillfish00 ´£¨Ñ
   
4.     If ckCurr Then Exit Sub
   
5.    
   
6.     Application.EnableEvents = False
   
7.    
   
8.     ckCurr = False
   
9.     ComboBox1.Visible = False
   
10.     Range(ComboBox1.LinkedCell).Offset(, 2).Select
    
11.     Application.EnableEvents = True
    
12. End Sub
    
13. 
    
14. Private Sub CommandButton1_Click()
    
15.     If Me.ComboBox1.Visible Then ckCurr = True: Me.ComboBox1.Visible = False
    
16.    
    
17.     Range("A2:A25,C2:C25").Select
    
18.     Selection.ClearContents
    
19. End Sub
    
20. 
    
21. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
22.     Dim StrVdFml As String
    
23.    
    
24.     '  If ckCurr Then Exit Sub
    
25.     On Error Resume Next
    
26.         StrVdFml = Replace(ActiveCell.Validation.Formula1, "=", "")
    
27.         '  ActiveCell.Validation.Formula1 ¡G  "=Sheet1!$A$3:$A$20"
    
28.         '  ComboBox1.ListFillRange        ¡G   Sheet1!$A$3:$A$20
    
29.         '  Replace(ActiveCell.Validation.Formula1, "=", "") : "Sheet1!$A$3:$A$20"
    
30.         '  StrVdFml : "Sheet1!$A$3:$A$20"
    
31.         ActiveCell.Validation.InCellDropdown = False
    
32.     On Error GoTo 0
    
33.     If StrVdFml = "" Then
    
34.         If Me.ComboBox1.Visible Then Me.ComboBox1.Visible = False
    
35.     Else
    
36.         With Me.ComboBox1
    
37.             '  ComboBox1.progID   =EMBED("Forms.ComboBox.1","")
    
38.             '  ComboBox1¡G        ComboBox
    
39.             '  LinkedCell¡G       $A$2
    
40.             '  ListFillRange ¡G   Sheet1!$A$3:$A$20
    
41.             .Left = ActiveCell.Left
    
42.             .Top = ActiveCell.Top
    
43.             '  .Width = ActiveCell.Width + 140
    
44.             .Width = ActiveCell.Width
    
45.             '  .Height = ActiveCell.Height + 10
    
46.             .Height = ActiveCell.Height
    
47.             '  .Font.Size = 22
    
48.             .Font.Size = 12
    
49. 
    
50.             .LinkedCell = ActiveCell.Address    '  "$A$2"
    
51.             .ListFillRange = StrVdFml           '  "Sheet1!$A$3:$A$20"
    
52.             .Visible = 1                        '  Åã¥Ü¤U©Ô²Å¸¹
    
53. 
    
54.             .Object.SpecialEffect = 3
    
55.             '.Object.Font.Size = ActiveCell.Font.Size
    
56.         End With
    
57.     End If
    
58.   
    
59.     ckCurr = False
    
60. End Sub
    
61. 
    
62. Private Sub Worksheet_Change(ByVal Target As Range)
    
63.     '  Target.Font.ColorIndex = 5
    
64.    
    
65.     If Not Intersect(Target, Range("C2:C25")) Is Nothing Then
    
66.         If Target(1, 1) = 0 Then Exit Sub
    
67.         ckCurr = True
    
68.         '  MsgBox Target.Address
    
69.         Target.Offset(1, -2).Select
    
70.     End If
    
71. End Sub
    
72. 
    
73. Sub CellValidation()      '  stillfish00 ´£¨Ñ
    
74.     With Sheets("Sheet2").[A2:A25].Validation
    
75.         .Delete
    
76.         .Add Type:=xlValidateList, Formula1:="=Sheet1!$A$3:$A$20"
    
77.     End With
    
78. End Sub

½Æ»s¥N½X

owen06

¦^´_ 16# c_c_lai


§Ú¤]¬O­C¡Aª½±µ¶}±Ò¤U¸üªºÀɮסAµM«áÂI¤FA2´N¥X²{¿ù»~°T®§¤F¡A
¤G­ÓÀɮ׳£¤@¼Ë¡C