Tag: 全局variables

在dataframe名称变化的循环中操作dataframe: 我有六个dataframe，z1，z2，… z6。（从一个excel文件的六张不同的表中读取）。我需要对这些数据框进行子集化并build立一些模型。每个过程都是相同的。我希望能在循环中做到这一点，但无法find正确的语法。（我试图使用粘贴和分配function，但它没有帮助）。比如我想要 for (i in 1:6){ Z=subset(Zi,Zi$var1==1) } Zi应该是已经定义好的Z1，Z2，Z3。我可以在每次迭代中通过粘贴function生成一个variablesZ1，Z2 temp = paste（'Z'，i，sep =''）但是我不能在上面的代码中使用'temp'代替Zi。有关于类似问题的其他线程的讨论，但我无法find任何直接相关的问题。如果我失去了一些东西，请将我指向正确的线索。

在一个文件夹中find一个文件名，并把它变成一个variables: 我试图运行一个macros，将采取我提供的文件夹path，然后将文件在该文件夹中，并使文件名variables。该文件名variables将被用作VLookup的一部分，以从该文件内的单元获取数据。下面是我迄今为止发现的代码，但是我一直无法使它工作： Dim FilePath As String FilePath = "____________________" Set wbCodeBook = ThisWorkbook With Application.FileSearch .NewSearch 'Change path to suit .LookIn = FilePath .FileType = msoFileTypeExcelWorkbooks 'Optional filter with wildcard .filename = "*AD*.xlsm*" End With 我得到的对象不支持在代码的Application.FileSearch部分这个动作。我也不知道如何把上面的代码，使输出variables。有没有办法做到这一点？

基于单元格值的variables数组: 以下代码显示具有固定大小的数组，具有六个值。我应该怎么做才能使其规模取决于单元格的价值？例如，从1到10？ Dim MySlideArray As Variant Dim MyRangeArray As Variant 'List of PPT Slides to Paste to MySlideArray = Array(2, 3, 4, 5, 6, 7) 'List of Excel Ranges to Copy from. For now, assume that it's always 6 ranges With tb.DataBodyRange MyRangeArray = Array(Worksheets(.Cells(1, 1).Value).Range(.Cells(1, 2).Value), _ Worksheets(.Cells(2, 1).Value).Range(.Cells(2, 2).Value), _ Worksheets(.Cells(3, 1).Value).Range(.Cells(3, […]

从2个模块之间拉动variables: 我有一个variables，在我的第一个模块，我想在我的第二个模块中使用这个variables。第一个代码是我的variables。 Dateiname = Ord & mNummerGanz & "_" & Name & ".xlsm" ThisWorkbook.SaveAs Filename:=Dateiname 我想在同一个项目的不同模块中使用这个variables。 Windows(Dateiname).Activate 有没有人有build议？

Excel：如何汇总与某些string在不同列中相关的值: Excel示例图像你好！我的问题有点难以形容，所以希望标题不要误导。正如您在图像中看到的那样，在另一列旁边有一列不同的双字母string和相关的值。在右边有另一个表，其中包含所有string和列旁边的列，我希望Excel汇总与特定string关联的所有值。因此，Excel必须基本扫描最左边的string列，然后检查“GE”。如果成功find它，则必须引用同一行中引用该值的单元格，然后将该值添加到将所有“GE”值相加的单元格中。我已经尝试了一些不同的东西，但我无法find解决scheme。我希望你可以帮助我！ 🙂

VBA Excel，在窗体之间返回一个variables: 我需要一些帮助。我正在写一个Excelmacros的VBA脚本。我有两种forms，第一种有一个button叫第二种。第二我希望它返回一个variables（ tempdate ，这是在主工作表中声明为public type Date ）。主窗体button代码： Private Sub SetDueButton_Click() UserForm1.Show DueDate.Value = tempdate 'display tempdate in the DueDate text box End Sub UserForm1“确定”button： Private Sub CommandButton53_Click() tempdate = TextBox1.Value Unload Me End Sub 我错过了什么，以获得这个variables加载TextBox1.Value什么的？

许多子程序的variables：代码清理: 我一直在思考和寻找解决scheme的几个小时，但不能拿出我的基本问题的答案（显然很难）：所以我有很多子程序： Sub OUTPUT() Call CompañiasCubiertas Call RangosDatos Call EERR Call Balance Call Flujo Call Indicadores Call FormatoEERR Call FormatoBalance Call FormatoFlujo Call FormatoIndicadores End Sub 在这些潜艇的每一个，我有许多variables和工作簿声明重复： Dim y As Workbook Dim x As Workbook Dim rangoi As Integer Dim rangof As Integer Dim compañia As String Dim oipf As Integer Dim ogpf As Integer […]

Excelmacros会覆盖variables的值: 我正在写一个macros，它可以将variables（利润）的值保存在Excel表格中，用于多个场景（通过更改价格和折扣）。要开始，我有一个运行在每个场景中的macros，并将variables的值设置为该场景中计算的利润。但是，当我运行macros – 我的三个variablesA1 A2和A3的所有似乎有最后一个和最后一个值。我在做什么错了，我该如何解决这个问题？ Sub Macro1() ' ' Macro1 Macro ' ' With Sheets("Inputs") .Range("I72").Value = "Base" Dim A1 .Range("I5").Value = "Low" .Range("I91").Value = "Reduced 8%" Set A1 = Range("I174") Dim A2 .Range("I5").Value = "Low" .Range("I91").Value = "Reduced 4%" Set A2 = Range("I174") Dim A3 .Range("I5").Value = "Low" .Range("I91").Value = "Current" Set […]

VBA公式创build使用variables的名称而不是值: 我试图创build一个代码，这将允许我从一个名为“原始数据”的工作表拉平6行的平均值，并将其转储到另一个工作表中的单元格中，然后从“原始数据' 等等。 EG平均值（“RawData”！A1：A6）然后平均（“原始数据”！A7：A12）在新表A2中等等到目前为止，我已经设法使代码循环以我想要的方式，但我无法在新的工作表A1和A2中写入实际的公式。到目前为止我已经尝试过： Dim address13 As String address13 = "'Raw Data'" & "!" & Cells(start_row, RPM1300).Address & ":" & _ Cells(end_row, RPM1300).Address ActiveCell.Offset(0, -4).Select '1300 ActiveCell.Formula = "=Average(""" & address13 & """)" 然而，这返回正确的公式，但与“”周围 – 使其无用。我也试过了： Sheets("Raw Data").Select Dim address9 As Range Set address9 = Range(Cells(start_row, RPM900).Address(), Cells(end_row, RPM900).Address()) Sheets("New […]

VBA Vlookup可变图纸名称: 我有一个工作簿，我在单元格D3中具有以下公式。 “= VLOOKUP（$ C3，'[NIGHT ROTA.xlsx] 15 '！$ A $ 5：$ I $ 32，D $ 1,0）” 源工作簿有52张，当我想要search某个工作表时，我必须手动更改工作表名称，然后运行下面的代码，使用工作表更改将其复制到工作簿中的单元格中。有没有办法将sheetname作为一个variables，我将在工作簿中的单元格中，或将从下拉列表中select？我知道我可以使用INDIRECT，但不想打开源工作簿。 Sub WeekChange() Range("D3").Select Selection.Copy Range("D3:I26").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select End Sub