ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] textbox¹ïÀ³¨ìÀx¦s®æ¼Æ­È(¤p¼ÆÂI«á­±¦ì¼Æ)

[µo°Ý] textbox¹ïÀ³¨ìÀx¦s®æ¼Æ­È(¤p¼ÆÂI«á­±¦ì¼Æ)

¤j¤j¦n¡G

§Ú§Æ±æ¥Îtextbox¹ïÀ³¥XÀx¦s®æªº¼Æ­È

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

¦ý¬O¦bTextbox¸ÌÅã¥Ü3.141596

¦p¤~¯àÅã¥Ü3.14´N¦n©O¡H

¦^´_ 1# lifedidi
  1. Textbox1 = Format(Range("H26"), "#.00")
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁÂGBKEE ¤j¤j¡I

TOP

¦^´_ 2# GBKEE

¥t¥~¤@­Ó°ÝÃD

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

¦ý¬O¨t²Î·|»¡¡i¦³Else¡A«o¨S¦³If¡j
   
§ÚªF§ï¦è§ïÁÙ¬O¤£¦æ ½Ð°Ý¬O­þ¸Ì¦³¿ù»~¡H

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE


    ÁÂÁÂGBKEE ¤j¤j¡I

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2015/1/11 16:28): ªþÀɬݬÝ

¦^´_ 5# GBKEE

½Ð±Ð GBKEE ¤j¤j¡I
¦p¦óTextBox ±K½X ¥i¥H½Æ»s¶K¤W
¦p¦ó¥i¥H±N
Sheet1 ªº [A47]
Àx¦s®æªº¸ê®Æ
½Æ»s¨ì
Sheet2
caFPassword TexBox ¤º

Sub ½Æ»sBox()
     Sheets("Sheet2").Select
     caFPassword TextBox.Value = Format(Sheets("Sheet1").Cells(47, 1).Value)
     Sheets("Sheet1").Select '¦^¨ì Sheet1
     Range("A1").Select
End Sub    '¤£¦æ£®



·PÁÂ
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 5# GBKEE

½Ð±Ð GBKEE ¤j¤j¡I
¨Ã ªþ¤W ÀÉ®×
Test.rar (213.37 KB)
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 7# 7777
¸Ó¤å¦r¤è¶ô¦W¦r¬OcaFPassword
¤£¬OcaFPassword TexBox

§AÀ³¸Ó¼g³o¼Ë...
caFPassword.Value = Format(Sheets("Sheet1").Cells(47, 1).Value)
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 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. Private Sub caPassword_Change()
  13.     MsgBox caPassword.Text
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD