userform

    0热度

    1回答

    这是针对VBA宏的,是Excel。 例如,如果用户从组合框中选择“ID”,则将“A:A”提供给操作过程,将“B:B”提供给“名称”等。 列数及其标题将始终不同,并且可能包含重复的标题名称。 我很欣赏指向我需要使用的VBA功能的指针。

    1热度

    3回答

    我试图建立的价值 If UserForm1.p1OptionButton.Value = True 凡p1OptionButton 1是a的值对于下一个循环计数器,但我发现错误,但我尝试并构建它。如果我使用 Dim iPart As Integer For iPart = 1 to 6 If "UserForm1.p" & iPart & "OptionButton.Value" = Tr

    0热度

    2回答

    我正尝试在Microsoft Word中创建VBA中的用户窗体。 我一直在关注http://gregmaxey.com/word_tip_pages/create_employ_userform.html 来创建表单。 我对编程非常非常陌生,基本上只是在我走的时候自学自己。 我得到一个“编译错误:函数的子未定义”当我尝试通过呼叫UF 我已经附加给你看,告诉我在哪里,我错了整个代码步骤,对于任何建议

    0热度

    2回答

    我目前遇到填充用户表单的问题。 问题:当我放入票#并按搜索时,我希望用户窗体填充。但是当我尝试运行它时,会发生类型不匹配。我已经尝试将文本框设置为整数或字符串,并将工作表中的源更改为尊重类型,但随后出现无效限定符。 有趣的是我试图简化它,测试代码,它的工作原理,所以我不知道我做错了什么。 Option Explicit Private Sub cbSearch_Click() Dim vR

    1热度

    1回答

    我试图将组合数据从用户窗体传递给单元格以创建超链接。 我希望与超链接结构,以最终如下: 1部分:静态的文件夹位置 2部分:从选项首先的2个字符在用户选择的形式 第3部分:当前日期和时间 我有这一切工作的隔离: .Cells(lRow, 2).Value = "=Hyperlink(""H:\revised_action_tracker\test\"")" .Cells(lRow, 3).Value

    0热度

    1回答

    我正在以编程方式创建基于工作表范围内的行数(当前设置为测试的固定编号)的用户窗体。 然后用户选中他们想要检查的方框,然后单击命令按钮。 用户窗体,如下面的代码运行,有一个命令按钮和一个复选框手动添加。其他复选框以编程方式添加。 我无法弄清楚如何从有问题创建的复选框中获取值。我只是得到一个错误,“测试箱”没有定义。 我知道我错过了一些简单的... 有什么想法? 谢谢! Option Explicit

    1热度

    2回答

    我正在使用一个小的Excel-VBA GUI /窗体供用户读取/写入.ini文件中的数据。 UserForm有一个MultiPage,用户在运行时创建页面,每个页面将代表一个ini部分。此外,这些部分还在主节中编入索引以供进一步处理:此时,我循环浏览MultiPage页面以创建此索引。问题是,用户需要能够改变这个索引的顺序。现在,是否有可能在运行时移动多页中的页面?我在想什么的效果 Me.Mult

    -1热度

    1回答

    在USER FORM代码中,在用户单击“确定”后,有一个msgbox 即。 MsgBox ("The total price is " & Price & "") 事情是,我已经计算了MODULE子版中的Price变量。 如何确保价格实际显示出来?如何将模块子变量连接到表单? 更一般的是,在用户点击“确定”之后,如何让消息框显示出来。我的代码中是否需要有两个消息框? 代码示例: 模块: Dim P

    2热度

    1回答

    我目前正在填充列表框的形式用下面的代码: 'Populate In-Form Table With ListBox_InFormTable .ColumnCount = 4 .ColumnWidths = "100;100;100;50" .RowSource = ws.Range("MasterDataTable").SpecialCells(xlCellType

    1热度

    1回答

    我有一个单词VBA UserForm,我用它作为排行榜来跟踪SQL查询更新结果。每10分钟发布一次,有没有办法自动刷新表单?我试过这个: Private Sub UserForm_Initialize() Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim AgingSQL As String cnn.Co