性一交一乱一伦一色一情孩交,人妻妺妺窝人体色www聚色窝,国产欧美日韩综合网站

VBA 工作表自帶的Worksheet_SelectionChange過程可監(jiān)控鼠標(biāo)對單元格的點選，確定某單元格為“顏色產(chǎn)生器”，點選“顏色產(chǎn)生器”取其填充色，再次選擇其他單元格或區(qū)域時用所取的填充色填充選區(qū)，如此即可模擬拾色器的取色及涂色效果（如上方視頻展示）。
注：1.“顏色產(chǎn)生器”中的顏色使用RGB三原色混色而成，三原色顏色值使用隨機(jī)數(shù)產(chǎn)生。
2. RGB混色所成的顏色值為長整形數(shù)據(jù)，可使用long型數(shù)據(jù)進(jìn)行接收。
Step1. 功能實現(xiàn)簡述
選定A1單元格為“顏色產(chǎn)生器”，并使用命令按鈕控制使此單元格產(chǎn)生隨機(jī)填充色。
A1隨機(jī)填充色產(chǎn)生后，鼠標(biāo)點選此單元格即可獲得填充色的顏色值，之后再點擊或框選非A1單元格即可實現(xiàn)涂色。
Step2. 命令按鈕的添加及命名
如下圖按①到③的順序點選“開發(fā)工具”->“插入”->“命令按鈕”，隨機(jī)點選單元格放置命令按鈕，然后鼠標(biāo)拖動按鈕邊框調(diào)整大小，并拖動或鍵盤上下左右鍵微調(diào)將命令按鈕安放于合適的位置。

【安卓vba模擬器介紹GBA模擬器最新版】右鍵命令按鈕，點選屬性，在屬性頁更改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單元格遺留的隨機(jī)色及非A1單元格的涂色）。
之后使用For循環(huán)進(jìn)行10次A1單元格顏色的填充。每次循環(huán)均使用Rnd隨機(jī)數(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單元格生成隨機(jī)填充色。鼠標(biāo)點選A1即可取色，再點擊其他單元格即可涂色。
注：開發(fā)工具選項卡的加載方法：
開啟功能區(qū)選項并在⑦的位置勾選“開發(fā)工具“，如果⑦處沒有此選項可由③到⑦的步驟調(diào)出，最終點⑧完成開發(fā)工具選項的加載。