Tag: 参考

主动x参考的VBA麻烦

我想为打印机编程一个控件。 打印机的界面是“Weber Packaging Solutions”的“Legitronic”软件。 在vba-activex手册中写道,一个实例的构build过程如下: 对于后期绑定: Dim MyLabel as Object Set MyLabel = CreateObject("Legi32.label") 早期绑定: Dim MyLabel as Legi32.label Set MyLabel = CreateObject("Legi32.label") 我提到了界面的types库(我的同事告诉我这是正确的参考,因为他在过去也做了一个程序,并且对他有效) 但每次我执行程序时,我都会得到运行时错误“429”:ActiveX组件不能创build对象。 我使用Microsoft Excel工作表的macros(.xlsm) 你知道这个问题还是知道,怎么解决? 提前致谢!

如何在Microsoft Excel中dynamic引用单元格

我需要结合(固定列,variables行)+(固定列,固定行)的string值我该怎么做? 例如: | ONE | TWO | THREE ONE | ONE-ONE | TWO-ONE | THREE-ONE TWO | ONE-TWO | TWO-TWO | THREE-TWO THREE | ONE-THREE | TWO-THREE | THREE-THREE* 任何帮助将不胜感激,谢谢!

Excel:使用函数引用单元格

我希望我可以解释清楚,我想编译数据和我得到的数据的机器有7行之间我需要的值。 所以编译我写: Cell1 = A13 – B13 Cell2 = A13(+7) – B13(+7) = A20 – B20 Cell3 = A20(+7) – B20(+7) = A27 – B27 Etc….. 有没有办法用函数写一个引用? 在这种情况下:A(x + 7) 注意:在这个例子中,B列只是一个“控制值”,我必须从A中减去这是我的“样本值”

有什么办法可以添加一个参考编程已经在代码中引用?

我有一个工作簿,当有人打开某个模块时,检查是否有新版本的模块,在这种情况下,它会删除旧模块并导入新模块。 没有问题,直到我添加一些新的参考,我试着以编程方式导入它们。 当我尝试这样做代码无法编译,因为我使用的库尚未导入。 有没有办法解决这个使用早期绑定? 先进的谢谢你。

Application.Run – 单元格引用的工作簿名称 – VBA

我是一个业余VBA用户,试图通过各种教程和反复试验到目前为止。 目前我遇到了Application.Run的障碍。 我拥有的macros正在工作,我只需要工作簿的名称(date)根据包含特定date的单元格引用进行更新。 作为一个较长的macros的一部分,我可能有以下之一取决于我工作的工作簿: Application.Run ("'09. September – Monthly Reconciliation.xlsm'!CombineTabs") or Application.Run ("'03.09.2016 – Daily Reconciliation.xlsm'!CombineTabs") 为了防止必须每天或每月更新macros(它将被没有任何VBA知识的人使用 ), 有没有办法可以将工作簿的名称链接到单元格? 该单元格将包含工作簿的名称,具有所需的date和date格式。 任何input赞赏,

如何从另一个工作表中外部引用的单元格中获取工作表名称

如何从另一个工作表中外部引用的单元格中取出工作表名称 工作表WS1中的单元格B1显示工作表WS2引用的单元格RefCell的值。 如何显示WS1中单元格A1 RefCell存在的工作表? 像这样的事情是我需要发生的事情: __________________________________ |_______|___A____|___B____|___C____| |___1___|__Pets__|__Dog___|________| |___2___|__Fruit_|__Apple_|________| *Column B contains referenced values from other worksheets (within the same workbook). *The value in Column A detects the worksheet name of the value in Column B. 这可以在VBA中实现吗? 如何实施?

VBA中的参考名称更改工作簿

我想知道是否有一个(内置/简单)选项来引用/连接/链接到一个variables名称的工作簿? 我的xy问题是,我有工作簿b v45.xlsm,并希望将数据导出到工作簿v34.xlsm版本号变化。 所以我想知道是否有每个工作簿的子标识,Excel可以独立于名称进行标识,自动select该文件夹中的最新版本。 当然,最简单的解决方法是,在文件夹path中select包含string“av”的最近修改的excel文件,假定文件夹path相同,但是我很好奇是否有更方便/集成的选项。 亲切的问候。 (对于未来的人来看这个问题,这里是我的手动解决scheme:) Sub find_planner_name() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim i As Integer Dim string_object(0 To 2) As String 'saving the filenames as strings Dim count As Integer 'counting nr of files encountered Dim save_version_number(0 To 1) As Long 'Create an instance of […]

包括从其他工作簿引用单元格时的格式

我想从一个工作簿拉入/复制单元格的值和格式(文本颜色,字体大小,粗体等)。 据我所知,使用标准的单元格引用不起作用,你需要vba。 下面是一些vba代码,它将格式从a3复制到a10在同一个工作表中: Dim ping As Boolean Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("A3")) Is Nothing Then If ping = False Then Range("A3").Copy Range("C10").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _ , SkipBlanks:=False, Transpose:=False End If ping = True Exit Sub Else ping = False End If End Sub 如何更改此代码以从名为“mybook”的其他工作簿复制A3?

复制工作表模板。 在列表中添加标题并重命名工作表

我正在尝试制作大量相同图纸模板的副本,其中表格名称和标题需要从列表中拉出。 我试过在下面说明我的愿望。 基本上我有这个模板在手动重命名工作表名称为1和标题是testing1: 我想这是以某种方式自动化,因为我有大约136张我需要复制和重命名,以及添加标题。 我在想的步骤是:复制工作表“1”,从Vejnavne列表中重新命名为“2”,添加标题testing2.重复,为3,4,5等。 现在名字不应该是testing1,2 …这些被审查,为什么我需要它也从列表中提取数据从Liste med vejnavne。 我已经偶然发现了这个代码片段来复制工作表,它说我将需要重新命名工作表,而不是“工作表1”,我想这一定是可以从名为“Liste med vejnavne” ,A3-A138栏。 Sub Copier() Dim x As Integer x = InputBox("Enter number of times to copy active sheet") For numtimes = 1 To x 'Loop by using x as the index number to make x number copies. ActiveWorkbook.ActiveSheet.Copy _ After:=ActiveWorkbook.Sheets("Sheet1") 'Put copies in front […]

(Excel)偏移量和索引/匹配都不会阻止表引用的单元格移动

我有一个报告,包含3个不同的input和3个不同的信息来源的3个相应的输出标签。 每个源都需要一个macros来改变数据的格式。 其中一个来源需要个别日子的数据,因此它将数据格式化为表格,然后将数据复制并插入前一天的数据之上。 一旦5天的数据已被转换并堆叠在输出选项卡中,最终选项卡基本上具有所有的公式,称为“转换”选项卡。 在这个选项卡中,每个数据源(输出选项卡)有三个表格,第四个表格从这三个表格中获取数据,并将它们组合成最终macros复制并粘贴到新工作表中的值。 问题在于通过插入新行来堆叠数据的表单。 我已经完成了从索引和匹配,偏移和匹配,简单的偏移,Vlookup(显然,这是首先开始),甚至定义新公式的名称,但转换选项卡的表引用不断移动的单元格当新数据进来时,我需要引用Array'CampPerf Output'!B116:B135无论如何。 我可以使用什么公式或后门技巧,以便我的查找每次都查看完全相同的数组? 转换数据的macros必须是一个可重复的动作,所以我可以将它分配给一个button(这个报表必须尽可能简单,因为非Excel用户需要能够“粘贴数据,点击button,点击其他button,ta-da!“) 谢谢你的帮助!