問問蓮蓬頭

[運用說明]

很多公司的產品會使用顏色管理進行標示，如第一季進貨的產品在標籤上會使用綠色標示，第二季進貨的產品，顏色則回變成紫色以此類推，當然如果有規模的公司作業系統又自動有這個功能，但如果公司內部是使用Excel進行標籤製作，就只能自己標註顏色，有時因為操作人員的不同，選取的顏色也會深淺不一，所以這邊要教大家的是，使用程式碼讓系統判定進貨日期的季度，並將顏色自動變色。

[使用函數]

[有很多種解決問題的方法，這邊只是提供一個我知道的，並不代表是最佳的]

[使用函數]

A.RANDBETWEEN(XXX,XXX)= RANDBETWEEN=(最小值,最大值)

函數說明:在最小值與最大值間隨機號碼產生一個號碼

B.COUNTIF(XXX,XXX)= COUNTIF(範圍,目標)

1.首先在UserForm內新增多個 (OptionButton)控制項

2. 分成左右兩邊，左邊一個群組，右邊一個群組

3.把OptionButton1~ OptionButton4圈起來

Sub JS()

For i = 1 To 10
x = i '(X是讓儲存格可以跟For迴圈向下移動)
Range("a" & (i)).Value = i '(a是控制欄位的如果你要在b欄產生則改成b)
Next i