[發問] 請問一下，為什麼我無法新增 textbox

bowwow1975

我在舊有的 userform 裡，不管是新增還是複製一個 Textbox ，他都會顯示不確定的名稱，但是在同一個檔案裡，不同的 userform ，卻兩個都可以？！

請問這是怎麼一回事？
有大大可以幫忙嗎？

luhpro

回復  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

你的UserForm1裡面在設計階段本來就有放上 8  (11 ~ 18 合計為 8) 個Textbox 嗎?
如果沒有自然就不能賦予名字給根本就不存在的 Textbox 元件.
那麼你可以參考這篇 :
http://forum.twbts.com/thread-10357-1-1.html
先逐個建立Textbox元件後再予以賦名.

若不是,
因為你只貼程式碼而非整個檔案,
有些問題關鍵處會看不出來,
變成想參與討論的人只能 "猜猜看",
這樣解決問題的效率會變的很低,
也不容易達到你想要的目的.

Hsieh

回復 3# bowwow1975
程式碼並無新增控制項之功能
你要問的問題是甚麼?請上傳檔案說明清楚

bowwow1975

回復 2# GBKEE

我從別的 userform copy 一個 textbox 到那個不能新增也不能複製的 userform 卻可以！！
會不會是textbox 的名稱問題~~~~

下面就是該 userform 的簡單程式碼！

1. Sub SetXLResolution()
   
2. Dim VWidth As Integer
   
3. Dim VHeight As Integer
   
4. ' 高寬自動設為螢幕大小的 80%
   
5. VWidth = GetSystemMetrics(SM_CXSCREEN)
   
6. VHeight = GetSystemMetrics(SM_CYSCREEN)
   
7. 
   
8. With Excel.Application
   
9.      .WindowState = xlNormal ' 先將窗口還原
   
10.      .Width = VWidth * 0.8 * 0.75 ' Points (~ 0.75 pixels)
    
11.      .Height = VHeight * 0.8 * 0.75
    
12.      .Left = VWidth * 0.1 * 0.75
    
13.      .Top = VHeight * 0.1 * 0.75
    
14. End With
    
15. End Sub
    
16. Private Sub CommandButton1_Click()
    
17.   With Sheet4
    
18.     .Range("C2").Value = Textbox11.Text
    
19.     .Range("C3").Value = Textbox12.Text
    
20.     .Range("C4").Value = Textbox13.Text
    
21.     .Range("C5").Value = Textbox14.Text
    
22.     .Range("C6").Value = TextBox15.Text
    
23.     .Range("C7").Value = TextBox16.Text
    
24.     .Range("C8").Value = textbox17.Text
    
25.     .Range("C9").Value = textbox18.Text
    
26.     Vin_min_bulk = .Range("F2").Text & "V"
    
27.     T1_Vo = .Range("F4").Text & "V"
    
28.     Po = .Range("F5").Text & "W"
    
29.     Pin = .Range("F6").Text & "W"
    
30.   End With
    
31.   CommandButton2.Visible = True
    
32. End Sub
    
33. 
    
34. Private Sub CommandButton2_Click()
    
35. UserForm1.Hide
    
36. UserForm3.Show
    
37. End Sub
    
38. 
    
39. Private Sub UserForm_Initialize()
    
40. 
    
41.     Dim X As Integer
    
42.     For X = 11 To 18
    
43.         Controls("Textbox" & X) = Sheets(4).Cells(X - 9, "c")
    
44.        '依序Textbox1....Textbox的內容 為第一個工作表的A欄 第5-第9 列內容
    
45.     Next
    
46.     CommandButton2.Visible = False
    
47. End Sub

複製代碼

GBKEE

回復 1# bowwow1975
請上傳檔案,看看或許會知道是怎麼一回事!!