12
返回列表 上一主題 發帖

[發問] 餘額+textbox格式

lifedidi

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

論壇贊助勳章
11# 跳轉到 »
發表於 2013-4-26 16:30 | 只看該作者
哦~有點了解了！
所以還是要照大大的方式去RUN才正確，
可是大大可以稍微說明一下改變哪裡才會變時間格式嗎？感謝~

TOP

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
  1. MsgBox Application.Text("1900/1/2", "[hh]")
複製代碼
如要顯示正常的時間格式 用Format函數就可,
但你要的時間格式:小時的顯示   [hh]:mm ,Format函數 不可用
[hh]:mm 的格式,在儲存格上用儲存格格式指令 即可
TextBox是MSForms 的控制項,可用儲存格的Value(數值) 或 Text (格式後的字串)傳遞

ps:  回文時  請按 [回覆] 按鈕  答覆你的人才會得到通知
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

lifedidi

帖子
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)

TOP

Hsieh

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

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)
學海無涯_不恥下問

TOP

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
在儲存的時候都會錯誤，如何錯誤???
  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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

lifedidi

帖子
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！而且比我的有條理。

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

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

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
12
返回列表 上一主題