[求教] 用vba由工作表變更表單的顯示文字 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » [求教] 用vba由工作表變更表單的顯示文字

返回列表下一主題上一主題發帖

[求教] 用vba由工作表變更表單的顯示文字

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

1^# 跳轉到 »

發表於 2011-8-4 16:32 | 顯示全部帖子

看題意像是動

複本 Xl0000000.rar (13.49 KB) 態增加控件

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-8-4 22:46 | 顯示全部帖子

回復 6# sammyc

Private Sub UserForm_Initialize()
Me.Caption = Sheets("Ini").[b1]
With Sheets("Ini")
h = 1
For Each c In .Range("b5:b100").SpecialCells(2)
m = m + 1
Set myCbo = Controls.Add("Forms.Label.1", h, True)
With myCbo
.Height = 20
.Width = 60
.Top = h * .Height
.Left = IIf(m Mod 2, 10, 180)
.Caption = c(1, 0).Value
End With
Set myTb = Controls.Add("Forms.TextBox.1", h, True)
With myTb
.Height = 20
.Width = 60
.Top = h * .Height
.Left = IIf(m Mod 2, 60, 220)
.Text = c.Value
If m Mod 2 = 0 Then h = h + 1
End With
Next
End With
End Sub

複製代碼

先把所有Label，TextBox在userform中刪除，讓程式依照工作表上的資料建立

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2011-8-5 12:19 | 顯示全部帖子

你應該上傳文件，讓人立刻明白問題點
可能性很多，要這樣猜測，猜不完的。
例如你有沒有userform？工作表名稱對不對，b1是否有內容等等

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2011-8-6 09:32 | 顯示全部帖子

Private Sub UserForm_Initialize()
這個要被在userform的模組中才有用
不能放在一般模組中
而且現在你的資料變成四列了，不知道你要載入的是什麼。

靜思自在 : 自己害自己，莫過於亂發脾氣。

返回列表下一主題上一主題