VBA講義 　- 期末作業

題目: 自訂

要求:

1. 要能在 Excel 中執行，來供使用者操作，且具有意義的程式。

2. 可以參考教科書上的題目，或網頁上的講義。但是，不可以一模一樣。可以變化，或改的更好。

作業繳交方式:

1. 在 excel 中書寫,

2. Sheet1 的第1行要先書寫 "四管一 王XX 3號" (班級、姓名、座號)"

3. Sheet1 的第2行要書寫 "題目名稱"

4. Sheet1 的第3行(含)以下，要書寫 "程式功能" (建議可以用多行來條列說明)

5. Sheet1 的第4行(含)以下，要書寫 "操作步驟" (建議可以用多行來條列說明)

6. 程式的操作及執行後的顯示畫面，請放在 Sheet2

7.存成檔名 finalu9xxxxxxx.xls ( final表示期末作業, u9xxxxxx是學號)

　

例如:

人的姓名與性別是有相關性的，例如: 名字中有"娟"的應該是女性。

所以，在輸個人基本資料時, 可以利用以下的程式來猜測性別，用以節省輸入的時間。

畫面

 程式

Private Sub CommandButton1_Click()

Dim boy(10), girl(10)
boy(1) = "瑋"
boy(2) = "誠"
boy(3) = "甫"
boy(4) = "德"
boy(5) = "坤"
boy(6) = "傑"
boy(7) = "育"
girl(1) = "珍"
girl(2) = "娟"
girl(3) = "麗"
girl(4) = "莉"
girl(5) = "蓓"

For i = 2 To 17
For j = 1 To 7
If InStr(Range("A" & i), boy(j)) > 0 Then
Range("D" & i) = "男"
End If
Next j
Next i

For i = 2 To 17
For j = 1 To 5
If InStr(Range("A" & i), girl(j)) > 0 Then
Range("D" & i) = "女"
End If
Next j
Next i

End Sub

說明:

instr(字串1, 字串2) 的值大於0 : 表示字串2有出現在字串1之中
instr(字串1, 字串2) 的值等於0 : 表示字串2沒有出現在字串1之中