[發問] 餘額+textbox格式

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

16^#

發表於 2013-4-29 16:02 | 只看該作者

回復 15# GBKEE

Dear GBKEE大大：

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

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

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

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

15^#

發表於 2013-4-29 15:35 | 只看該作者

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

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

Hsieh

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

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

14^#

發表於 2013-4-29 14:23 | 只看該作者

回復 13# lifedidi

不是很懂你的邏輯，以我的邏輯觀念修改你參考看看

原始.rar (27.02 KB)

學海無涯_不恥下問

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

13^#

發表於 2013-4-29 10:20 | 只看該作者

本帖最後由 lifedidi 於 2013-4-29 10:21 編輯

回復 12# GBKEE

大大好：

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

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

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

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

QQ.rar (51.52 KB)

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2013-4-26 17:21 | 只看該作者

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

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

複製代碼

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

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

11^#

發表於 2013-4-26 16:30 | 只看該作者

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

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2013-4-26 16:14 | 只看該作者

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

NumberFormatLocal 屬性。
套用至 Style 物件時用 NumberFormatLocal 屬性。

複製代碼

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

複製代碼

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

9^#

發表於 2013-4-26 15:51 | 只看該作者

本帖最後由 lifedidi 於 2013-4-26 15:53 編輯

大大好！
我在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會進位的樣子，請問如何不進位呢？

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

8^#

發表於 2013-4-26 15:25 | 只看該作者

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