vba

    0热度

    1回答

    我试图获得使用GetCursorPos我的光标的位置,但它给我的错误 Managed Debugging Assistant 'PInvokeStackImbalance' : 'A call to PInvoke function 'MoveClickApp!MoveClickApp.Module1::GetCursorPos' has unbalanced the stack. This is

    0热度

    1回答

    我试图用代码来计算增值税和总在同一条直线E(同一行净额)但增值税的答案远高于净额的20%。与总金额相同的问题。我认为这两个数字可能会拿出一些其他数字,而不仅仅是净额。下面是我的代码的一部分,请给我一些建议吗?非常感谢 Option Explicit Sub copy_info() Dim i As Long, j As Long, lastRow As Long Dim sh As Wor

    1热度

    1回答

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

    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

    0热度

    2回答

    我有一列有数据,如year(date)或date-365。 如何将此文本用作代码而不是文本?意思是,我希望能够做到像 me.ProjectName="ddddd " & MyColumnWithCode ,并得到ddddd 2017或ddddd 10/21/2016 我做了谷歌在各个方面我能想到的,并没有得到任何东西。

    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