[發問] 餘額+textbox格式

lifedidi

大大好：

1. 小弟有三個SHEET，要對照資料(時間格式)再USERFORM裡的TEXTBOX裡，
遇到幾個困難，請看附件檔。
2. 在textbox要KEY入時間(格式為[hh]:mm)請問該怎麼設定呢？

舉例 43:52(43小時:52分)；結果key入後變1.82777777777778

額度問題.rar (57.01 KB)

下載次數: 12

2013-4-25 11:29

lifedidi

回復 15# GBKEE


    Dear GBKEE大大：

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

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

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

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

複製代碼

Hsieh

回復 13# lifedidi


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

下載次數: 6

2013-4-29 14:23

lifedidi

回復 12# GBKEE


大大好：

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

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

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

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

QQ.rar (51.52 KB)

下載次數: 4

2013-4-29 10:19

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

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

GBKEE

回復 8# lifedidi
請詳看參考vba的說明
Format 函數則使用不同於 NumberFormat 和 NumberFormatLocal 屬性的格式代碼字串。

1. NumberFormatLocal 屬性。
   
2. 套用至 Style 物件時用 NumberFormatLocal 屬性。

複製代碼

1. NumberFormat 屬性。   
   
2. 套用至 DataLabel、DataLabels、PivotField、Style 及 TickLabels 物件時用 NumberFormat 屬性。

複製代碼

1. Format 函數
   
2. 傳回一 Variant (String)，含有一個根據格式運算式來格式化的運算式。

複製代碼

lifedidi

大大好！
我在Private Sub ListBox2_Change()最後面加上以下編碼
yy= TextBox4.Value
If TextBox4.Value <> "" Then TextBox4.Value = Format(yy, "hhh:mm")

結果18:00變成1818:00
假如改成500:15變成2020:15

很像是超過24h會進位的樣子，請問如何不進位呢？

lifedidi

請問這兩個資料的變換，影響了哪些呢？
我以為是在textbox後面加個fromate(xxx)之類的簡單的程式碼=.=