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

[µo°Ý] TEXTBOX«O¯d¿é¤J¹Lªº¦r¤¸

¦^´_ 1# apao2000

§â¿é¤Jªº¤º®e¦s¦b¤u§@ªí¤º´N¥i°O¾Ð¦í¤w¿é¤J¹Lªº¤º®e
¥u¬O¤£²M·¡§A­n³o¨Ç¤º®eªº¥Î³B¦ó¦b?
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# apao2000
  1. Private Sub UserForm_Initialize() 'ªí³æªì©l¤Æ®ÉIJµo
  2. TextBox1 = Sheets(1).[A1] '±NA1ªº­È¼g¤J
  3. End Sub

  4. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'ªí³æÃö³¬®ÉIJµo
  5. Sheets(1).[A1] = TextBox1 '±N¤å¦r¤è¶ô¤º®e¼g¤JA1Àx¦s®æ
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 11# apao2000
¥u¦³¤ù¬qµ{¦¡½X¡AµLªkª¾¹D§Aªº¥Î·N¡A¦pªG³æ¯Âµ²§ô³oµ{§Ç¡A¥[¤Wexit sub§Y¥i
 If Sheet1.Cells(1,1) = "" Then
  MsgBox "Please choose location!", vbOKonly
exit sub
  End If
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD