Board logo

標題: [發問] textbox對應到儲存格數值(小數點後面位數) [打印本頁]
作者: lifedidi    時間: 2013-5-30 10:54     標題: textbox對應到儲存格數值(小數點後面位數)

大大好：

我希望用textbox對應出儲存格的數值

Private Sub CommandButton1_Click()
Textbox1.Value = Range("H26").Value
Textbox2.Value = Range("I26").Value
Textbox3.Value = Range("J26").Value
END Sub

但是在Textbox裡顯示3.141596

如才能顯示3.14就好呢？
作者: GBKEE    時間: 2013-5-30 11:17

回復 1# lifedidi
  1. Textbox1 = Format(Range("H26"), "#.00")
複製代碼
作者: lifedidi    時間: 2013-5-30 11:30

謝謝GBKEE 大大！
作者: lifedidi    時間: 2013-5-30 11:41

回復 2# GBKEE

另外一個問題

If TextBox9.Value = "" Then MsgBox "請帶入資料"
Else
Textbox1.Value = Format(Sheets("sheet1").[H26].Value, "#.00")
End if
End sub

但是系統會說【有Else，卻沒有If】
   
我東改西改還是不行 請問是哪裡有錯誤？
作者: GBKEE    時間: 2013-5-30 11:54

回復 4# lifedidi
  1. If TextBox9.Value = "" Then
  2. MsgBox "請帶入資料"
  3. Else
  4. Textbox1.Value = Format(Sheets("sheet1").[H26].Value, "#.00")
  5. End if
複製代碼
作者: lifedidi    時間: 2013-5-30 14:25

回復 5# GBKEE


    謝謝GBKEE 大大！
作者: 7777    時間: 2015-1-9 14:18

回復 5# GBKEE

請教 GBKEE 大大！
如何TextBox 密碼 可以複製貼上
如何可以將
Sheet1 的 [A47]
儲存格的資料
複製到
Sheet2
caFPassword TexBox 內

Sub 複製Box()
     Sheets("Sheet2").Select
     caFPassword TextBox.Value = Format(Sheets("Sheet1").Cells(47, 1).Value)
     Sheets("Sheet1").Select '回到 Sheet1
     Range("A1").Select
End Sub    '不行ㄝ

[attach]20039[/attach]

感謝
作者: 7777    時間: 2015-1-11 20:24

回復 5# GBKEE

請教 GBKEE 大大！
並 附上 檔案
[attach]20048[/attach]
作者: stillfish00    時間: 2015-1-12 14:44

回復 7# 7777
該文字方塊名字是caFPassword
不是caFPassword TexBox

你應該寫這樣...
caFPassword.Value = Format(Sheets("Sheet1").Cells(47, 1).Value)
作者: GBKEE    時間: 2015-1-12 16:22

回復 8# 7777
試試看
  1. Private Sub EX() '程式碼 "基本下單刪單"工作表模組中
  2.     caFPassword.Text = Sheet12.[A47]
  3.     MsgBox caFPassword.Value
  4.     caFPassword = Sheet12.[A47]
  5.     'caFPassword = Sheets("SHEET1").[A47] '同上
  6.     'Sheet1.caFPassword.Text = Sheet12.[A47] '程式碼 在其他模組中
  7.     caPassword = Sheet12.[A47]
  8. End Sub
  9. Private Sub caFPassword_Change()
  10.     MsgBox caFPassword.Text
  11. End Sub

  13. Private Sub caPassword_Change()
  14.     MsgBox caPassword.Text
  15. End Sub
複製代碼
作者: 7777    時間: 2015-1-12 18:31

回復 10# GBKEE

感謝 GBKEE 大大

以 簡單的
1.   caFPassword.Text = Sheet12.[A47]
2.        caFPassword = Sheet12.[A47]

1或2 的方式都可以了

反而 之前的
3.  caFPassword TextBox.Value = Format(Sheets("Sheet12").Cells(47, 1).Value)
4.  caFPassword.Value = Format(Sheets("Sheet12").Cells(47, 1).Value)

3或4 似乎都不行

同樣感謝 stillfish00



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)