1樓:
sub test()
dim conn as new adodb.connectiondim strconn as stringdim strsql as string
dim rs as new adodb.recordsetstrconn = "provider=sqloledb;server=192.168.
1.111;database=db2014;uid=使用者名稱;pwd=密碼;"
conn.open strconn
max_row = range("a1").currentregion.rows.count
for i=1 to max_row
strsql = "select name from sales2014 where id='" & range("a" & i).value & "'"
conn.execute strsql
rs.open strsql, conn, 1, 1range("b" & i).value= rs(0)rs.close
set rs = nothing
next i
'關閉資料內庫容
conn.close
end sub
excel vba select case語句的使用方法 10
2樓:匿名使用者
不明白你說的,bai
但你可以仿
du照下面的語
zhi法自己寫
case語句的語法如dao
下:select case 測試表示式
case is 條件1
如果版條件1為真時執行權的語句
case is 條件2
如果條件2為真時執行的語句
case is 條件n
如果條件n為真時執行的語句
end select
例如,我們來比較幾個數字:
select case mynumber
case is <10
msgbox "the number is less than 10"
case 11
msgbox "you entered eleven."
case is >=100
msgbox "the number is greater than or equal to 100."
case else
msgbox "the number is between 12 and 99."
end select
假設變數mynumber為120,那麼第三個case子句為真,並且只有case is >=100和case else之間的語句會被執行
3樓:匿名使用者
用baifor 語句
du+if語句可以zhi
實現dao
專sub dd()
for myrow = 6 to 10
if range("f" & myrow).value <> 0 and len(trim(range("e" & myrow).value)) = 0 then
msgbox "資料錯
屬誤", , "e" & myrow
end if
next
end sub
在ExcelVBA中怎麼寫if函式
如果要寫公式，就直接用雙引號括起來即可，如 內 range a1 if p9 0,0,p9 100 p9 t9 u9 如果想直 接得到值容 if range p9 0 thenrange a1 0 else range a1 range p9 100 range p9 range t9 range ...
如果在excel VBA中判斷A列中的空白單元格，遇到後就終止程式
在工作表名稱上點右鍵,選檢視 貼上下面的 sub 檢查空單元格 dim rng as range,arr for each rng in range a1 a30 if rng then n n 1 redim preserve arr 1 to n arr n rng.address 0,0 en...
EXCEL VBA組合框中新增新的項
private sub textbox1 keydown byval keycode as msforms.returninteger,byval shift as integer if keycode 13 then if textbox1.text userform1.combobox1.add...