worksheet 物件事件一覽表
工作表上的事件在預設情況下是可用的。若要檢視工作表的事件過程,請用滑鼠右鍵單擊工作表標籤,再單擊快捷選單上的「檢視**」。在「過程」下拉列表框內選擇事件名稱。
工作表級事件發生在工作表被啟用、使用者更改工作表上的單元格或資料透視表更改時。下例在工作表重新計算時就調整 a 列到 f 列的大小。
private sub worksheet_calculate()
columns("a:f").autofit
end sub
有些事件可用於將某操作取代預設的應用程式操作,或對預設操作進行一些小改動。下例捕獲了右鍵單擊事件,並在單元格區域 b1:b10 的快捷選單中新增了新的選單項。
private sub worksheet_beforerightclick(byval target as range, _
cancel as boolean)
for each icbc in "cell").controls
if icbc.tag = "brccm" then
next icbc
if not range("b1:b10")) _
is nothing then
with "cell").controls _
add(type:=msocontrolbutton, before:=6, _
temporary:=true)
caption = "new context menu item"
onaction = "mymacro"
tag = "brccm"
end with
end if
end sub
啟用乙個工作簿、工作表、圖表或嵌入圖表時產生此事件。
private sub object_activate()
object chart、workbook、或者 worksheet。有關對 chart 物件使用事件的詳細資訊,請參閱圖表物件事件的用法。
切換兩個顯示同乙個工作簿的視窗時,將產生 windowactivate 事件,但不產生工作簿的 activate 事件。
新建視窗時不產生本事件。
當啟用工作表時,本示例對 a1:a10 區域進行排序。
private sub worksheet_activate()
range("a1:a10").sort key1:=range("a1"), order:=xlascending
end sub
圖表、工作表或工作簿從活動狀態轉為非活動狀態時產生此事件。
private sub object_deactivate()
object chart、workbook 或者 worksheet。有關對 chart 物件使用事件的詳細資訊,請參閱 chart 物件事件的用法。
本示例當工作簿轉為非活動狀態時,對所有開啟的視窗進行排列。
private sub workbook_deactivate()
application.windows.arrange xlarrangestyletiled
end sub
當雙擊某工作表時產生此事件,此事件先於預設的雙擊操作。
private sub expression_beforedoubleclick(byval target as range, cancel as boolean)
expression 引用在類模組中帶有事件宣告的 worksheet 型別物件的變數。
target 必需。雙擊發生時最靠近滑鼠指標的單元格。
cancel 可選。當事件發生時為 false。如果事件過程將該引數設為 true,則該過程執行完之後將不進行預設的雙擊操作。
使用 doubleclick 方法並不觸發本事件。
使用者雙擊單元格的邊框時不觸發本事件。
當用滑鼠右鍵單擊某工作表時產生此事件,此事件先於預設的右鍵單擊操作。
private sub expression_beforerightclick(byval target as range, cancel as boolean)
expression 引用在類模組中帶有事件宣告的 worksheet 型別物件的變數。
target 必需。右鍵單擊發生時最靠近滑鼠指標的單元格。
cancel 可選。當事件發生時為 false。如果該事件過程將本引數設為 true,則該過程執行結束之後不進行預設的右鍵單擊操作。
與其他工作表事件相似,當指標位置在圖形或命令欄(工具欄或者選單欄)上時,右鍵單擊不觸發本事件。
應用於 worksheet 物件。
本示例為 b1:b10 單元格新增新的快捷選單項。
private sub worksheet_beforerightclick(byval target as range, _
cancel as boolean)
dim icbc as object
for each icbc in "cell").controls
if icbc.tag = "brccm" then
next icbc
if not range("b1:b10")) _
is nothing then
with "cell").controls _
add(type:=msocontrolbutton, before:=6, _
temporary:=true)
caption = "new context menu item"
onaction = "mymacro"
tag = "brccm"
end with
end if
end sub
對於 chart 物件,在圖表對新的資料點或者更改的資料點繪製之後產生此事件。對於 worksheet 物件,在對工作表進行重新計算之後產生此事件。
private sub object_calculate()
object chart 或者 worksheet。有關對 chart 物件使用事件的詳細內容,請參閱 chart 物件事件的用法。
每當工作表重新計算時,本示例就調整 a 列到 f 列的寬度。
private sub worksheet_calculate()
columns("a:f").autofit
end sub
當使用者更改工作表中的單元格,或外部鏈結引起單元格的更改時產生此事件。
private sub worksheet_change(byval target as range)
target 更改的區域。可以是多個單元格。
重新計算引起的單元格更改不觸發本事件。可使用 calculate 事件俘獲工作表重新計算操作。
本示例將更改的單元格的顏色設為藍色。
private sub worksheet_change(byval target as range)
= 5end sub
當單擊工作表上的任意超連結時,發生此事件。對於應用程式級或工作簿級的事件,請參閱 sheetfollowhyperlink 事件。
private sub worksheet_followhyperlink(byval target as hyperlink)
target hyperlink 型別,必需。乙個代表超連結目標位置的 hyperlink 物件。
本示例對在當前活動工作簿中訪問過的所有鏈結保留乙個列表或歷史記錄。
private sub worksheet_followhyperlink(byval target as hyperlink)
with userform1
.listbox1.additem target.address
.show
end with
end sub
發生在工作簿中的資料透視表更新之後。
private sub expression_pivottableupdate(byval target as pivottable)
身體工作一覽表
任何試圖更改生物鐘的行為,都將給身體留下莫名其妙的疾病,20 30年之後再後悔,已經來不及了。一 晚上9 11點為免疫系統 淋巴 排毒時間,此段時間應安靜或聽 二 晚間11 凌晨1點,肝的排毒,需在熟睡中進行。三 凌晨1 3點,膽的排毒,亦同。四 凌晨3 5點,肺的排毒。此即為何咳嗽的人在這段時間咳...
QS工作職責一覽表
1 iso rohs管理者代表工作職責 1 負責按照iso9001 2000版 和rohs標準建立 實施和維護本公司質量管理體系。2 主持內部質量審核,組織評審,保證質量體系的有效執行。3 向總經理匯報本公司質量管理體系的運 況。4 確保本公司各階層人員對滿足客戶要求的重要性認識。5 針對品質管理系...
建行按揭一覽表
客戶準備資料 一 客戶身份證原件及影印件兩份 單身提供個人身份證,已婚提供夫妻雙方身份證 二 戶口本原件及影印件乙份 戶口本或戶籍卡均可,暫時無戶口本的需在戶籍所在地的派出所出具戶籍證明 三 單身提供單身證明 已婚者提供結婚證 離異者提供單身證明兩份及離婚證原件或法院判決書原件及影印件兩份 喪偶者提...