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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-2-25 16:25 | 只看該作者

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

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2013-2-26 14:00 | 只看該作者

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

目前遇到的問題是
用意是要表單用下 ...
Jared 發表於 2013-2-25 16:25

不太清楚頁面上的情況,
但是這句是有問題的
X = ("a1") & (".") & "a2" & (".") & "a3"
應該是這樣
X = a1&"." & a2 & "." & a3
不然頁面上只會加上寫死了的 "a1.a2.a3"

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

Jared

中學生 Rank: 2

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

3^#

發表於 2013-2-26 14:54 | 只看該作者

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

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

感激不盡>"<

Jared

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 85
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-9

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-2-26 16:18 | 只看該作者

回復 3# Jared

Private Sub CommandButton1_Click()
Dim A As Range
If Application.CountBlank(Sheet1.Range("A5:A99")) = 0 Then
Sheet1.[A100] = DateSerial(ComboBox1, ComboBox2, ComboBox3)
Else
Set A = [A5]
Do Until A = ""
Set A = A.Offset(1, 0)
Loop
A.Value = DateSerial(ComboBox1, ComboBox2, ComboBox3)
End If
End Sub

複製代碼

學海無涯_不恥下問

TOP

Jared

中學生 Rank: 2

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

5^#

發表於 2013-2-27 10:13 | 只看該作者

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

Jared

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 85
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-9

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2013-2-27 10:21 | 只看該作者

回復 5# Jared

這樣的問題，沒有檔案是得不到答案的

學海無涯_不恥下問

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 2013-2-27 10:40 | 只看該作者

謝謝大大的協助
終於可以回傳下拉式選單的訊息
但是不曉得為什麼
原本命名的下拉式選單為『Box1』
Shee ...
Jared 發表於 2013-2-27 10:13

終於可以回傳下拉式選單的訊息
但是不曉得為什麼
原本命名的下拉式選單為『Box1』
Sheet1.[A100] = DateSerial(Box1, Box2, Box3)
會出現找不到成員的警告視窗

這點，你在宣告時，有無將 Box1宣告成 ComboBox1
如果沒有，當然找不到..

要改為ComboBox3 的名稱才沒有出錯
但是我原本設定要將這三個欄位的數值
分別為年月日
都傳到欄位時變成完整日期[例如：2013/02/28]
但傳到A1時，一律顯示1999/11/30(如圖)
不曉得為什麼

這點，MS Office 的時間預設值原本就不是照正常的時間預設
除非另外設定，網路上有方法

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

mark15jill