麻辣家族討論版版 - Powered by Discuz! Board

Sub SetXLResolution()
Dim VWidth As Integer
Dim VHeight As Integer
' 高寬自動設為螢幕大小的 80%
VWidth = GetSystemMetrics(SM_CXSCREEN)
VHeight = GetSystemMetrics(SM_CYSCREEN)
With Excel.Application
.WindowState = xlNormal ' 先將窗口還原
.Width = VWidth * 0.8 * 0.75 ' Points (~ 0.75 pixels)
.Height = VHeight * 0.8 * 0.75
.Left = VWidth * 0.1 * 0.75
.Top = VHeight * 0.1 * 0.75
End With
End Sub
Private Sub CommandButton1_Click()
With Sheet4
.Range("C2").Value = Textbox11.Text
.Range("C3").Value = Textbox12.Text
.Range("C4").Value = Textbox13.Text
.Range("C5").Value = Textbox14.Text
.Range("C6").Value = TextBox15.Text
.Range("C7").Value = TextBox16.Text
.Range("C8").Value = textbox17.Text
.Range("C9").Value = textbox18.Text
Vin_min_bulk = .Range("F2").Text & "V"
T1_Vo = .Range("F4").Text & "V"
Po = .Range("F5").Text & "W"
Pin = .Range("F6").Text & "W"
End With
CommandButton2.Visible = True
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
UserForm3.Show
End Sub
Private Sub UserForm_Initialize()
Dim X As Integer
For X = 11 To 18
Controls("Textbox" & X) = Sheets(4).Cells(X - 9, "c")
'依序Textbox1....Textbox的內容為第一個工作表的A欄第5-第9 列內容
Next
CommandButton2.Visible = False
End Sub

複製代碼

回復  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的內容為第一個工作表的A欄第5-第9 列內容
Next
CommandButton2.Visible = False
End Subbowwow1975 發表於 2013-9-3 09:16