Tag: 表单

用户窗体列表框填充范围: 有没有什么办法可以通过单元格范围填充用户表单中的列表框或其他function？我想把我的每个选定的列放入1个列表框中，如：。例如A2：U100没有为每一列创build新的列表框？现在我这样做： ListBox1.List = Application.Worksheets("Můj_Ranking").Range("B2:B" & lastRw).Value ListBox2.List = Application.Worksheets("Můj_Ranking").Range("C2:C" & lastRw).Value ListBox3.List = Application.Worksheets("Můj_Ranking").Range("D2:D" & lastRw).Value ListBox4.List = Application.Worksheets("Můj_Ranking").Range("E2:E" & lastRw).Value ListBox5.List = Application.Worksheets("Můj_Ranking").Range("F2:F" & lastRw).Value ListBox6.List = Application.Worksheets("Můj_Ranking").Range("G2:G" & lastRw).Value ListBox7.List = Application.Worksheets("Můj_Ranking").Range("H2:H" & lastRw).Value ListBox8.List = Application.Worksheets("Můj_Ranking").Range("I2:I" & lastRw).Value ListBox9.List = Application.Worksheets("Můj_Ranking").Range("J2:J" & lastRw).Value ListBox10.List = Application.Worksheets("Můj_Ranking").Range("K2:K" & lastRw).Value […]

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

将用户窗体checkboxselect保存到数组（在用户窗体上复制）: 如何识别用户表单中一个框架中的所有选中的checkbox，并将它们分配给一个数组，以便我/可以：在一个或多个其他框架中复制选中的checkbox并使用该数组填充电子表格单元格？这是一个两部分问题，但我认为它们并驾齐驱（我不确定）。我有一个用户窗体多个框架，每个（SS）内有很多checkbox – 我有一个标准的命名约定为所有（底部解释）。我需要确定select哪个checkbox（以及combobox中的select），以便将所有这些checkbox放入电子表格中。我还需要用户select将所有选中的checkbox（和combobox中的select）从一个帧复制到其他帧中的一个到三个（如果他/她想要的话）。我有一个“复制”button，初始化一个简短的用户窗体，以select要复制的帧和要复制的帧。（例如：能够将“Alpha Antennas”帧中的所有select复制到“Beta天线”帧，“Gamma天线”帧，“Delta天线”帧中的一个或多个）。真的停留在一旦我得到的主要forms？我想一个数组会得到我需要的两个函数（复制一个帧到另一个并填写电子表格） – 但我不知道下一步。任何帮助？一些代码/命名/ SS：加载主窗体的命令button ： Sub CreateADS() Dim oneForm As Object '========================================================== 'On Error GoTo ErrHandler 'Trying to catch errors – will input more down there, later ADSinputform.Show For Each oneForm In UserForms Unload oneForm 'Unload ADSinputform Next oneForm End Sub 主要的Userform开始代码 […]

在初始化和更改其他combobox上设置combobox值: （编辑：为了澄清，我正在运行Excel 2013，所以微软的dateselect器不可用。）我正在尝试编写一个简单的dateselect器 – 完成后它会更加整洁，在创build它时它只是一个简单的大事件，而且一切都应该如此： Me.Combo_Year.List = wsLU.Range("Date_Years").Value Me.Combo_Month.List = wsLU.Range("Date_Months").Value Me.Combo_Day.List = wsLU.Range("Date_Days31").Value 但是，有两种情况我想为年，月和日combobox设置默认值。对于我使用旋转button的时候，简单的.Value语句将它们设置为_Initialize 12中午。但是，也没有.Text为combobox工作： Me.Combo_Year.Text = Year(Now()) ' Doesn't work Me.Combo_Month.Text = Month(Now()) ' Doesn't work Me.Combo_Day.Text = Day(Now()) ' Doesn't work Me.Spin_Hour.Value = 12 ' Works fine Me.Spin_Minute.Value = 0 ' Works fine 同样，当我selectdate较less的月份时（例如为了避免返回二月三十一日）而将date设置为较低的值时， .Value和.Text都不再.Text ：有没有办法可靠地设置一个默认值，然后更改代码中的combobox的值？我错过了一些非常明显的东西吗？编辑：作为参考，表单的相关部分的完整代码（ UpdatePreview只是更新OKbutton上方的预览date）按要求： […]

设置UserFormcombobox的值: （从我的更广泛的问题中缩小在input链接描述在这里元build议。）我有一个用户表单。在那个用户表单上有好几个combobox供年份，月份和dateselect。根据select年份和月份，每天combobox填充的数字最多为28,29,30或31。为了避免select像2月31日这样的事情，我想检查选定的date值是否超过了当月的最大值，并适当减less。目前我已经尝试了这些选项： If Me.Combo_Day.Value > iMaxDate And iMonthNo > 0 And Not Me.Combo_Day.Value = "" Then Me.Combo_Day.Value = Me.Combo_Day.List(iMaxDate – 1) 和 If Me.Combo_Day.Value > iMaxDate And iMonthNo > 0 And Not Me.Combo_Day.Value = "" Then Me.Combo_Day.Value = iMaxDate 他们都没有工作; 任何时候该行被parsing，我得到一个380错误的解释“无法设置值属性。无效的属性值。我试过改变.Text和.Value ，而且都没有太大区别。如何更改combobox中的选定值？

使用用户自定义条目自动化ID – Excel: 我有一个用户窗体生成input数据到电子表格。在列HI中有与每个条目相关联的唯一ID的空间。我手动input这些ID，但我正在寻找一种方法来自动化这个过程。在每个用户表单传播数据到电子表格后，Excel是否有办法自动input一个唯一的ID？

如何播放本地video文件上循环在Excel用户窗体？: 这个问题被问到，但得到downvoted和海报删除的问题。重新发布问题并发布答案。如何播放本地video文件上循环在Excel用户窗体？

excel表格中的用户窗体 – 是否可以添加: 我有一个用于生成报告的用户窗体。如果我必须与某人共享用户表单，我将共享整个excel表单。是否有可能使现有的用户表单成为Add-in.so，一旦安装，就可以通过打开的任何Excel表单访问，而不仅仅是该特定的Excel表单。提前致谢。

VBA格式用户窗体数字输出: 我有一个电子表格/用户界面的组合，需要用户input来计算产品定价/百分比税收和平方英尺，考虑到在用户表单的一个文本框中输出地板的总成本。我的用户表单正在计算一切正常，但我想弄清楚如何格式化输出框，以便它只显示值超过小数两位数字（即$ 1.00）。目前，最多显示小数点后四位数字（如“总面积”，“税额”和“最终价格”文本框中所示）。我的用户表单代码如下（我忽略了一些与打开和closures用户表单有关的非相关部分，但是与它的function有关的所有内容都在那里）： Public Sub SumTool() Dim A, B, C, D, E, F As Double Dim x As Double Dim finalSum As Double Dim addUp As Double Dim BeforePercent As Double Dim Prcnt As Double Dim percentALT As Double Dim percentSum As Double Dim i As Integer addUp = 0 finalSum = 0 […]

使用vlookup的Excel VBA Userform: 我有一个用户窗体1个combobox和3个文本框。我想使用vlookup根据combobox中的select在texboxes中显示值。第一个文本框工作，但之后，它会给出错误。请帮助。这是我的代码： Private Sub ComboBox1_Change() Description = Application.VLookup(ComboBox1.Value, Range("A1:B17"), 2, 0) TextBox1.Value = Description Platform = Application.VLookup(ComboBox1.Value, Range("A1:B17"), 3, 0) TextBox2.alue = Platform End Sub