国产精品吹潮在线播放,日韩一区二区三区在线播放,啊级免费黄片视频,66av视频

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

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

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

Step1. 功能實(shí)現(xiàn)簡(jiǎn)述

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

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

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

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

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

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

Step3. 代碼的添加

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

命令按鈕點(diǎn)擊時(shí)，程序使用Cells.clear先對(duì)整個(gè)工作表單元格進(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單元格顏色變化過(guò)快人眼無(wú)法察覺(jué)影響視覺(jué)效果。Sleep非VBA原生函數(shù)（屬Windows API函數(shù)），故需在代碼窗口前端使用ｄｅｃｌａｒｅ關(guān)鍵字進(jìn)行聲明。

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

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

Step4. 執(zhí)行的代碼

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

注：開(kāi)發(fā)工具選項(xiàng)卡的加載方法：

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