學點VBA之EXCEL 二

（1）在vba中建立乙個窗體，初始化其位置，並呼叫之...

sub

callform()
userform1.show         
'顯示窗體
userform1.left 
=600
'顯示位置
userform1.top 
=180
end sub
private
subcommandbutton1_click()
callform  '呼叫
end sub

**

private

subcommandbutton1_click()
dimi, j, k 
asintegerj =
0k =0
l =0m 
=0fori =1
to10
ifcells(i, 
1).font.color =0
then
'判斷字型顏色為黑色j =
j +1end
ifif
cells(i, 
1).font.color 
=255
then
'判斷字型顏色為紅色k =
k +1end
ifif
cells(i, 
2).interior.color =&
hffffff 
then
'判斷背景顏色為白色l =
l +1end
ifif
cells(i, 
2).interior.color =&
hff 
then
'判斷背景顏色為紅色m =
m +1end
ifnext
idim
fc, bc 
asstring
fc =
"red = "&
k &",black = "&
jmsgbox
(fc)
bc =
"white = "&
l &",red = "&
mmsgbox
(bc)
end sub

Excel使用筆記（二） 巨集之VBA使用

在前面文章中，我們建立了 省市區 聯動的效果，但是發現乙個問題 修改第一級和第二級的目錄，後邊的層級不會跟隨變化，也不會清除資料。所以採用巨集去處理，這裡使用的是vba。將下列 複製進編輯器，對應的單元格修改，就會觸發時間。中包含三個部分 1 列表變化的部分 2 計算觸發的部分 3 根據前乙個單元格...

excel下vba程式設計

最近需要在excel中實現乙個功能，查閱excel的函式沒有，或者是我沒找到，於是使用 vba進行擴充套件實現，步驟如下 1 開啟要擴充套件的excel檔案,並啟用巨集。2007的excel檔案，在 上面一行有乙個黃色小條提示 2 使用快捷鍵 alt f11 開啟vba編輯視窗 3 在左邊的部分新增...

VBA 操作excel選單

在thisworkbook中加入 option explicit private sub workbook activate call mytools end sub private sub workbook beforeclose cancel as boolean call delmytools...