ªð¦^¦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!!

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


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

TOP

¦^´_ 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

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

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

TOP

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

¦^´_ 4# GBKEE


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

TOP

¦^´_ 5# av8d
  1. Private Sub UserForm_Initialize()
  2.     Dim d As Object, A
  3.     Set d = CreateObject("Scripting.Dictionary")
  4.     With ActiveSheet
  5.         For Each A In .Range("b2", .[b2].End(xlDown))
  6.           d(A.Value) = ""
  7.         Next A
  8.         ComboBox1.List = Application.Transpose(d.keys)
  9.         d.RemoveAll
  10.         For Each A In .Range("c2", .[c2].End(xlDown))
  11.           d(A.Value) = ""
  12.         Next A
  13.         ComboBox2.List = Application.Transpose(d.keys)
  14.     End With
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    ª©¥D¤j¤j±z¦n¡G

  ¦bÃöÁä¦r¿é¤J½d¨Ò¸Ì¡A
¤p§Ì¹ï©ó¤U¦C»yªk
ªºÀ³¥Î¤£¬O«Ü¤F¸Ñ¡A
·Ð½Ðª©¥D¤j¤j¯à©ú¥Ü¡C

¤@¡B
.Replace "*" & TextBox1 & "*", "=what this", xlPart

¬°¦ó¥Î"=what this"¡A¤p§Ì¦³¦b¤u§@ªí¤Wªº¿é¤J­È¦a¤è¦³¬Ý¨ì
Åã¥Ü¬°=what this¤£ª¾¨ä¥Î·N¬°¦ó¡H

¤G¡B
.SpecialCells(xlCellTypeFormulas, xlErrors).Name = "xxx"
¦¹»yªk¤p§Ì¤@ª½¤£À´±o¦p¦ó¥hÀ³¥Î¤ÎÅçÃÒ©O¡H
¦bTEXTBOX1¿é¤J¬d¸ß®É¡A¦bBÄæÀx¦s®æ·|¥X²{#NAME?

¤T¡B
With ComboBox1
     For Each E In [XXX]
       .AddItem E.Value
     Next
.Value = .List(0)
    End With
¬°¦ó°Ï°ìÅܼƬݤ£¨ì
¦³¦¹ª«¥óÅܼÆ[XXX]¡A
¤S¦¹ª«¥óÅܼƥѦó¦Ó¨Ó©O¡H

ÁÂÁª©¥D¤j¤j¡C

TOP

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

¦^´_ 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

TOP

¦^´_ 6# register313


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

TOP

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

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD