- 帖子
- 38
- 主題
- 14
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Excel2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-7-16
- 最後登錄
- 2013-9-3
|
回復 2# GBKEE
我從別的 userform copy 一個 textbox 到那個不能新增也不能複製的 userform 卻可以！！
會不會是textbox 的名稱問題~~~~
下面就是該 userform 的簡單程式碼！- 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
|
|
發表於 2013-9-2 19:21
| 
