vba

    0热度

    2回答

    嗨我正在尝试打印出用户窗体。打印时始终提示保存用户窗体(正在显示提示框)。我不想要它。 我想在不保存的情况下选择打印机后直接打印输出。下面 代码: Private Sub CommandButton2_Click() CommandButton2.Visible = False CommandButton1.Visible = False Application.D

    -1热度

    1回答

    我想发送一个简单的http发布请求。如果我使用ajax通过Internet Explorer控制台发送它,它的工作方式非常好,但是我在使用VBA时遇到问题。 我发现问题是我工作的公司的代理服务器。它只允许配置的软件访问互联网。所以我的VBA脚本被阻止,但一切工作正常与Internet Explorer。 无论如何,我可以直接写入Internet Explorer控制台并通过ajax发送http p

    0热度

    1回答

    需要您的VBA专业知识来完成以下任务。 我需要在一列上做一个“MACORS”城市标识,并打印数字旁边的每个城市。 我有这样的代码: Public Sub CountLocation() Range("V2").Select Selection.End(xlDown).Select lastcell = ActiveCell.Address ActiveCell.Offset(2, 0

    0热度

    1回答

    我运行下面的查询在Access VBA Case "Customer Name" strSQL = "SELECT CustomerID, Customer_Name, Industry FROM TBLCUSTOMERSNEW WHERE ucase(Customer_Name) Like '*" & UCase(tempStr) & "*'" & " ORDER BY Custom

    0热度

    1回答

    我的问题是能够使用vba在列表框中选择行。 我的程序循环遍历一个表,并找到列表框的值,即一个整数/行号,并将其设置为一个变量,类似于列表框名称。 因此listbox name = variable LstName ListBox value = strvalue as integer。 我想然后在列表框中选择该行,使其突出显示 我只是无法让它工作。如果我使用实际名称和数值,它可以很好地工作,但是m

    0热度

    1回答

    我正在开发PowerPoint的插件。我想将创建的用户窗体放置在基于某个PowerPoint形状的位置的屏幕上,用户窗体应放置在形状上方。我设法为Excel找到了可能有用的方法:application.usedwidth application.usedheight,activewindow.usedheight和activewindow.usedwidth,但我找不到用于PowerPoint的此

    0热度

    2回答

    我将excel输出转换为.txt和.dat文件格式,但是只要将其转换为.txt文件,其余空格或空列在转换后的文本文件上会给出很多逗号。 = IF(A13 = “”, “”, IF(LEFT(A13,1)= “T”, “”, IF( '摩根模板新'!A14 <> “”,”摩根大通模板新建“!A14 &‘摩根大通模板新建’!B14 &‘摩根大通模板新建’!C14 &‘摩根大通模板新建’!D14 &‘摩

    1热度

    1回答

    我试图让“全选”复选框,但是当所有复选框被选中时,它们都不会被执行。 从Sheet1的字段不会被导入或设置为Null。在他们自己的复选框中,将数据从Sheet1导入到位置,但在master下不工作选择所有checkbox1开/关命令。 这是我到目前为止的代码: Sub SelectAll_CHECK_BOX() Dim CB As CheckBox For Each CB In

    0热度

    1回答

    我有一些VBA PPT宏以及自定义功能区接口。谁的宏从代码工作正常,但是当制作成ppam插件并添加到PPT插件时,一些命令会抛出此错误消息,但是该宏运行良好,只是想停止这些恼人的消息。 subs和函数都是Public,它仍然显示相同的错误。请帮助 Public Sub frmFeedNotes_show() frmFeedNotes.Show End Sub <!--RibbonX Vis

    0热度

    1回答

    我目前有一堆组合框,可以选择是,否或不适用 然后我有一个命令按钮,运行计算,然后移动到下一页 Private Sub CommandButton2_Click() Dim a As Long, b As Long a = IIf(Cbx1_1.Value = "Yes", 1, 0) + IIf(Cbx1_2.Value = "Yes", 1, 0) +_ IIf(Cbx1_3.Valu