excel-vba

    -1热度

    2回答

    有人可以告诉我这是什么做行: ActiveSheet.Range("AH1").FormulaArray = "=iferror(MATCH(1,(plan!T3:T20000=AF1)* (plan!W3:W20000=MONTH(E1)),0),0)+2" 计划表在我的Excel文件的名称。提前致谢。

    0热度

    2回答

    我有一些很难找到合适的代码如下目标: 我有一个宏观的纸张,当我在小区变更的值E5,自动填充sheet1中的某些字段,从其他表的表格中搜索并返回值 - sheetTable)。因此在更换单元格E5之后,sheet1基本上已准备好打印。 我的目标是在一列上sheetTable选择值的范围和将它们分配中的每一个细胞上E5工作表Sheet ,并打印各一个。 因此,可以说我选择3个细胞值:45,50和66当

    1热度

    1回答

    我正试图找到在当前单元格之前插入单元格的正确方法。 我正在循环连续的一些单元格 - 当它找到正确的值时,我希望它向右移动。 我试过这段代码:(位于后的代码有指向一个值的偏移量相对于起始活动单元格) Dim shiftrng as Range For ctr = locatedPostCodeIndex To 4 Set shiftrng = Range(cll.Offset(0,

    0热度

    2回答

    我在excel中创建了一种方法,通过改变单元格的值(间隔),我可以通过“移动平均值”来平滑数据,并在图形中实时查看更改,而不是每次都必须点击数据分析 - 移动平均数等。问题在于,我发现Excel的显示速度很慢,因为它似乎是每次在同一张表格中“计算”移动平均值(或别的东西)。当我在同一个文件中有很多数据时,情况会变得很糟糕。 这是我目前做的方式:我复制下面的E3公式 然后我拖累了相同数量的占用的行中

    1热度

    3回答

    我得到此代码工作一段时间,但最后几天它没有工作。从活动workbook1它假设进口sheetworkThisworkbook2: Sub ImportallWBsh() 'https://michaelaustinfu.files.wordpress.com/2013/03/excel-vba-for-dummies-3rd-edition.pdf, Page 245 Dim

    0热度

    3回答

    我想删除列B中已有ID出现在“交易”片。但是,当我使用下面的代码删除行时,不重复的ID行也被删除(最顶层的异常除外)。我的删除代码是否有误? 这里是我的代码: Sub Removeduplicate() Dim i As Integer Dim j As Integer Dim num As Integer Dim lastCellB As Range num = 0

    0热度

    2回答

    我有一个带有宏的工作簿来生成一个HTML文件,并将其显示在嵌入其中一个工作表的Web浏览器中。在Excel 2016测试此宏后,我碰到这里所描述的ActiveX控件的问题就来了:How to make Microsoft Web Browser object work in Excel 2016 而这里的一段脚本在Web浏览器加载页面: Sub LoadHTML() Set IE = S

    0热度

    1回答

    我有一些Excel宏,人们在执行前手动粘贴到它的数据。 为了避免宏运行中的错误,我想禁用粘贴某些列的数据。 我 Private Sub Worksheet_Change(ByVal Target As Range) Target.Column = 7 Target.Column = 8 Target.Column = 12 End Sub 试过有人能指导我如何可

    0热度

    3回答

    我有一个受保护的工作簿,它具有使用数据验证手动创建的下拉列表。 我有一个隐藏的工作表,其中我已经为其中的值定义了名称,并使用=SheetName!A1:A6在实际工作表上创建了数据验证。 这足够我的需要。然而,新的请求引发了应该有能力增加用户新值的能力。 例如:假设我有一个下拉值为A,B和C.现在用户必须从三个中选择一个。但是,如果他想要D,E(一次性使用),他应该能够增加任何新的价值。不需要将这

    0热度

    3回答

    所以,我有一个关于选择一个公式化值的确切单元格的问题。我真的是VBA的新手,我在网上搜索了至少2天的宝贵答案。在这里让我给你展示代码,试图说明它后来做了什么; Dim r As Range MinTime = WorksheetFunction.Min(Range("C5:L14")) Set r = ActiveSheet.Cells.Find(MinTime) r.Select