Tag: 模块

Excel：如何用用户input修改的代码填充单元格？: 我有这个IF声明： =IF([Year]=2016,IF([Condition]="XClean",72,IF([Condition]="Clean",72,IF([Condition]="Average",72,IF([Condition]="Rough",72,0))))) 我在一个单元格中embedded了这个IF语句55次，填满了11年的范围（从2016年到2005年）。我使用公式分配多个任务。我想知道是否有办法创build一个模块，在那里我可以input一个单元格坐标来replace[Year]，input另一个单元格坐标来replace[Condition]，以及一个我希望公式填充的单元格。这是我坚持的地方： Sub MaxTerm() Dim year As Range '[Year]' Dim condition As Range '[Condition]' Dim origin As Range 'first cell of the column I want to populate' year = InputBox("what is the coordinate for model year?") condition = InputBox("what is the coordinate for the condition of the vehicle condition?") origin = […]

复制和粘贴: 我最近进入VBA编码，然而，即使代码编译没有任何打嗝，它仍然没有达到预期的目的。实际上，这只是一个testing程序，用于将信息从一个工作簿复制并粘贴到特定单元格中的另一个工作簿。 Sub CopyOpenItems() ' CopyOpenItems Macro ' Copy open items to sheet. ' Keyboard Shortcut: Ctrl+Shift+O ' Dim wbTarget As Workbook 'workbook where the data is to be pasted Dim wbThis As Workbook 'workbook from where the data is to copied Dim wsTarget As Worksheet Dim wsThis As Worksheet Dim strName As String 'name […]

如何检索Excel VBA中的公共常量: 我正在处理一个需要输出月度报告的大型Excel VBA项目。因此，我有很多variables，我需要每月更改，并且在我的代码中出现很多。我知道我可以声明公共常量，但是我只是无法检索这些不同的模块。那么我该如何灵活而简单地解决这个问题/我如何在不同的模块中检索公共常量？ EG如何检索： Public Const startWeekProjection As Integer = 1609 在另一个模块？

VBA选项button如何链接到模块？: 您好我有一个用户表单，允许您从信息中select，并以特定的格式作为string粘贴。我有一个单独的模块创build这个string如下： Sub Skeleton_Query1() UserForm2.Show strQuery = "SEL " & Chr(10) & strSelectedColumns & Chr(10) & "FROM Database.Table1 A" _ & Chr(13) & "Left Join Database.Table2 B" & Chr(10) _ & "On A = B " & Chr(13) End Sub 其中strSelectedColumns是来自用户窗体的信息。我基本上想打勾我有如下的选项button： Private Sub OptionButton3_Click() strPeriodicButton = UserForm2.OptionButton3 End Sub 我想要的是添加类似于下面的东西到我的模块，所以如果我勾选选项框，它会检查看是否打勾或添加一个string到我的上面的string： If strPeriodicButton = True […]

VBA，Excel：可以将.OnAction值设置为ThisWorkbook中的Public Sub: VBA天才：问题1：是否可以将菜单选项的.OnAction值设置为ThisWorkbook中的Public Sub，或者必须将子菜单中的菜单选项设置为模块？这工作：ViewTextFile（）是一个模块中的公共子 .Controls(strMenuItem).OnAction = "'ViewTextFile """ & strMenuItem & """'" 我想将该子移动到ThisWorkbook ，所以值变成这样： .Controls(strMenuItem).OnAction = "'" & ThisWorkbook.Name & "!ViewTextFile """ & strMenuItem & """'" 问题2：如果＃1的答案是肯定的，那么在.OnAction命令中获得对“ThisWorkbook”的引用的语法是什么？请注意，参数strMenuItem必须包含在值中（如在“ViewTextFile my_file.txt”中）。我已经尝试了以上的许多变化，但没有成功。谢谢你，VBA天才！

使用Perl在现有的Excel表格中绘制graphics: 我有一个现有的Excel（.xls）文件与数据。我需要从文件中读取数据，并根据同一张表上的相同数据绘制图表/图表。 Spreadsheet :: ParseExcel模块中是否有任何方法绘制graphics。

Excel VBA将数据写入类模块中的字典: 我正在尝试将数据保存在类模块中声明的字典中。我已经在类模块中使用过一个字典，因为在开始时组的数量和相关的数据点是未知的。下面的代码编译，但模块和类模块中的dRATIO.exists语句都返回false（但是在第一次传递类模块中的debugging语句给出正确的值，之后的错误），然后Function GetRATIO返回999.任何build议？ 'CODE IN A CLASS MODULE CALLED clsIVDATA Option Explicit Public dRATIO Public dIV ' Sub Init(RATIO As Variant, IV As Variant, KEY As String) 'Dim I As Long Dim VAL As String Dim RowKeys Dim COLKEYS Set dRATIO = CreateObject("Scripting.Dictionary") Set dIV = CreateObject("Scripting.Dictionary") dRATIO.ADD ITEM:=RATIO, KEY:=KEY dIV.ADD ITEM:=RATIO, KEY:=KEY Debug.Print […]

想要一个先进的sortingfilter，search特定列中的字母的特定组合，而不考虑其后置和前置字母: 这是我的数据集现在，我希望所有的行都有红色filter组合到我的工作表2，而不pipe其前后的字母。我想要这样的结果。但只能使用下面的代码达到目的。 Sub FilterCopyToOtherSheet() ' Sheets("Sheet1").Range("A1:C14").AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Sheet1").Range("E1:E2"), _ CopyToRange:=Sheets("Sheet2").Range("A1"), _ Unique:=False End Sub

如何使用xlrd编写excel文件: 我怎样才能用xlrd模块单独编写一个excel文件（xls / xlsx）？我尝试from xlrd import xlsx ，但找不到任何真正能帮助我的东西。

对于循环个案select错误: 我有一个关于select循环的情况的问题。这个循环第一次工作的非常好，一直到case 18.但是，每当我尝试通过键入“Y”来重新启动循环，它将正常地重新启动循环，但是每当我尝试input时都会popup一个错误一个值放入消息框。我很困惑，为什么代码第一次运行，但不是第二次。 Sub MessageBoxFunction() Dim wbThis As Workbook Dim wsThis As Worksheet Dim msgBox As Variant Dim txt1, txt2 As String Dim rng1, rng2 As Range Dim i, iA, iB As Integer Set rng1 = Range("A1") Set rng2 = Range("A1") txt2 = rng1.Value Do Until IsEmpty(rng1) Set rng1 = rng1.Offset(1, 0) Loop For […]