ComboBox選好文字後，欄位沒東西

本帖最後由 Jared 於 2013-2-25 16:26 編輯

各位大大好
小弟我日前研究ＶＢＡ用法
但程式寫法還是有些不明白

目前遇到的問題是
用意是要表單用下拉式選單選擇完年月日後
傳回Sheet的某個欄位
但是我的程式變成初始值顯示是空白，還可以填寫（正常是有預設值，並且無法做修改的動作）
雖然下拉式選單已經選好文字
可是傳回Sheet後是空白沒東西
以下是我目前寫的
麻煩各位大大能幫我解惑
感激不盡!!!:dizzy:
螢幕截圖00030.jpg

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub CommandButton1_Click()
Call test2
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub test2()
Dim X

a1 = test.Box1.Value '年
a2 = test.Box2.Value '月
a3 = test.Box3.Value '日

X = ("a1") & (".") & "a2" & (".") & "a3"

If Application.CountBlank([C5:C99]) = 0 Then Range("C100") = X: Exit Sub
For Each a In [C5:C99]
If a = "" Then
a.Value = X
Exit For
End If
Next

End Sub

樓主熱帖

Jared

中學生 Rank: 2

帖子: 103
主題: 30
精華: 0
積分: 139
點名: 0
作業系統: wondows XP
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 彰化
註冊時間: 2013-2-21
最後登錄: 2015-6-26

2^#

發表於 2013-2-26 14:54 | 顯示全部帖子

感謝大大幫忙
但是這樣的寫法
X = a1&"." & a2 & "." & a3
""一定要加上()
不然會判斷這是非陳述式出現錯誤

我主要的問題是
要怎麼設定
才能將下拉式選單的東西在點選Bottom後
將資料傳到指定欄位上

感激不盡>"<

Jared

TOP

Jared

中學生 Rank: 2

帖子: 103
主題: 30
精華: 0
積分: 139
點名: 0
作業系統: wondows XP
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 彰化
註冊時間: 2013-2-21
最後登錄: 2015-6-26

3^#

發表於 2013-2-27 10:13 | 顯示全部帖子

謝謝大大的協助
終於可以回傳下拉式選單的訊息
但是不曉得為什麼
原本命名的下拉式選單為『Box1』
Sheet1.[A100] = DateSerial(Box1, Box2, Box3)
會出現找不到成員的警告視窗
要改為ComboBox3 的名稱才沒有出錯
但是我原本設定要將這三個欄位的數值
分別為年月日
都傳到欄位時變成完整日期[例如：2013/02/28]
但傳到A1時，一律顯示1999/11/30(如圖)
不曉得為什麼
希望能解答我的疑惑
感激不盡!!

Jared

TOP

Jared