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

[µo°Ý] ¤U©ÔVBAµLªk§@°Ê

[µo°Ý] ¤U©ÔVBAµLªk§@°Ê

½Ð±Ð¦U¦ì¥ý¶i¡A¤u§@ªí¤Wªº2¼h¤U©Ô(¨ç¼Æ)¡A°ò¥»¤W¬OOKªº¡A¦ý¦]¬°¼W¥[¤F·s¼W¤@­Ó ComboBox©MVBAµ{¦¡«á¡A2¼h¤U©Ô«oµLªk¨Ï¥Î¡A¥»¨Ó¼W¥[VBAªº¥\¯à¬O§â¤U©ÔªºÅçÃÒµøµ¡Åܤj¡A²{¦b«oµLªk¨Ï¥Î¡A¦pªG¶È¨Ï¥Î¨Ò¥~³æ¼h¤U©ÔÅçÃÒ(¦p§âµ{¦¡©ñ¦b"¥¿±`ªº"¤u§@ªí¤W)¡AVBAªº¥\¯à«o¥i¥Î¡A½Ð¦U¦ì¥ý¶i¸Ñ´b¡AÁÂÁÂ!
ªþÀÉ: 20181228.rar (17.53 KB)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-12-30 07:40 ½s¿è

¦^´_ 1# man65boy
ÅçÃÒµøµ¡µLªkÅܤj
­×§ï§AªºVBA  ¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  3.     With ComboBox1
  4.         '**Target > ¨Æ¥ó©Ò¶Ç¦^ªº¦ì¸m
  5.         If Not Intersect(Target, [a2:b2]) Is Nothing Then
  6.             Ex_ComboBox_list Target.Address(0, 0) '**©I¥sµ{¦¡ . ¶Ç°e°Ñ¼Æ
  7.             .Left = Target.Left
  8.             .Top = Target.Top
  9.             .Width = Target.Width + 15
  10.             .Height = Target.Height + 3
  11.             .LinkedCell = Target.Address
  12.             '§ï¥Î List ****
  13.             '.ListFillRange = StrVdFml
  14.             '***************
  15.             .Visible = 1
  16.             .Object.SpecialEffect = 3
  17.             .Object.Font.Size = Target.Font.Size
  18.         Else
  19.             .Visible = False
  20.         End If
  21.     End With
  22. End Sub
  23. Private Sub Ex_ComboBox_list(Target As String) 'vu. ­×§ï§ï¥Î List
  24.     Dim Ar(), i As Variant  'Sheet2
  25.     With Sheets("Sheet2").Range("A1")   '**²Ä¤@¼hªºÄæ¦ì¦V¥kªº¸ê®Æ
  26.         Ar = Application.Transpose(Application.Transpose(Sheets("Sheet2").Range(.Cells, .Cells.End(xlToRight)).Value))
  27.     End With
  28.     Select Case Target
  29.         Case "A2"
  30.             ComboBox1.List = Ar
  31.         Case "B2"
  32.             i = Application.Match(Range("a2"), Ar, 0) '²Ä¤@¼hªº¿ï¾Ü** Match ¶Ç¦^²Ä¤G¼hªºÄæ¦ì
  33.             If IsError(i) Then  ' '***** ¨¾§b******
  34.                 MsgBox IIf(Range("a2") = "", "A2 ¨S¿é ¤J... ", Range("a2")) & vbLf & "--¤£¦b-- .." & vbLf & Join(Ar, ",")
  35.                 ComboBox1.Clear
  36.             Else
  37.                 With Sheets("Sheet2").Cells(2, i) '²Ä¤G¼hªºÄæ¦ìªº²Ä¤G¦C
  38.                     Ar = Sheets("Sheet2").Range(.Cells, .Cells.End(xlDown)).Value
  39.                 End With
  40.                 ComboBox1.List = Ar
  41.             End If
  42.        End Select
  43. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    ÁÂÁÂGBKEE¦Ñ®vªºÀ°¦£­×¥¿¡A´ú¸Õ¤w¥i¥Î¡A½Ð°Ý¤@¤UGBKEE¦Ñ®v¡A¦pªG¨Ï¥Î3¼hªº¤U©Ô¡A¤]¬O­n­×§ï¬O§a!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2019-1-6 15:29 ½s¿è

¦^´_ 3# man65boy

©êºp Åý§A¤[µ¥
¸Õ¸Õ¬Ý


Ex_¤T¼h¿ï³æ.zip (26.81 KB)


¤U¸ü«á¥ý¦sÀɮצA¶}ÀɸոլÝ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE
ÁÂÁÂGBKEE¤j¤j¼ö¤ß¦a¦^µª¡A¯¬§A·s¦~§Ö¼Ö¡A¶¶¤ß°·±d!

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD