介紹GBA模擬器最新版：安卓vba模擬器

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

註：1.“顏色產生器”中的顏色使用RGB三原色混色而成，三原色顏色值使用隨機數產生。

2. RGB混色所成的顏色值為長整形數據，可使用long型數據進行接收。

Step1. 功能實現簡述

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

A1隨機填充色產生後，鼠標點選此單元格即可獲得填充色的顏色值，之後再點擊或框選非A1單元格即可實現塗色。

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

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

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

經調整後，命令按鈕狀態如下。

Step3. 代碼的添加

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

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

之後使用For循環進行10次A1單元格顏色的填充。每次循環均使用Rnd隨機數進行RGB三原色賦值，使A1的Color每次都不一樣。

Sleep 200代表每次循環都要等待200毫秒，否則A1單元格顏色變化過快人眼無法察覺影響視覺效果。Sleep非VBA原生函數（屬Windows API函數），故需在代碼窗口前端使用Declare關鍵字進行聲明。

3.2 在代碼窗口列表框中點選①Worksheet及②SelectionChange，並在調出的過程中添加紅色框所對應的代碼。

紅色框中的代碼主要判斷點擊的是否為A1單元格，若是，則將A1單元格中的填充色數據給變量selectedColor並將塗色開關f打開；若否，則判斷是否已經取色（f為true表示已經取色），如果已取色則進行塗色（即將當前選擇區域填充色變為selectedColor）。

Step4. 執行的代碼

返回前台sheet界面，點擊命令按鈕使A1單元格生成隨機填充色。鼠標點選A1即可取色，再點擊其他單元格即可塗色。

註：開發工具選項卡的加載方法：

開啟功能區選項並在⑦的位置勾選“開發工具“，如果⑦處沒有此選項可由③到⑦的步驟調出，最終點⑧完成開發工具選項的加載。