国产chinesehd精品酒店,邱淑贞aa极毛片,国产在线色视频,玖玖爱zh综合伊人久久

VBA 工作表自帶的Worksheet_SelectionChange過程可監(jiān)控鼠標(biāo)對單元格的點選，確定某單元格為“顏色產(chǎn)生器”，點選“顏色產(chǎn)生器”取其填充色，再次選擇其他單元格或區(qū)域時用所取的填充色填充選區(qū)，如此即可模擬拾色器的取色及涂色效果（如上方視頻展示）。

注：1.“顏色產(chǎn)生器”中的顏色使用RGB三原色混色而成，三原色顏色值使用隨機數(shù)產(chǎn)生。

2. RGB混色所成的顏色值為長整形數(shù)據(jù)，可使用long型數(shù)據(jù)進(jìn)行接收。

Step1. 功能實現(xiàn)簡述

選定A1單元格為“顏色產(chǎn)生器”，并使用命令按鈕控制使此單元格產(chǎn)生隨機填充色。

A1隨機填充色產(chǎn)生后，鼠標(biāo)點選此單元格即可獲得填充色的顏色值，之后再點擊或框選非A1單元格即可實現(xiàn)涂色。

Step2. 命令按鈕的添加及命名

如下圖按①到③的順序點選“開發(fā)工具”->“插入”->“命令按鈕”，隨機點選單元格放置命令按鈕，然后鼠標(biāo)拖動按鈕邊框調(diào)整大小，并拖動或鍵盤上下左右鍵微調(diào)將命令按鈕安放于合適的位置。

右鍵命令按鈕，點選屬性，在屬性頁更改Caption值及Font屬性（可根據(jù)自己喜好修改）。

經(jīng)調(diào)整后，命令按鈕狀態(tài)如下。

Step3. 代碼的添加

3.1 雙擊命令按鈕在VBE界面右側(cè)代碼區(qū)域 Private Sub CommandButton1_Click() 子過程內(nèi)外添加紅色框所對應(yīng)的代碼

命令按鈕點擊時，程序使用Cells.clear先對整個工作表單元格進(jìn)行清空（主要清除上次A1單元格遺留的隨機色及非A1單元格的涂色）。

之后使用For循環(huán)進(jìn)行10次A1單元格顏色的填充。每次循環(huán)均使用Rnd隨機數(shù)進(jìn)行RGB三原色賦值，使A1的Color每次都不一樣。

Sleep 200代表每次循環(huán)都要等待200毫秒，否則A1單元格顏色變化過快人眼無法察覺影響視覺效果。Sleep非VBA原生函數(shù)（屬Windows API函數(shù)），故需在代碼窗口前端使用ｄｅｃｌａｒｅ關(guān)鍵字進(jìn)行聲明。

3.2 在代碼窗口列表框中點選①Worksheet及②SelectionChange，并在調(diào)出的過程中添加紅色框所對應(yīng)的代碼。

紅色框中的代碼主要判斷點擊的是否為A1單元格，若是，則將A1單元格中的填充色數(shù)據(jù)給變量selectedColor并將涂色開關(guān)f打開；若否，則判斷是否已經(jīng)取色（f為true表示已經(jīng)取色），如果已取色則進(jìn)行涂色（即將當(dāng)前選擇區(qū)域填充色變?yōu)閟electedColor）。

Step4. 執(zhí)行的代碼

返回前臺sheet界面，點擊命令按鈕使A1單元格生成隨機填充色。鼠標(biāo)點選A1即可取色，再點擊其他單元格即可涂色。

注：開發(fā)工具選項卡的加載方法：

開啟功能區(qū)選項并在⑦的位置勾選“開發(fā)工具“，如果⑦處沒有此選項可由③到⑦的步驟調(diào)出，最終點⑧完成開發(fā)工具選項的加載。