ºô­¶¬d¸ß°ÝÃD

sillykin

http://www.land.moi.gov.tw/ngis/chhtml/query2.asp

sillykin

ÁÂÁÂg¤j    c_c_lai¤j ¤G¦ìªº»¡©ú¡A·PÁÂ
¬O¤p§Ìªº¹q¸£¥X²{°ÝÃD¡A»s³y¤G¦ì³Â·Ð¡A¦b¦¹»¡Án¡y©êºp¡z¡A¤]·PÁ¤G¦ì¤j¤j¨ó§U

c_c_lai

¦^´_ 15# sillykin
³o¬O§Aªþ¤Wµ{¦¡°õ¦æªºµ²ªGµe­±¡A
§Úªº°õ¦æÀô¹Ò¡G
Windows 10 x64 ±M·~ª© (CPU¡G 16.0G)¡F
Excel 2010 Pro
½Ð¦A±q Sheet1 ªº Private Sub CommandButton1_Click()
«ö F8 Tracing ¬Ý¬Ý¡C

¤U¸ü (36.97 KB)

2016-2-27 09:54

GBKEE

¦^´_ 15# sillykin
IE8,2003 °õ¦æ§AªºªþÀÉ,¨S¦³¿ù»~
½Ð¦bªí³æ¼Ò²Õ¤W«öF8³v¨B°õ¦æµ{¦¡½X,¬Ý¿ù»~ÂI¦b­þ¸Ì.

sillykin

¦^´_ 2# GBKEE


    ¥X²{¦¹¿ù»~

sillykin

¦^´_ 11# GBKEE


    ÁÂÁÂg¤jªºÀ°¦£

sillykin

¦^´_ 11# GBKEE


ÁÂÁÂg¤j    c_c_lai¤j ¤G¦ìªº»¡©ú¡A·PÁÂ
¦ýÁÙ¬O¦³°ÝÃD¡A

c_c_lai

¦^´_ 9# sillykin
GBKEE ª©¤jªº¡G

1. Combo_Ar = Array(ComboBox0, ComboBox1, ComboBox2, ComboBox3, ComboBox4)

½Æ»s¥N½X

¬O±q 0 °_«Å§i¡C
¥ç§Y§Aªº ComboBox ª«¥ó¦WºÙ¡A À³¬° ComboBox0¡BComboBox1¡BComboBox2¡BComboBox3¡B ComboBox4¡F
¦Ó«D¬O ComboBox1¡BComboBox2¡BComboBox3¡B ComboBox4¡B ComboBox5¡C

GBKEE

¦^´_ 10# sillykin
©êºpµ{¦¡½X¨S¶K»ô¥þ,­ìµ{¦¡½X¥H§ó·s
UserForm¼Ò²Õ³»ºÝªºÅܼƫŧi(³o¼Ò²ÕªºSUB(µ{§Ç)¬Ò¥i¨Ï¥Î)

1. Option Explicit
   
2. Dim IE As Object, Combo_Ar(), xMsg As Boolean, xButton As Boolean, xRng As Range

½Æ»s¥N½X

sillykin

¦^´_ 9# sillykin
¦]µo¥Í«¬ºA¤£²Å13¡A¤p§Ì¥[¤J¤U­±¤@¦æ
On Error Resume Next

¦ýµo¥Í
ª«¥ó­ÈµLªk¥X²{¡A¤S¥X²{




¦¹¬q¦³°ÝÃD
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    IE.Quit
End Sub