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

[µo°Ý] ½Ð°Ý¤@¤U¡A¬°¤°»ò§ÚµLªk·s¼W textbox

[µo°Ý] ½Ð°Ý¤@¤U¡A¬°¤°»ò§ÚµLªk·s¼W textbox

§Ú¦b¦³ªº userform ¸Ì¡A¤£ºÞ¬O·s¼WÁÙ¬O½Æ»s¤@­Ó Textbox ¡A¥L³£·|Åã¥Ü¤£½T©wªº¦WºÙ¡A¦ý¬O¦b¦P¤@­ÓÀɮ׸̡A¤£¦Pªº userform ¡A«o¨â­Ó³£¥i¥H¡H¡I

½Ð°Ý³o¬O«ç»ò¤@¦^¨Æ¡H
¦³¤j¤j¥i¥HÀ°¦£¶Ü¡H

¦^´_ 1# bowwow1975
½Ð¤W¶ÇÀÉ®×,¬Ý¬Ý©Î³\·|ª¾¹D¬O«ç»ò¤@¦^¨Æ!!
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

§Ú±q§Oªº userform copy ¤@­Ó textbox ¨ì¨º­Ó¤£¯à·s¼W¤]¤£¯à½Æ»sªº userform «o¥i¥H¡I¡I
·|¤£·|¬Otextbox ªº¦WºÙ°ÝÃD~~~~

¤U­±´N¬O¸Ó userform ªºÂ²³æµ{¦¡½X¡I
  1. Sub SetXLResolution()
  2. Dim VWidth As Integer
  3. Dim VHeight As Integer
  4. ' °ª¼e¦Û°Ê³]¬°¿Ã¹õ¤j¤pªº 80%
  5. VWidth = GetSystemMetrics(SM_CXSCREEN)
  6. VHeight = GetSystemMetrics(SM_CYSCREEN)

  7. With Excel.Application
  8.      .WindowState = xlNormal ' ¥ý±Nµ¡¤fÁÙ­ì
  9.      .Width = VWidth * 0.8 * 0.75 ' Points (~ 0.75 pixels)
  10.      .Height = VHeight * 0.8 * 0.75
  11.      .Left = VWidth * 0.1 * 0.75
  12.      .Top = VHeight * 0.1 * 0.75
  13. End With
  14. End Sub
  15. Private Sub CommandButton1_Click()
  16.   With Sheet4
  17.     .Range("C2").Value = Textbox11.Text
  18.     .Range("C3").Value = Textbox12.Text
  19.     .Range("C4").Value = Textbox13.Text
  20.     .Range("C5").Value = Textbox14.Text
  21.     .Range("C6").Value = TextBox15.Text
  22.     .Range("C7").Value = TextBox16.Text
  23.     .Range("C8").Value = textbox17.Text
  24.     .Range("C9").Value = textbox18.Text
  25.     Vin_min_bulk = .Range("F2").Text & "V"
  26.     T1_Vo = .Range("F4").Text & "V"
  27.     Po = .Range("F5").Text & "W"
  28.     Pin = .Range("F6").Text & "W"
  29.   End With
  30.   CommandButton2.Visible = True
  31. End Sub

  32. Private Sub CommandButton2_Click()
  33. UserForm1.Hide
  34. UserForm3.Show
  35. End Sub

  36. Private Sub UserForm_Initialize()

  37.     Dim X As Integer
  38.     For X = 11 To 18
  39.         Controls("Textbox" & X) = Sheets(4).Cells(X - 9, "c")
  40.        '¨Ì§ÇTextbox1....Textboxªº¤º®e ¬°²Ä¤@­Ó¤u§@ªíªºAÄæ ²Ä5-²Ä9 ¦C¤º®e
  41.     Next
  42.     CommandButton2.Visible = False
  43. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# bowwow1975
µ{¦¡½X¨ÃµL·s¼W±±¨î¶µ¤§¥\¯à
§A­n°Ýªº°ÝÃD¬O¬Æ»ò?½Ð¤W¶ÇÀÉ®×»¡©ú²M·¡
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_  GBKEE
Private Sub UserForm_Initialize()
    Dim X As Integer
    For X = 11 To 18
        Controls("Textbox" & X) = Sheets(4).Cells(X - 9, "c")
       '¨Ì§ÇTextbox1....Textboxªº¤º®e ¬°²Ä¤@­Ó¤u§@ªíªºAÄæ ²Ä5-²Ä9 ¦C¤º®e
    Next
    CommandButton2.Visible = False
End Subbowwow1975 µoªí©ó 2013-9-3 09:16


§AªºUserForm1¸Ì­±¦b³]­p¶¥¬q¥»¨Ó´N¦³©ñ¤W 8  (11 ~ 18 ¦X­p¬° 8) ­ÓTextbox ¶Ü?
¦pªG¨S¦³¦ÛµM´N¤£¯à½á¤©¦W¦rµ¹®Ú¥»´N¤£¦s¦bªº Textbox ¤¸¥ó.
¨º»ò§A¥i¥H°Ñ¦Ò³o½g :
http://forum.twbts.com/thread-10357-1-1.html
¥ý³v­Ó«Ø¥ßTextbox¤¸¥ó«á¦A¤©¥H½á¦W.

­Y¤£¬O,
¦]¬°§A¥u¶Kµ{¦¡½X¦Ó«D¾ã­ÓÀÉ®×,
¦³¨Ç°ÝÃDÃöÁä³B·|¬Ý¤£¥X¨Ó,
Åܦ¨·Q°Ñ»P°Q½×ªº¤H¥u¯à "²q²q¬Ý",
³o¼Ë¸Ñ¨M°ÝÃDªº®Ä²v·|Åܪº«Ü§C,
¤]¤£®e©ö¹F¨ì§A·Q­nªº¥Øªº.

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD