excel-vba

    0热度

    2回答

    尝试在MAX函数中包含if语句并在VBA中创建FOR循环。 我想要的代码是当列A中的值等于列I中的值时,将列B中的MAX值返回到新列。我在数据集中也有超过1,000行,因此我需要一个循环。 这里是数据集我的工作的Screenshot of data set: 当我执行我的数据集下面的代码(max_no_loop),我得到的是我期待的输出。但是,我想循环1000行以上,所以我需要I2随着集成的每一步

    0热度

    1回答

    我是VBA的新手,对此程序的任何帮助都非常感谢! 此程序的目标是将网络中的所有特定文件类型(.pdf)复制到桌面上的文件夹中。但是,(.pdf)文件位于每个文件夹子文件夹中。 如果我有用户定义文件夹(与许多子文件夹),我想程序将每个.pdf从每个子文件夹复制到目标文件夹。 这是我从浏览互联网到目前为止所得到的。 Sub Copy_test2() Dim FSO As Object, fld As

    1热度

    2回答

    我希望将多于2个Excel工作表保存为一个PDF文件。我有这个代码,但它只能保存单个文件,如何使其工作,以便它可以选择2个文件并将其保存为单个PDF。 Sub CMSaveAsPDF() Dim wsA As Worksheet Dim wbA As Workbook Dim strPath As String Dim strFile As String Dim strPathFile

    0热度

    1回答

    我目前正在制定一个用户窗体来创建一个公司用户发送到我的部门的订单。 目前我陷入了僵局,因为我正在努力解决以下问题。 我有一个组合框,它有我们业务提供的产品列表。基于选择,我希望能够添加要求用户输入数据的标签和文本框。 如果选择在组合框中,然后 输入名称,要求的日期,用户等位置 而且这需要具体到组合框的选择。 任何帮助,将不胜感激:) UPDATE 道歉,因为我没有该功能我没加任何这里是我的代码有任

    0热度

    1回答

    我想复制几个命名区域。范围有一个设置的命名约定,包括一个短字符串,然后是数字(例如Body1,Body2等)。 我的解决方法遍历每个工作表名称,并复制范围B2:C50而不是每个命名范围,这是我更喜欢的。 代码: Dim Bnum As Integer 'Bnum is Loop Counter Dim Nbodies As Integer 'Nbodies is how many loop

    0热度

    1回答

    我从Excel 2016 VBA下面的代码。 Private Sub useridno_AfterUpdate() Dim strMsg As String Dim ret_type As Integer Dim strTitle As String strTitle = "Wrong User ID Number!" strMsg = " W

    -2热度

    1回答

    我用VBA工作(用于Excel宏) 在试图复制SupplierFile1,File2(sheet2)到Masterfile(Sheet2) 使用迪尔后访问供应商文件,然后复制Sheet2中的数据我这样做 ActiveWorkbook.Worksheets("Sheet2").Activate erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(

    0热度

    1回答

    我想使用VBA excel自动化该网站。我被困在一个点,我需要从下拉框中选择值。我对此非常陌生,因为这是我的第一个这样的项目。 这是我的编码选择相应的值: Set objSelect = objIE.document.getElementById("personTitle") For Each opt In objSelect.Options If opt.Value = "Miss" Th

    -1热度

    2回答

    我正在用excel制作一个订单列表,并带有f.e.付款日期,订单日期,发货日期,价格,交货日期等等。我想要填写一个“已完成”栏,当物品到达并且付款等完成时自动获得值“1”或“是”,因此当一切都充满了。这可能吗? 谢谢!

    1热度

    1回答

    我想在Mac上从Excel 2016运行Python脚本。当我运行代码时,什么都没有发生,并且Excel中的状态栏卡在“正在运行”上。我检查了xlwings log file,我可以看到error是 Traceback (most recent call last): File "", line 1, in File "/Users/dano/Desktop/hello.py", line 3,