vba

    0热度

    1回答

    I am trying to create a tool that will get All objects from a webpage including its valid xpaths. For example: In a Login Page where the following objects are usually seen: username textbox pas

    1热度

    1回答

    我有表在Microsoft Access应用程序 ,并以这样的形式我有2个组合框,一个显示显示查询的名称日期和一个 另外,我有,我想动态显示表,基于什么用户在组合框中选择我想要实现 举例子窗体: Private Sub Form_Load() Select Case comboBoxQueries.value Case comboBoxQueries.value = query1 My

    0热度

    2回答

    所以我是VBA的新手,并试图在工作项目中发现某些东西,这会让我疯狂。 我有一个宏来清理我的数据并把它放到一个表中,然后我正在处理一个宏来获取该表并将其转换为数据透视表/图表。第一个宏在电子表格“DailyData”上创建Table1。作为参考,那就是: Sub Format_Table() Dim target As Worksheet Set target = ThisWorkbook.Wo

    -1热度

    1回答

    我不知道这是否有意义,但可以在没有工作簿或Excel.Application对象的情况下创建/编辑Excel工作表对象?

    1热度

    2回答

    我想写一个简单的Excel VBA函数从给定的单元格中取一个数字并分配一个等级,然后在当前活动单元格中写入该值。 Public Function Grade(rng As Range) Dim number As Double number = rng.Value If number >= 75 Then ActiveCell.Value = "A"

    0热度

    2回答

    我有以下VBA代码复制现有工作表数据到新的工作表,它的正常工作,但它不会复制工作表中的图片文件(eg.jpg),我怎么能复制图片文件好?谢谢。 Set source2 = Worksheets("today").Range("A5:l68") Sheets.Add After:=Sheets(Sheets.Count) Set dest2 = ActiveWorkbook

    1热度

    2回答

    我需要检查列(X:X)中的单元格是否重复,并且如果另一列中的单元格(AB:AB)为0,并且如果条件匹配,则以颜色突出显示相应的行。这是我有什么,但它不工作.. Dim cell1 As Variant, myrngg1 As Range, clr1 As Long Set myrngg1 = Range("X1:X" & Cells(Rows.count, "X").End(xlUp).Row)

    0热度

    2回答

    尝试使用此vlookup时出现此错误1004。我使用一个窗口来选择一个文件,然后在vlookup中使用该文件。我在另一个宏中使用它,我使用了基本相同的代码。但由于某种原因,这一个不工作。任何人都可以看到任何明显的问题?我无法弄清楚我做错了什么。 我上第一VLOOKUP公式错误后右侧的“使​​用WS” Dim iRet As Integer Dim strPrompt As String Dim

    1热度

    1回答

    排序功能的内存分配我最近完成了一些代码,通过我在Excel中的所有图纸循环,然后对其进行排序基于特定的列和 的代码如下所示该列中的值: Sub sortingByLooping() Dim rngName As Range Dim sht As Worksheet Dim LastRow As Long Application.ScreenUpdating

    1热度

    1回答

    我试过并通过vba论坛进行搜索以找出如何纠正我的代码(下面)来搜索特定目录及其子目录中的文件列出并填充文件名列表,文件名长度为20个字符,只是pdf扩展名。 我想还没有在A列中没有扩展名在年底和全文件路径和名称在列B 还试图创建的列表,然后又上升的所有文件进行排序,但没有成功,列出文件:( 任何帮助,感谢 Sub ListPDF() Range("A:L").ClearContents Ra