excel-vba

    2热度

    1回答

    所以,我有一个相当复杂的工作簿。 表1:一个数据库,其中用户输入仪器列表以及垂直列中有关仪器的一些数据。 表2:表单包含与表单1完全相同的信息,但以不同的格式显示它。根据表1中的条目自动填充。(在这个问题中没有用) Sheet 1上存在一个通过单击按钮执行的宏。该宏从Sheet 1中获取每列,并为每个列创建一个新的Sheet。每个新工作表工作表3都被重命名为它所表示的工作表1的第一个值。 即有4列

    0热度

    1回答

    我在工作簿中有多个工作表。 NotToTouchSheet1,NotToTouchSheet2,NotToTouchSheet3,NotToTouchSheet4, HideOrToUnhideSheet1,HideOrToUnhideSheet2,......,HideOrToUnhideSheet10 正如你可以在上面看到,还有就是我不想隐瞒,不管什么张发生,并张和隐藏或取消隐藏的条件。 条件

    1热度

    1回答

    对你们所有人来说都是美好的一天。 我有一个关于VBA一个小问题,以及变量初始化: 我有一个类,财产 Public myVal As Double 两个脚本: Dim myObject As new MyClass myObject.myClass = 0 Debug.Print myObject.myClass Dim myObject As new MyClass Debug.Pr

    1热度

    2回答

    我在Excel中的一个表格式如下: Date Asset Return 1/3/2005 0.003582399 1/4/2005 -0.01908258 1/5/2005 0.002080625 1/6/2005 0.005699497 1/7/2005 -0.008040505 1/10/2005 -0.00339116 1/11/2005 -0.009715187 1/12

    0热度

    1回答

    我有一个将数据写入Access数据库的excel程序。在这个数据库中,我有一个宏,它在运行时将数据复制到另一个excel文件中。我想编辑原始的excel程序,以便在将数据写入Access数据库之后,它会自动运行宏。现在,我已经设置了它,以便将数据写入数据库,然后打开数据库,运行宏并关闭数据库 - 这似乎有些不够用。以下是访问数据库中的宏: Sub copy() Dim strTable A

    0热度

    1回答

    对不起,这个简单的问题,对VBA来说还很新颖。 我有一个电子表格,列A-Z填充。我想要做的是过滤基于少数员工的C列(包含员工ID),然后只删除Q列中的内容(其中包含员工工作时间),只删除可见内容。为了更清楚起见,我会根据一些标准过滤C列,然后转到Z列。在Z列中,我想根据可见行删除Z列中的内容(而不是整行)。所以基本上过滤后,我想删除列Z中的所有可见内容。电子表格的行数一直在增长,所以我不能使用我现

    0热度

    2回答

    With Worksheets("Sheet2") NewRow = .Range("C" & Rows.Count).End(xlUp).Row + 1 .Range("A" & NewRow) = ws.Range("A91") .Range("B" & NewRow) = ws.Range("A92") If ws.Range("A93") = "LN:" & The

    0热度

    3回答

    我不断收到类型不匹配的错误,并试图改变几次类型。我只是试图遍历每个工作表和指定范围,以查看该范围内每个单元格中是否存在该单词。 Sub CheckWord() Dim arrVar As Variant Dim ws As Worksheet Dim strCheck As Range Set arrVar = ActiveWorkbook.Worksheets 'MsgBox (

    2热度

    1回答

    当我尝试在Excel VBA宏中使用Workbooks.Open命令打开某个特定的目标.xls文件时,打开目标Excel文件并在末尾添加“1”的文件名称。这个改变的文件名出现在文件窗口()中。随着每次后续尝试(手动关闭目标Excel文件&重新运行该脚本),目标文件名末尾的附加数字将加1。 目标Excel文件本身似乎没有损坏,因为我可以在Windows资源管理器中手动打开该文件而没有任何问题。另外,

    0热度

    1回答

    我目前有一个代码,将Excel表格保存在基于特定于单元格B2中文本的信息的PDF中,然后将PDF附加到电子邮件中并通过电子邮件发送给特定用户。 我不确定如何将宏添加到当前代码以使B2中的单元格位于数据验证列表中,然后重复该宏以向下一个人发送特定于他们的电子邮件。 这是当前的代码,我必须保存PDF,然后电邮: Sub AttachActiveSheetPDF() Dim IsCreated As