- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
¦^´_ 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 |
|