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

[µo°Ý] (ÁÂÁ®¦®v­Ì¡A7/4§¹¦¨) Ãö©ó¦Û­qªí³æTextBox¿é¤JÃöÁä¦r¥X²{¸ê®Æ(ªþ½d¨Ò)

[µo°Ý] (ÁÂÁ®¦®v­Ì¡A7/4§¹¦¨) Ãö©ó¦Û­qªí³æTextBox¿é¤JÃöÁä¦r¥X²{¸ê®Æ(ªþ½d¨Ò)

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-4 19:58 ½s¿è

Ãö©ó¦Û­qªí³æTextBox¿é¤JÃöÁä¦r¥X²{¸ê®Æ(½d¨Ò¦p¤U)
http://forum.twbts.com/viewthrea ... hlight=%C3%F6%C1%E4

¦b¦Û­qªí³æ»s§@¤@­ÓTextBox3
­YC1=100  C2=15
·íTextBox3¿é¤J"1"³o­Ó¦r~«h·|¥X²{¥H¤W¨â­Ó¿ï¶µ¥i¥HÂI¿ï

¦b¦Û­qªí³æ»s§@¤@­ÓTextBox4
­YD1=¤j©Ð¨§¤z  D2=¤j²³©Ð«Î
·íTextBox4¿é¤J"¤j"³o­Ó¦r~«h·|¥X²{¥H¤W¨â­Ó¿ï¶µ¥i¥HÂI¿ï

¥H¦¹Ãþ±À~ÁÂÁ¦U¦ì¤j¤jªº¥Î¤ßÆ[¬Ý

ÁÂÁÂG¤j¥¿¦V°f±À«ä¦ÒªºÅÞ¿è¤è¦¡~¶W·P¿Eªº!!ÁÂÁ§A!!

¦^´_ 2# GBKEE


    ¤j¤jªº¦^ÂЯuªº¬O¶W¯Å§Ö@@ ¥Ñ°J·PÁÂ~

·Q¸ß°Ý¤@¤U~¦pªG§Ú§Æ±æ·íComboBox¿ï¨ì·Q­nªº¿ï¶µ«áTextBox¦Û°Ê¶ñ¤J¸Ó¸ê®Æ
§Ú´ú¸Õ¤F«Ü¦h¦¸¦n¹³³£¤£¥i¥H~

Sub ComboBox1_Click()
TextBox1=ComboBox1
End Sub

§Ú¦n¹³·Q±o¤Ó²³æ¤F@@

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-26 22:37 ½s¿è

¦^´_ 4# GBKEE


    ÁÂÁ¤j¤j~³Ì«á¤@¦¸³Â·Ð¤j¤j
½Ð°ÝComboBox¤ºªº­È­Y¬O­«½Æ~¬O§_¥i¥H¥uÅã¥Ü¤@µ§?

TOP

¦^´_ 6# register313


    ¤j¤j±z¦n~¦pªG§Ú®M¥Î¨ì§Ú¥Ø«e¦³¼g¤F«Ü¦h¨ä¥Lªº¸Ì­±~
·|¥X²{¿ù»~'424'
¦¹³B»Ý­nª«¥ó

¥¼©R¦W.png
2012-6-27 10:00

TOP

¦^´_ 10# GBKEE


   
¥¼©R¦W2.jpg
2012-6-27 10:16

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-27 10:24 ½s¿è

¦n¹³´N¬O¥d¨ìUserForm1ªº¦a¤è

TOP

¦^´_ 13# GBKEE


    ¤j¤j~¥i¥H¤F~§Ú¬Ý¨ì³\¦h¤j¤j³£·|¨Ï¥ÎOption Explicit
Option Explicitªº·N¸q¬O¦bµ{¦¡¼Ò²Õ¤¤±j­¢¨C­Ó¦bµ{¦¡¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½T§¹¾ãªº«Å§i©M©w¸q¨ä¦WºÙ,½d³ò»P«¬§O.
Option Explicit ³¯­z¦¡¥²¶·¥X²{¦b¼Ò²Õ¤¤©Ò¦³µ{§Ç¤§«e(§Y³Ì³»ºÝ)
·í Option Explicit ¦b¼Ò²Õ¤¤¨Ï¥Î®É¡A©Ò¦³ªºÅܼƥ²¶·¥H Dim¡A Private¡BPublic¡BReDim ©Î Static ³¯­z¦¡¨Ó©ú½T«Å§i¡C
¦b¼Ò²Õ¤¤¦pªG¨Ï¥ÎOption Explicit ,¦bµ{¦¡¤¤¦p¥¼«Å§iÅܼƪº¦WºÙ¡A«h¦b½sĶ¶¥¬q®É¡A·|µo¥Í¿ù»~¡C
¦pªG¨S¦³¨Ï¥Î Option Explicit ³¯­z¦¡¡A«h©Ò¦³¥¼«Å§iªºÅܼƳ£¬O Variant «¬ºA¡A°£«D¹w³]ªº«¬ºA¥t¥H Deftype ³¯­z¦¡©Ò«ü©w¹L¡C
Option Explicit ¥iÁקK¥´¿ùÅܼƦWºÙ©Î¦b¦³®Ä½d³ò¤º³]©w¨â­Ó¬Û¦PªºÅܼƦWºÙ¡C


³Ì¥D­n¬O¤£¬OÁקK¥´¿ùÅܼƦWºÙ~¦ý¬O³o¼Ë¨C¦¸³£¥²¶·¥ÎDim¡A Private¡BPublic¡BReDim ©Î Static ³¯­z¦¡¨Ó©ú½T«Å§i¡C
·N«ä¬O¤£¬O»¡
¦pªG§ÚÀH·N³]©w
a=textbox1
for i =1 to 3
a=a+1
next i

³o¼Ë¬O§_·|¥X²{¿ù»~~
§Úµo²{§Ú¤§«e©Ò°µªº³£¨S¥ÎOption Explicit~²{¦b­n¨Ó¤@­Ó¤@­Ó°£¿ù·|¤£·|ÁÙ¨Óªº«æ¶Ü?

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-4 14:10 ½s¿è

¦^´_ 6# register313

Private Sub UserForm_Initialize()

    Dim d As Object, A

    Set d = CreateObject("Scripting.Dictionary")

    With ActiveSheet

        For Each A In .Range("d2", .[d2].End(xlDown))

          d(A.Value) = ""

        Next A

        ComboBox1.List = Application.Transpose(d.keys)

        d.RemoveAll

        For Each A In .Range("e2", .[e2].End(xlDown))

          d(A.Value) = ""

        Next A

        ComboBox2.List = Application.Transpose(d.keys)

    End With

End Sub
---------------------------------------------------------------------
ComboBox1 = DÄæ
ComboBox2 = EÄæ

­YD1=¦­À\  D2=¤ÈÀ\  D3=¦­À\
­YE1=½Þ¦×  E2=Âû¦×  E3=¤û¦×

·íComboBox1¿ï¨ì¦­À\ªº®É­Ô¡AComboBox2¬O§_¯à¥uÅã¥Ü½Þ¦×©M¤û¦×¡A¦]¬°Âû¦×¬O¤ÈÀ\ªº©Ò¥H¹LÂo¸Óµ§¡C

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-28 21:06 ½s¿è

¦^´_ 18# GBKEE


°ÝÃD¸Ñ¨M~ÁÂÁÂ!

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-28 22:40 ½s¿è

¦^´_ 20# GBKEE


    ¥Ñ©ó§ÚµLªk¨Ï¥ÎOption Explicit¦]¬°§Ú¤j¦h¼Æ¤º®e³£¨S+Option Explicit
¾É­PÅܼƧڨS¦³¤@­Ó¤@­Ó¥h³]©w~¤@ª½¥X¿ù~©Ò¥H§Ú¥´ºâ§ï¨ìModule
µM«á¥ÎCallªº¤è¦¡©I¥s~¥i¬O·|¥X¿ù~¦bModuleªº¼gªk¬O§_¤]®t²§?

Option Explicit
Dim d As Object
Sub UFI()
    Dim A As Range
    Set d = CreateObject("Scripting.Dictionary")
    With ActiveSheet
        For Each A In .Range("d2", .[d2].End(xlDown))
          d(A.Value) = IIf(d(A.Value) = "", A.Offset(, 1).Value, d(A.Value) & "," & A.Offset(, 1))
        Next
        ComboBox1.List = d.KEYS
    End With
End Sub
Sub CBC()
    If ComboBox1.ListIndex > -1 Then
        ComboBox2.List = Split(d(ComboBox1.Value), ",")
        ComboBox2.Value = ComboBox2.List(0)
    End If
End Sub

§Ú§Q¥ÎCall©I¥sUFI©ÎCBC³£·|¥X¿ù~¥d¨ìÅܼưÝÃD~

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD