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

[µo°Ý] ¦p¦óÅý¤U©Ô¿ï³æ¿ï¨ú«á¦Û°Ê¸õ¨ìÀx¦s®æ¬Û¹ïÀ³³B?

¦^´_ 3# stillfish00
¶¶±a½Ð±Ð¤@­Ó°ÝÃD¡G
(°²³]·s¼W¤@­Ó Excel ÀÉ®×)
¦b "¤u§@ªí2" A Äæ¦ì¤¤¦p¦ó¥h³]©w ActiveCell.Validation.Formula1 ¹ïÀ³¤U©Ô¦¡ List ªº«ü©wÄæ¦ì­È¡A
Ä´¦p¡G   "=¤u§@ªí1!$A$3:$A$20"      (§Y±q "¤u§@ªí2" A2:A10 ³£¯à¦Û°Ê¥h¹ïÀ³ "¤u§@ªí1" ªº A3:A20)
ÁÂÁ§A¡I
(¤£¦n·N«ä¡A§Ú¹ï³o¤è­±ªºÀ³¥Î±q¨SIJºN¹L  -  ¤í¾Ç)

TOP

¦^´_ 5# stillfish00
·P¿E¡A²×©ó¤S¾Ç¨ì¦p¦ó³]©w Validation ¤F¡A
¦A¦¸ÁÂÁ§A¡I

TOP

¦^´_ 2# av8d
ºî¦X¤F stillfish00 ¤j¤j´£¨Ñªº¨ç¼Æ¡A¥H¤Î¥[¤W¾ã¦X§Aªº»Ý¨D¦Ó¦¨¡C
1.   " ÂI¤@¤UA2~·|¥X²{¤U©Ô¿ï³æ¡A¿ï¨ú«á~¦p¦ó¦Û°Ê¸õ¨ìC2 "¡A
2.   " ·í¼Æ¶q¿é¤J«á«ö¤UEnter«á~¦Û°Ê¸õ¨ì³W®æ¦WºÙ (C2¿é¤J¼Æ¦r«á«ö¤UEnter«á~¦Û°Ê¸õ¨ìA2) "
²Ä¤G¶µ»Ý¨D¡A­×§ï¦¨¡G
·í¼Æ¶q¿é¤J«á«ö¤UEnter«á~¦Û°Ê¸õ¨ì¤U¤@­Ó³W®æ¦WºÙ (C2¿é¤J¼Æ¦r«á«ö¤UEnter«á~¦Û°Ê¸õ¨ìA3 )
  1. Public ckCurr As Boolean

  2. Private Sub ComboBox1_Change()    '  stillfish00 ´£¨Ñ
  3.     If ckCurr Then Exit Sub
  4.    
  5.     Application.EnableEvents = False
  6.    
  7.     ckCurr = False
  8.     ComboBox1.Visible = False
  9.     Range(ComboBox1.LinkedCell).Offset(, 2).Select
  10.     Application.EnableEvents = True
  11. End Sub

  12. Private Sub CommandButton1_Click()
  13.     If Me.ComboBox1.Visible Then ckCurr = True: Me.ComboBox1.Visible = False
  14.    
  15.     Range("A2:A25,C2:C25").Select
  16.     Selection.ClearContents
  17. End Sub

  18. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  19.     Dim StrVdFml As String
  20.    
  21.     '  If ckCurr Then Exit Sub
  22.     On Error Resume Next
  23.         StrVdFml = Replace(ActiveCell.Validation.Formula1, "=", "")
  24.         '  ActiveCell.Validation.Formula1 ¡G  "=¤u§@ªí1!$A$3:$A$20"
  25.         '  ComboBox1.ListFillRange        ¡G   ¤u§@ªí1!$A$3:$A$20
  26.         '  Replace(ActiveCell.Validation.Formula1, "=", "") : "¤u§@ªí1!$A$3:$A$20"
  27.         '  StrVdFml : "¤u§@ªí1!$A$3:$A$20"
  28.         ActiveCell.Validation.InCellDropdown = False
  29.     On Error GoTo 0
  30.     If StrVdFml = "" Then
  31.         If Me.ComboBox1.Visible Then Me.ComboBox1.Visible = False
  32.     Else
  33.         With Me.ComboBox1
  34.             '  ComboBox1.progID   =EMBED("Forms.ComboBox.1","")
  35.             '  ComboBox1¡G        ComboBox
  36.             '  LinkedCell¡G       $A$2
  37.             '  ListFillRange ¡G   ¤u§@ªí1!$A$3:$A$20
  38.             .Left = ActiveCell.Left
  39.             .Top = ActiveCell.Top
  40.             '  .Width = ActiveCell.Width + 140
  41.             .Width = ActiveCell.Width
  42.             '  .Height = ActiveCell.Height + 10
  43.             .Height = ActiveCell.Height
  44.             '  .Font.Size = 22
  45.             .Font.Size = 12

  46.             .LinkedCell = ActiveCell.Address    '  "$A$2"
  47.             .ListFillRange = StrVdFml           '  "¤u§@ªí1!$A$3:$A$20"
  48.             .Visible = 1                        '  Åã¥Ü¤U©Ô²Å¸¹

  49.             .Object.SpecialEffect = 3
  50.             '.Object.Font.Size = ActiveCell.Font.Size
  51.         End With
  52.     End If
  53.   
  54.     ckCurr = False
  55. End Sub

  56. Private Sub Worksheet_Change(ByVal Target As Range)
  57.     '  Target.Font.ColorIndex = 5
  58.    
  59.     If Not Intersect(Target, Range("C2:C25")) Is Nothing Then
  60.         If Target(1, 1) = 0 Then Exit Sub
  61.         ckCurr = True
  62.         '  MsgBox Target.Address
  63.         Target.Offset(1, -2).Select
  64.     End If
  65. End Sub

  66. Sub CellValidation()      '  stillfish00 ´£¨Ñ
  67.     With Sheets("¤u§@ªí2").[A2:A25].Validation
  68.         .Delete
  69.         .Add Type:=xlValidateList, Formula1:="=¤u§@ªí1!$A$3:$A$20"
  70.     End With
  71. End Sub
½Æ»s¥N½X

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

TOP

¦^´_  c_c_lai

§Ú¤U¸ü§AªºÀɮסAÂI¿ïSheet2 - A2¨S¦³¥X²{¤U©Ô¿ï³æ¡A
½Ð°Ý§ÚÁٻݭn°µ­þ¨Ç³]©w¡C
ML089 µoªí©ó 2013-11-6 09:14

02.png
2013-11-6 10:13

TOP

¦^´_  c_c_lai

§ÚªºEXCEL¬O2007
¶}±Ò§AªºÀɮסA¨ä¤u§@ªí¦WºÙ¬O Sheet1¡B Sheet2¡B Sheet3
¦ýVBAµ{¦¡¤¤ ...
ML089 µoªí©ó 2013-11-6 10:49

¤§«e§Ú¬O¥t¥~·s¼W¤@ExcelÀÉ®×´ú¸Õ¡A§¹¦¨«á«Kª½±µ±Nµ{¦¡½X¶K¤J¨ì­ì¥»ªº
"¬Û¤ù¿é¥X»ù¥Øªí.xlsm" ¤º¡A§Ñ¤F±N¨ä¹ïÀ³ªºªí³æ¦WºÙ¤@¨Ö­×¥¿¡A¯u¬O¹ï¤£°_¡I
¬Û¤ù¿é¥X»ù¥Øªí.rar (24.83 KB)

TOP

¦^´_ 12# ML089
§A¦A¸Õ¸Õ¬Ý¡A´ú¸Õµ²ªG¦p¦ó¦A¦æ§i¶D§Ú¡C
ÁÂÁ¡I

TOP

¦^´_  c_c_lai

ÁÙ¬O¤£¦æ¡A«öA2¡BA3...³£¨S¦³¤ÏÀ³
¤§«e¼Ó¥DªºÀɮפ]¤£¦æ¡A«á¨Ó§Ú¦Û¦æ³]©w ¸ê®ÆÅçÃÒ(²M³æ ...
ML089 µoªí©ó 2013-11-6 12:47

½Ð°Ý§A¬O¤U¸ü "¬Û¤ù¿é¥X»ù¥Øªí.xlsm" ª½±µ¥Î¥¦¨Ó´ú¸Õ¡AÁÙ¬O
¦Û¤v¥t¥~¶}±Ò¤@·sÀɮסA¦Ó¶È½Æ»sµ{¦¡½X¨Ó¹B§@¡H

TOP

¦^´_ 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. Private Sub ComboBox1_Change()    '  stillfish00 ´£¨Ñ
  3.     If ckCurr Then Exit Sub
  4.    
  5.     Application.EnableEvents = False
  6.    
  7.     ckCurr = False
  8.     ComboBox1.Visible = False
  9.     Range(ComboBox1.LinkedCell).Offset(, 2).Select
  10.     Application.EnableEvents = True
  11. End Sub

  12. Private Sub CommandButton1_Click()
  13.     If Me.ComboBox1.Visible Then ckCurr = True: Me.ComboBox1.Visible = False
  14.    
  15.     Range("A2:A25,C2:C25").Select
  16.     Selection.ClearContents
  17. End Sub

  18. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  19.     Dim StrVdFml As String
  20.    
  21.     '  If ckCurr Then Exit Sub
  22.     On Error Resume Next
  23.         StrVdFml = Replace(ActiveCell.Validation.Formula1, "=", "")
  24.         '  ActiveCell.Validation.Formula1 ¡G  "=Sheet1!$A$3:$A$20"
  25.         '  ComboBox1.ListFillRange        ¡G   Sheet1!$A$3:$A$20
  26.         '  Replace(ActiveCell.Validation.Formula1, "=", "") : "Sheet1!$A$3:$A$20"
  27.         '  StrVdFml : "Sheet1!$A$3:$A$20"
  28.         ActiveCell.Validation.InCellDropdown = False
  29.     On Error GoTo 0
  30.     If StrVdFml = "" Then
  31.         If Me.ComboBox1.Visible Then Me.ComboBox1.Visible = False
  32.     Else
  33.         With Me.ComboBox1
  34.             '  ComboBox1.progID   =EMBED("Forms.ComboBox.1","")
  35.             '  ComboBox1¡G        ComboBox
  36.             '  LinkedCell¡G       $A$2
  37.             '  ListFillRange ¡G   Sheet1!$A$3:$A$20
  38.             .Left = ActiveCell.Left
  39.             .Top = ActiveCell.Top
  40.             '  .Width = ActiveCell.Width + 140
  41.             .Width = ActiveCell.Width
  42.             '  .Height = ActiveCell.Height + 10
  43.             .Height = ActiveCell.Height
  44.             '  .Font.Size = 22
  45.             .Font.Size = 12

  46.             .LinkedCell = ActiveCell.Address    '  "$A$2"
  47.             .ListFillRange = StrVdFml           '  "Sheet1!$A$3:$A$20"
  48.             .Visible = 1                        '  Åã¥Ü¤U©Ô²Å¸¹

  49.             .Object.SpecialEffect = 3
  50.             '.Object.Font.Size = ActiveCell.Font.Size
  51.         End With
  52.     End If
  53.   
  54.     ckCurr = False
  55. End Sub

  56. Private Sub Worksheet_Change(ByVal Target As Range)
  57.     '  Target.Font.ColorIndex = 5
  58.    
  59.     If Not Intersect(Target, Range("C2:C25")) Is Nothing Then
  60.         If Target(1, 1) = 0 Then Exit Sub
  61.         ckCurr = True
  62.         '  MsgBox Target.Address
  63.         Target.Offset(1, -2).Select
  64.     End If
  65. End Sub

  66. Sub CellValidation()      '  stillfish00 ´£¨Ñ
  67.     With Sheets("Sheet2").[A2:A25].Validation
  68.         .Delete
  69.         .Add Type:=xlValidateList, Formula1:="=Sheet1!$A$3:$A$20"
  70.     End With
  71. End Sub
½Æ»s¥N½X

TOP

¦^´_ 19# ML089
¦A¸Õ¸Õ¬Ý (¦³¾ã²z¹L)
08.png
2013-11-6 15:48

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

TOP

¦^´_ 19# ML089
ªþ¤W¾ã²z«á¤§«Ø¸m³]©w¡A¨Ñ°µ°Ñ¦Ò¤§¥Î¡G
09.png
2013-11-6 15:55

10.png
2013-11-6 15:56

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD