excel2007編程
① 關於易語言 操作excel2007以上文件的方案
利用易語言編程環境創建一個「Windows窗口程序」。點擊菜單「工具」->「支持庫配置」項。
在打開的窗口中,找到並勾選「通用對象支持庫 2.0版」,並點擊「確定」以添加「超級列表框」組件。
接下來在「啟動窗口」中繪制如圖所示的界面,其中包括一個「外部資料庫」和一個「超級列表框」(從擴展面板中可以找到)組件。
然後利用Excel創建一個名為「jiance.xls」的Excel文件。
註:將該文件與易語言程序本身放置在同一目錄下。
確保選中「啟動窗口」,然後為其添加「創建完畢」事件。
接著輸入如圖所示的易語言代碼:
.版本 2
.支持庫 iext
.如果真 (外部資料庫1.打開 (「ODBC;DBQ=」 + 取當前目錄 () + 「\jiance.xls;Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;」, , ) = 假)
信息框 (「資料庫連接失敗!」, #錯誤圖標, )
返回 ()
.如果真結束
查詢語句 = 「select * from [Sheet1$]」
記錄集 = 外部資料庫1.查詢 (查詢語句)
.如果真 (記錄集 = 0)
信息框 (「查詢失敗!」, #錯誤圖標, )
返回 ()
.如果真結束
外部資料庫1.到首記錄 (記錄集)
局部_計次 = 1
超級列表框1.插入列 (, 「序號」, 80, , , )
超級列表框1.插入列 (, 「姓名」, 80, , , )
超級列表框1.插入列 (, 「性別」, 80, , , )
超級列表框1.插入列 (, 「年齡」, 80, , , )
.判斷循環首 (外部資料庫1.尾記錄後 (記錄集) = 假)
局部_臨時A = 外部資料庫1.讀 (記錄集, 1)
局部_臨時B = 外部資料庫1.讀 (記錄集, 2)
局部_臨時C = 到文本 (外部資料庫1.讀 (記錄集, 3))
索引 = 超級列表框1.插入表項 (, , , , , )
超級列表框1.置標題 (索引, 0, 到文本 (局部_計次))
超級列表框1.置標題 (索引, 1, 局部_臨時A)
超級列表框1.置標題 (索引, 2, 局部_臨時B)
超級列表框1.置標題 (索引, 3, 局部_臨時C)
外部資料庫1.到後一記錄 (記錄集)
局部_計次 = 局部_計次 + 1
.判斷循環尾 ()
外部資料庫1.關閉記錄集 ()
最後點擊「運行」按鈕,就可以看到易語言成功引用Excel表格中的數據啦。
② 中文版Excel2007高級VBA編程寶典的編輯推薦
《中文版Excel2007高級VBA編程寶典》將介紹如何定製Excel用戶窗體、開發新實用程序、用VBA處理圖表及數據透視表,以及創建事件處理應用程序。還將介紹如何使用VBA子過程和函數過程、與其他應用程序輕松交互、構建用戶友好的工具欄、菜單和幫助系統等。
「電子表格先生」潛心力作,世界級Excel暢銷書。
「千錘百煉」的Excel暢銷書
沒有人比「電子表格先生」更了解Excel2007。《中文版Excel2007高級VBA編程寶典》涵蓋了使用VBA擴展Excel功能的方法、提示和思想。Excel2007還有一些絕秘的新技巧,JohnWalkenbach將幫助您掌握它們。
《中文版Excel2007高級VBA編程寶典》的作者JohnWalkenbach是享有國際美譽的「電子表格先生」。他在書中分享了自己15年來使用Excel的經驗,毫無保留地傳授了學習和使用Excel的所有知識,為讀者掌握Excel提供了絕佳的途徑。《中文版Excel2007高級VBA編程寶典》的前兩個版本均已獲得巨大成功,在前兩版的基礎上,《中文版Excel2007高級VBA編程寶典》升華了已有的精華,並結合Excel2007的全新特性,是一部技術含量高、實踐性強的經典著作。
③ excel2007如何進入編程界面
右鍵點最下面的表格名稱,然後查看代碼,就進入了宏界面,裡面就可以用VBA了
④ excel 2007 編程
不用編程,用if公式就可以解決了。
樓主用過vb,if公式通過幫助看一下就行了。我就不詳細解釋了。
操作:
=if((40-d3)>=0,0,d3-40)
應該能滿足要求。
⑤ EXCEL2007 VBA編程 如何實現逐行多對對查找
這個不需要VBA呀,用公式就可以搞定的
如下:
sheet1表結構如下:
B2里輸入的公式為
=IF(ISERROR(MATCH(A2 & B1,Sheet1!A2:A9 & Sheet1!B2:B9,0)),"",INDEX(Sheet1!C2:C9,MATCH(A2 & B1,Sheet1!A2:A9 & Sheet1!B2:B9,0)))
【注】在B2里復制粘貼以上公式後要同時按下CTRL+SHEFT+ENTER組合鍵
當你改變A2和B1的值時,B2里就會跳出相應的完成內容