[發問] textbox對應到儲存格數值(小數點後面位數)

lifedidi

大大好：

我希望用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

回復 1# lifedidi

1. Textbox1 = Format(Range("H26"), "#.00")

複製代碼

lifedidi

謝謝GBKEE 大大！

lifedidi

回復 2# GBKEE

另外一個問題

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

但是系統會說【有Else，卻沒有If】
   
我東改西改還是不行 請問是哪裡有錯誤？

GBKEE

回復 4# lifedidi

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

複製代碼

lifedidi

回復 5# GBKEE


    謝謝GBKEE 大大！

7777

回復 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    '不行ㄝ

下載 (41.32 KB)

2015-1-9 14:17

感謝

7777

回復 5# GBKEE

請教 GBKEE 大大！
並 附上 檔案
Test.rar (213.37 KB)

下載次數: 5

2015-1-11 20:23

stillfish00

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

你應該寫這樣...
caFPassword.Value = Format(Sheets("Sheet1").Cells(47, 1).Value)

GBKEE

回復 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
    
12. 
    
13. Private Sub caPassword_Change()
    
14.     MsgBox caPassword.Text
    
15. End Sub

複製代碼