excel-vba

    1热度

    1回答

    Data > from text > Import text file > (manually select file) 我正在使用Excel 2010。在旧版本中,我可以点击“刷新”,Excel可以知道哪些csv刷新我的文件,而不要求手动选择文件。 有没有办法强制excel知道选择哪个csv时我刷新数据?(活动连接>刷新> ..) 代替Excel的提示我回>导入文本文件>(手动..) 什么是

    0热度

    1回答

    我有一个电子表格,其中,如果所选择的小区是B2 Excel稍后将选择范围A2匹配值:E2,但如果B3的值是相同的B2那么范围将是A2:E3。如果在B2中有相同值的1,2,3,4,5等行的话,我也需要这样做。 一旦进行了宏观的其余部分,我想它,然后返回到前一个选择的范围的结束和向下移动一行,并重复这个过程,直到满足列空单元格D. example of spreadsHeet

    0热度

    1回答

    我想复制Helper工作表中的一些范围。 事实上,我想重新格式化复制的范围,并将它们设置为Format as Table。 每个范围包含一个标题想要是非Table format。 我尝试下面的代码: ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(UpLeft,1).Address ":" & Cells(DownRight, 20).Add

    0热度

    2回答

    我有三个不同的变量x,y & Z存储不同的名称。我不得不打开一个文件基于格式x_y_z.xls dim x,y,z as string x= abc y= def z= ece Const strfolder As String = "C:\Users\source\" Const samepattern As String = "x_y_Z.xls" samefiletype = D

    0热度

    1回答

    我在一张名为“Data”和“Daily”的工作簿中工作。我只是希望我的代码在日常工作表中保存新的输入,但不是这样做,而是保存在活动工作表中。如果有人能解决此问题,我将不胜感激。 这里是我的代码: Private Sub CommandButton1_Click() 'Saving Button Dim sonsat As Long sonsat = Sheets("Daily

    2热度

    3回答

    我在VBA编码真的很新的,目前我有一个电子表格包含组及帐户不同层次,下面是一个简单的例子: 集团码是所有的数字和帐户代码以3个字母开头,说ABC后面跟着2或3个数字,所以一个例子是ABC100,第一个2个帐户代码字母总是相同的,即在该例子中是“AB”,所以另一个帐户代码可能是ABS80。 组/账户代码位于对应于组/账户的单独列中。 我的目标是建立一个宏这会为我提供一个总结,在被称为一个单独的标签说

    -1热度

    1回答

    有什么方法可以查找列中的任何值是否小于允许的限制? 例如: 我有一个塔A进行任何更改影响的值在列B时 我想要设置的约束,其具有可变的数据,使得如果列A中B栏进行任何值小于7(由增加或减少列A中的值),那么列A中的值将被拒绝,并且列A值将不会进一步更新(增加或减少)。最后的值将被设置为最终值。 所以这里的概念是循环遍历列A中的每一行,并尝试增加或减少值,直到条件满足。 注:A列中的值必须是正 实施例

    2热度

    1回答

    我希望我的意图清晰。它用于库存管理。第一个单元格显示当前库存,第二个单元格只是您可以键入输入或输出的单元格。我认为Excel中的代码应该是这样的,但是我正在寻找相应的谷歌电子表格: Sub LagerNeu() Dim S As Integer [F2].Select S = ActiveCell.Value + ActiveCell.Offset(0, 1).Val

    0热度

    1回答

    我有一个vba,它获取一个URL。 URL(如果插入到浏览器中)下载.csv文件。 vba应该从URL获取该.csv文件的数据,并将数据添加到新工作表。 这是必须连接到URL和获取数据的代码: With Sheets(currentSymbol).QueryTables.Add(Connection:= _ "TEXT;" & URL _ , Destinati

    1热度

    1回答

    我想删除整个行,如果列A中的任何单元格为空。 此外,此代码应在同一工作簿中的两个特定工作表上运行(即“ATM SLA可用性报告”&“事故报告”)。 以下是我的代码。当我运行它时,它给了我运行时错误9。 Sub test() Worksheets("ATM SLA Availability Report").Range("A:A").SpecialCells(xlCellTypeBlank