excel做過三關

1.如圖...在 VISUAL BASIC 的 sheet1 (中文版=工作表1) 輸入以下程式碼；

圖片參考：http://imgcld.yimg.com/8/n/HA00726953/o/701112080055913873409120.jpg



Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column > 3 Or Target.Row > 3 Or Target.Count > 1 Or Target.Text <> "" Then Exit SubSelection.Cells = [F1]
If [A1] = [B1] And [B1] = [C1] And [C1] <> "" Or _
[A2] = [B2] And [B2] = [C2] And [C2] <> "" Or _
[A3] = [B3] And [B3] = [C3] And [C3] <> "" Or _
[A1] = [A2] And [A2] = [A3] And [A3] <> "" Or _
[B1] = [B2] And [B2] = [B3] And [B3] <> "" Or _
[C1] = [C2] And [C2] = [C3] And [C3] <> "" Or _
[A1] = [B2] And [B2] = [C3] And [C3] <> "" Or _
[A3] = [B2] And [B2] = [C1] And [C1] <> "" Then MsgBox ([F1] & " WIN!")
If [F1] = "O" Then
[F1] = "X"
Else
[F1] = "O"
End IfEnd Sub
'--------------------------------------------
Sub CLEAR()[A1:C3] = ""[F1] = "O"End Sub

2.如圖繪出以下圖樣，插入一個按鈕命名為CLEAR，指定選CLEAR巨集。


圖片參考：http://imgcld.yimg.com/8/n/HA00726953/o/701112080055913873409131.jpg


完成


圖片參考：http://imgcld.yimg.com/8/n/HA00726953/o/701112080055913873409132.jpg