Tag: 模块

为什么不能颠倒VBA模块操作？即Ctrl + Z'ed: 在过去的几个月中，我一直在编写VBA脚本，并且注意到，如果我编写一个作用于Excel工作簿/表单的模块，我无法按Ctrl + Z这些操作。从我注意到的情况来看，这适用于模块执行的任何操作。一个简单的例子是： Sub test() Cells(1,1) = "Hello World" End Sub 为什么模块操作不能“倒转”？即通过Ctrl + Z撤消，或者通过使用“撤消”箭头。 PS我认为这种行为也可能适用于任何MS应用程序中的任何模块操作，但是，我可能很容易出错。

没有模块命名为xlutils.copy，点安装失败: 我得到一个错误消息，说：“没有模块名为xlutils.copy”。当我需要做xiptils.copy的pip安装时，我收到一条错误消息“找不到满足要求的版本”。我下载了包含xlutils.copy的xlutils 2.0.0，但是我不确定它是否需要放在某个目录中？ from xlrd import open_workbook from xlutils.copy import copy rb = open_workbook('Excel FDT Master_01_update.xlsx') wb = copy(rb) s = rb.sheet_by_name('INPUT') r = 5 for test in col_test: s.cell(rowx = r, colx = 1).value = test r += 1 wb.save('comeonenow.xls')

在excel启动时运行两个模块: 我有两个模块，我想在工作簿打开时执行什么是最好的方式来做到这一点。下面是我的模块。模块1 Public Sub workbook_open() Dim YesOrNoAnswerToMessageBox As String Dim QuestionToMessageBox As String QuestionToMessageBox = "Do you Agree?" YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "Do you agree with disclaimer") If YesOrNoAnswerToMessageBox = vbNo Then ActiveWorkbook.Close savechanges:=False Else MsgBox "Congratulations!" End If End Sub 模块2 Sub workbook_open() Dim Expired As Date Expired = "31 March 2016" If […]

Excelmacros – 删除或添加对angular边框: 我对编码非常陌生，需要一个代码去除对angular边界。这个macros被用作一个button，用下面的代码清空单元格： Sub Southwood_Click() Sheets("Southwood").Range("C6:C8") = "" Sheets("Southwood").Range("D9:F9") = "" Sheets("Southwood").Range("F6:J8") = "" Sheets("Southwood").Range("J9") = "" Sheets("Southwood").Range("M6:S9") = "" Sheets("Southwood").Range("C26:C28") = "" Sheets("Southwood").Range("E26:E28") = "" Sheets("Southwood").Range("H26:O28") = "" Sheets("Southwood").Range("M29") = "" Sheets("Southwood").Range("C52:M54") = "" Sheets("Southwood").Range("C75:H77") = "" Sheets("Southwood").Range("J75:J77") = "" Sheets("Southwood").Range("L75:P77") = "" MsgBox "Southwood has been cleared." End Sub 我也想删除这一行的对angular线边框： Sheets("Southwood").Range("M6:S9") = "" 这是如何完成的？

在Excel VBA中使用类: 我正在尝试使用类定义来计算Excel VBA中的某些内容。主要目标是在一个类Calc1中的一个类中计算一个简单的比例。当执行模块时，我收到以下错误：函数或variables的预期在模块的行中 MsgBox myCalc1.Calc1 代码如下类定义如下： ' These are properties Public dat_date1 As Date Public dat_date2 As Date Public str_Option As String Dim ratio As Double Dim nominator As Double Dim denominator As Double ' These are methods Sub Calc1() ' Code for day count conventions If str_Option= "o1" Then nominator […]

将activeX控件的命令button连接到一个模块: 好吧，这是我的问题。是否可以从Excel表单上的ActiveX控件命令button调用模块？这是情景：我有一个名为菜单。在菜单上，有10个activeX控制命令button。我需要命令button来调用或链接到一个模块。关于如何实现这一点，我一点也不知道。这甚至有可能吗？如果是这样，我该如何去做呢？如果不是，有没有其他的select？非常感谢你。

我如何使用excel vba中的模块函数将值设置为范围？: 我想在Excel VBA模块中做一个简单的函数，所以我可以在Excel中使用它作为自定义函数。（我使用Excel 2003或2007，这没关系）我在一个新的工作簿中创build一个函数（！），如下所示： Function a() Sheets(1).Range("A1").Value = 4 end function 但是当我尝试在sheet1上使用它，它不会工作！我尝试了很多东西。我怎么做这个工作（没有解决方法，我想用它作为一个自定义函数）？请帮忙。谢谢，gadym

Excel如果在某个位置的电子表格中find该variables，则会永久地向该模块添加一个variables: 简单的问题是如何保存添加一个variables到我的模块永久进一步使用？以下是详细的版本：我正在制作一个parsing交易交易的macros，我的input文件中有账号，需要在结果文件中翻译成投资组合名称。目前我维护两个数组，一个用于帐号，另一个用于名称。例如：arr1，arr2 1111，FIRST_PORTFOLIO … 9999，LAST_PORTFOLIO 还有一个小小的function可以匹配帐户号码，如果find了，它将返回相同索引的投资组合名称。如果此函数find不在数组中的投资组合号码，它将返回BLANK。但是我想把这个数字和它的名字永久添加到arr1和arr2中，所以下次有人使用这个macros时，这个账号就会被注册。这对于我的同事来说是不需要编程的，所以我需要给他们指导一些可以在Excel前端完成的事情。我想只是让Excel检查X1和Z1（如果有多个帐户需要添加，并向下行），如果不是空的追加这些值到我的数组。问题一旦完成，是否可以永久保存到数组中，以便永久保存在我的模块中？即如果我现在在arr1和arr2中有5个条目，并且向arr1和arr2添加了2个条目，我将来如何在不同的文件上运行我的macros时如何使用7条目数组。谢谢！

如何访问Access中的子对象之间的对象variables: 我有一个访问模块sub（），通过查询创build数百个统计列表。我开始使用logging集方法创build列表，然后将值传输到Excel电子表格。我的问题是，我得到一个错误，我的程序无法编译，因为它太大，大于64K。所以，如果我把它分成另一个模块中的第二个子元素，那么所有的都是明智的。但是在我的生活中，我无法参考第二部分中的对象。我怀疑我可以使用with语句，但是在search论坛之后，我无法弄清楚不会抛出错误的语法。我坚持在对象的引用需要在第二个子顶部的点。这是我有的代码 Public Sub SomeSub() Dim lngColumn As Long Dim xlx As Object, xlw As Object, xls As Object, xlc As Object Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim blnEXCEL As Boolean, blnHeaderRow As Boolean Dim sqlMin As Variant blnEXCEL = False blnHeaderRow = False ' Establish […]

VBA – 在更多模块中使用相同的variables: 我想要三个总结如下的模块：第一个模块 Sub settings() Dim variable1,variable2,variable3,_ variable4,variable5,variable6 as String variable1="Stack" variable2="Overflow" variable3="Best" variable4="Site" variable5="Ever" variable6="I love it!" End sub 第二个模块 Sub module2() 'LINE CODE THAT CALLS "settings" MODULE (I want to know it!) 'my sub that uses the six-variables above End sub 第三模块 Sub module3() 'LINE CODE THAT CALLS "settings" MODULE (I want to know […]