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

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

14^#

發表於 2013-3-1 11:03 | 只看該作者

回復 11# Hsieh

感謝大大的協助
但是我不明白的是
執行這行程式
If Val(ComboBox1) > 0 And Val(ComboBox2) > 0 Then
就出現
螢幕截圖00050.jpg

不知道是什麼問題＞"＜

Jared

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

13^#

發表於 2013-3-1 10:31 | 只看該作者

回復 12# mark15jill

還沒有...>"<
還在找尋其他辦法

Jared

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

12^#

發表於 2013-3-1 09:26 | 只看該作者

回復 10# Jared

不會啦ˇˇ
只是我比較雞婆而已..
話說您的問題有解決了嗎?

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

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

  少看=只看不做也枉然

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

11^#

發表於 2013-2-27 15:01 | 只看該作者

回復 9# Jared
要了解事件程序的觸發時機
你的流程是在開啟表單時就讓ComboBox載入清單
選擇年、月後ComboBox3可判斷最後日期而載入清單
而TextBox1直接顯示當天日期

Private Sub ComboBox2_Change()
chang_day
End Sub
Private Sub ComboBox3_Change()
chang_day
End Sub
Private Sub CommandButton1_Click()
Dim A As Range
If Application.CountBlank(Sheet10.Range("A5:A99")) = 0 Then
Sheet10.[A100] = DateSerial(ComboBox1.Value, ComboBox2.Value, ComboBox3.Value) 'DateSerial為日期屬性
Else
Set A = [A5]
Do Until A = ""
Set A = A.Offset(1, 0)
Loop
A.Value = DateSerial(ComboBox1.Value, ComboBox2.Value, ComboBox3.Value) 'DateSerial為日期屬性
End If
End Sub
Private Sub UserForm_Initialize()
For i = 2013 To 2020
ComboBox1.AddItem i
Next
For i = 1 To 12
ComboBox2.AddItem i
Next
For i = 1 To 31
ComboBox3.AddItem i
Next
b21 = Date
End Sub
Sub chang_day()
If Val(ComboBox1) > 0 And Val(ComboBox2) > 0 Then
ComboBox3.Clear
For i = 1 To Day(DateSerial(ComboBox1.Value, ComboBox2.Value + 1, 0))
ComboBox3.AddItem i
Next
End If
End Sub

複製代碼

學海無涯_不恥下問

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

10^#

發表於 2013-2-27 11:14 | 只看該作者

回復 8# mark15jill
抱歉>"<
希望沒有造成任何人的困擾

Jared

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

9^#

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

回復 6# Hsieh

測試檔.zip (23.54 KB)

抱歉! 夾帶檔案如附件
DateSerial 的語法是將選單的數字判斷為日期
但是選單選擇的數值卻無法抓到

每按一次Button將資料送出
數值就在選單裡頭複製一次
不曉得原因為何

還請大大解惑
感激不盡!! >"<

螢幕截圖00042.jpg (43.05 KB)

螢幕截圖00043.jpg (12.74 KB)

螢幕截圖00043.jpg

Jared

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

8^#

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

另外，這問題應該是屬於程式區塊吧... 怎跑到一般區 ==

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

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

  少看=只看不做也枉然

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 的時間預設值原本就不是照正常的時間預設
除非另外設定，網路上有方法

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

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

  少看=只看不做也枉然