GBKEE

¦^´_ 1# lifedidi

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

½Æ»s¥N½X

GBKEE

¦^´_ 4# lifedidi

1. If TextBox9.Value = "" Then
   
2. MsgBox "½Ð±a¤J¸ê®Æ"
   
3. Else
   
4. Textbox1.Value = Format(Sheets("sheet1").[H26].Value, "#.00")
   
5. End if

½Æ»s¥N½X

GBKEE

¦^´_ 8# 7777
¸Õ¸Õ¬Ý

1. Private Sub EX() 'µ{¦¡½X "°ò¥»¤U³æ§R³æ"¤u§@ªí¼Ò²Õ¤¤
   
2.     caFPassword.Text = Sheet12.[A47]
   
3.     MsgBox caFPassword.Value
   
4.     caFPassword = Sheet12.[A47]
   
5.     'caFPassword = Sheets("SHEET1").[A47] '¦P¤W
   
6.     'Sheet1.caFPassword.Text = Sheet12.[A47] 'µ{¦¡½X ¦b¨ä¥L¼Ò²Õ¤¤
   
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

½Æ»s¥N½X