表單自動化

Question

請問在word/excel之中,設定好核取方塊之後,如何設定在勾選項目之後,自動跑出訊息. 比如說選取公司地址或帳單地址,會自動跳出所需的地址等

我開啟檔案之後,有點選sheet2在點回去,但是卻沒有任何資料出現?

我存檔嘗試過後也還是沒有成功....Orz(順帶一提,我的也是WIN2003)

[e-mail]

不好意思,麻煩您了

我收到了,但還是沒有東西跑出來ㄝQQ

Answer 1

請參考如下檔案
http://homelf.kimo.com.tw/scliangyh/test/CHECKBOX.xls
~~~甲公司CheckBox~~~
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Value = False
CheckBox3.Value = False
TextBox1.Text = "台北市AAAAA"
Else
TextBox1.Text = ""
End If
End Sub
~~~乙公司CheckBox~~~
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
CheckBox1.Value = False
CheckBox3.Value = False
TextBox1.Text = "台中市BBBBB"
Else
TextBox1.Text = ""
End If
End Sub
~~~丙公司CheckBox~~~
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
CheckBox1.Value = False
CheckBox2.Value = False
TextBox1.Text = "高雄縣市AAAAA"
Else
TextBox1.Text = ""
End If
End Sub
~~~結束按鈕~~~
Private Sub CommandButton1_Click()
End
End Sub
~~~啟動工作表,跑出自訂表單~~~
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

2006-09-07 20:04:22 補充：
1.應該會跑出UserForm1之自訂表單.2.我的PC測試是正常,可存檔之後開EXCEL試看,我是在EXCEL2003作的...

2006-09-08 20:28:27 補充：
是否可以告知,你的e-mail直接傳檔給你試看...

2006-09-12 09:00:14 補充：
檔案已寄出,不知是否能幫你解決問題?

2006-09-12 11:21:36 補充：
1.不知道是否你的 EXCEL軟體有問題?2.不知道你是否有寫過VBA,若有寫過就作一個自訂表單,三個CHECKBOX,一個TEXTBOX,一個 CommandButton1按鈕把上面對應程式複製就是!如下下載參考...http://www.freewebtown.com/scliang/Excel/CHECKBOX.JPG

Answer 2

你要在Sheet2, 按[工具]再按[巨集]進入巨集後再按執行之後, 再回Sheet1才會出現[表單]