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

textboxªº­È¦p¦ó«ü©w¬°¤µ¤Ñ¤é´Á

textboxªº­È¦p¦ó«ü©w¬°¤µ¤Ñ¤é´Á



¤p§Ì·Q¦b¦Û©wªí³æ¤¤«ü©wtextbox1ªº¹w³]­È¬°¤µ¤é¤é´Á
½Ð±Ð¦U¦ì¥H¤Uµ{¦¡½XÀ³¸Ó¦p¦ó­×§ï?
  1. Private Sub UserForm_Activate()
  2. TextBox1.Value = Sheet1.Range("E5")
  3. End Sub
½Æ»s¥N½X

¦^´_ 2# lpk187

·PÁÂ!!
¦­¤W¥´¿ùdatrÁÙ¥H¬°¤£¯à³o¼Ë¨Ï¥Î!!

TOP

¦^´_ 1# minture3


Private Sub UserForm_Activate()
TextBox1.Value = Date
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD