Tag: 多页

VBA UserFormdynamic调整事件与多页

早上好！ 我开始阅读这个： http://www.andypope.info/vba/resizeform.htm 虽然这是非常丰富的信息，但我想知道是否有人能够指出我正确的方向来帮助解决我的问题。 我想dynamic设置一个用户窗体的高度和宽度值取决于select多页（大概是点击事件）。 会是这样的吗？ Sub pageX_click height.value = 23 width.value = 50 End Sub 我认为这可能比这更复杂，但如果有人愿意指引我正确的方向，我可以鼓励，直到我find正确的解决scheme。 其他问题 – 由于大小不同，我需要静态设置每次打开哪些页面？ 那样我不会得到随机大小问题/错误？

VBA – 如何检索一个文本框中的值，并使其出现在另一个？

我有Excel中的用户窗体。 多页面的第一个选项卡有一个名为Staffwage_TextBox的variables。 有人预计会input一个值。 我想检索这个值，并使其出现在名为staffwage的TextBox中的下一个多页上。 到目前为止，我有这个代码： Private Sub staffwage_Change() Dim trial As String Staffwage_TextBox.Characters.Text staffwage = Staffwage_TextBox.Value trial = Staffwage_TextBox.Characters.Text End Sub 任何帮助将不胜感激，谢谢:)

如何dynamic地将单元格值放入excel的多页文本框中？

我创build了一个包含dynamic页面的多页面。 当用户窗体启动时，用户窗体检查列中特定单元格上的值是否为空。 然后为每个非空单元格创build一个页面。 这是我的代码片段 Private Sub UserForm_Initialize() Dim i As Integer Dim custDate As Date Dim vID As String 'ActiveWorkbook.Worksheets("Sheet1").Activate i = 0 custDate = DateValue(Now) Range("A1").Offset(1, 0).Select Do While Not IsEmpty(ActiveCell.Value) 'MsgBox ActiveCell.Address If custDate = ActiveCell.Value Then 'first column(A) are dates MultiPage1.Pages.Add MultiPage1.Pages(0).Controls.Copy 'page 1 is the reference page i = i + […]