lifedidi

哦~有點了解了！
所以還是要照大大的方式去RUN才正確，
可是大大可以稍微說明一下改變哪裡才會變時間格式嗎？感謝~

GBKEE

哦~有點了解了！
所以還是要照大大的方式去RUN才正確，
可是大大可以稍微說明一下改變哪裡才會變時間格式 ...
lifedidi 發表於 2013/4/26 16:30

1. MsgBox Application.Text("1900/1/2", "[hh]")

複製代碼

如要顯示正常的時間格式 用Format函數就可,
但你要的時間格式:小時的顯示   [hh]:mm ,Format函數 不可用
[hh]:mm 的格式,在儲存格上用儲存格格式指令 即可
TextBox是MSForms 的控制項,可用儲存格的Value(數值) 或 Text (格式後的字串)傳遞

ps:  回文時  請按 [回覆] 按鈕  答覆你的人才會得到通知

lifedidi

回復 12# GBKEE


大大好：

我把修改跟儲存的功能加上，

Initialize值OK，但是在儲存的時候都匯錯誤，

我有試著修改程式碼，但是一直失敗，

都會卡在【.ListBox1.Text = 部門】，煩請大大指教，謝謝！

QQ.rar (51.52 KB)

下載次數: 4

2013-4-29 10:19

Hsieh

回復 13# lifedidi


    不是很懂你的邏輯，以我的邏輯觀念修改你參考看看
原始.rar (27.02 KB)

下載次數: 6

2013-4-29 14:23

GBKEE

回復 13# lifedidi
在儲存的時候都會錯誤，如何錯誤???

1. Private Sub CommandButton4_Click()
   
2.     With UserForm1
   
3.         If myday <> "" And IsDate(myday) = False Then
   
4.             MsgBox "您輸入的完工日期無法辨別", vbCritical + vbOKOnly, "請重新輸入"
   
5.             Exit Sub
   
6.         End If
   
7.         .CommandButton2.Enabled = True
   
8.         部門 = .ListBox1.Text
   
9.         編號 = .ListBox2.Text
   
10.         R = d2(部門 & "-" & 編號)
    
11.         For i = 2 To 4
    
12.             Sheets("SHEET1").Cells(R, i + 1).Value = .Controls("TextBox" & i).Value
    
13.             .Controls("TextBox" & i).ForeColor = vbRed    '色彩常數(紅)
    
14.             .Controls("TextBox" & i).BackColor = vbWhite  '色彩常數(白)
    
15.             .Controls("TextBox" & i).Locked = True
    
16.         Next i
    
17.      '   Call UpdateBox             '***這程序是何作用
    
18.       '  .ListBox1.Text = 部門      '***為何重新給值
    
19.        ' .ListBox2.Text = 編號      '***為何重新給值
    
20.         .CommandButton4.Enabled = False
    
21.     End With
    
22.     MsgBox "已經完成儲存", vbOKOnly, "請注意"
    
23. End Sub

複製代碼

lifedidi

回復 15# GBKEE


    Dear GBKEE大大：

我改用Hsieh大大寫的程式碼測試OK！而且比我的有條理。

小弟的程式碼都是拼拼湊湊來的！所以亂糟糟，

目前還在學習階段，感謝你們的熱心指導^^