Tag: 工作表

Vb.net – searchExcel文件的值: 我有几个combobox的表单。第一个combobox添加基于Excel表中每一行的项目。 Public Sub FetchExcelValues(ByVal ControlType As String, ByVal control As Object, ByVal xlApp As Object, ByVal xlWorkBook As Object, ByVal xlWorkSheet As Object, ByVal column As String, ByVal row As Integer) Dim iTeller = row Dim tekst As String Do tekst = xlWorkSheet.Cells(iTeller, column).Value If tekst <> "" Then If ControlType = "Tekstboks" Then […]

Excel – 通过一列查找文本是否匹配，然后添加相应的单元格: 我想从1工作表中添加值到另一个。第一个工作表（“2011年11月”）只包含名称和价格，但名称重复，并且需要在第二个工作表（“销售”）上添加总和。例如“2011年11月” AB 1 Name Price 2 McDonalds 10 3 McDonalds 10 4 Burger King 20 5 Burger King 30 6 Wendys 5 7 iHop 20 8 iHop 15 第二个工作表（“销售”）只包含两列，即名称和价格。但是，名称已删除重复项。例如“销售” AB 1 Name Price 2 McDonalds 3 Burger King 4 Wendys 5 iHop 我需要一个公式将第一张工作表“2011年11月”的总计加到第二张工作表“销售”的价格上。我已经使用这个公式= IF（ISNUMBER（SEARCH（A2，Sales！A1：A8）），'November 2011'！D2，“），但它只匹配单行的文本。我想要的是这样一个公式： “销售” AB 1 Name […]

如何自动阅读Excel单元格，并跳过重复？: 我正在处理这个Excel报告。如果没有在这里附上一个例子，有点难以解释。所以，我会尝试把它放在手动…让我们称之为工作表A： ENV SYSTEM ACTION CRQ ——————————– PROD RAC2 PATCH 12345 DEV te2ds STAGE 34672 DEV te2ds PATCH 34294 PROD PRAC5 STAGE 47382 PROD hq2/DBNAME PATCH 47389 etc…. 这只是我拥有的Excel表格的一小部分。还有另一个工作表X： SYSTEM DBNumber ——————– RAC2 30 te2ds 10 PRAC5 12 hq2 3 etc… 所以，我想要完成的是，我想要某种代码（最好是，excel公式…我怀疑在这种情况下有多大帮助）自动'进去 – >从工作表A，系统读取单元从工作表X中find这个名字 – 将DBNumber下的相对数字放到新的工作表（或者我指定的工作表）旁边的一个单元格中，放在其右侧的SYSTEM名字旁边。 – >如果系统名称/号码已被复制，则跳过该单元。是否有意义？感谢所有的投入！我真的需要一些帮助。 🙂

在另一个工作表中总计一列: 我正在寻找一个不错的公式，将间接总和一个工作表中的列的总和。我有两列的工作表1 AB Worksheet1 Worksheet2 workSheet3 我需要在列A中相应的工作表中填入列C的SUm的值因此，如果Worksheet1中列C的总和是15，我希望15显示在工作表1旁边的列B中。到目前为止，我的尝试失败了使用=SUM(INDIRECT(A54,TRUE)!C:C)

VBA：如何将计算出的解决scheme放入新的工作表中？: 我有一个非常基本的问题，但不知何故只是找不到解决scheme。我试图写一个小程序，它从工作表中获取给定的股票价格，并计算给定时间段内的移动平均值。到目前为止，这不是一个问题。我现在的问题是，我想要解决scheme，即列B中的新工作表中的移动平均数以及A列中的等同股票价格。我已经编写了代码来创build一个新的工作表，如下所示： Sub CopyToNewSheet() Selection.Copy Sheets.Add(After:=Sheets(1)).Name = "MovingAverage" ActiveSheet.Paste Application.CutCopyMode = False End Sub 这工作很好迄今。程序的下一部分现在应该是移动平均线的计算。我尝试了这一点，这也起到了作用： Sub CalculateMA(maLength As Integer) Application.ScreenUpdating = False Columns("B:B").Delete Range("B1").Value = "MA" + CStr(maLength) Range("B1").Offset(maLength, 0).Select Do While IsEmpty(Selection.Offset(0, -1)) = False Selection.Value = WorksheetFunction.Average(Range(Selection.Offset(-maLength + 1, -1), Selection.Offset(0, -1))) Selection.Offset(1, 0).Select Loop End Sub 这里的问题是，这不会将计算出来的解决scheme放到新的工作表中，而是放到旧的工作表中。 […]

循环代码失败: 我想在我的所有工作表中运行以下代码。我有大约20张。我错过了什么？ Sub Filter1() Dim wSheet As Worksheet Dim i As Long For i = 0 To ActiveWorkbook.Worksheets.Count ActiveSheet.Range("$Q$1:$Q$90").AutoFilter Field:=1, Criteria1:="<>" ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1 ActiveSheet.Select Next i End Sub

Excel VBA：保留在工作表中macros写公式，所以用户可以手动更改工作表中的公式: 我正在使用macros来生成报告。我从结构中获取信息，并用公式计算在工作表中填充单元格的各种数字。这些工作表也是在macros中创build的。我必须做些什么来确保当用户单击单元格时，用于计算单元格中填充的数字的公式将保留在单元格中？即用户可以决定在报告后更改单元格的公式。下面是我如何在函数createTS()创build新的单元格： Function createTS(ByRef index As Integer, ByRef wBStruct As wBStruct, ByRef gcBStruct As gcBStruct) As Worksheet '1) set up worksheet Set createTS = ThisWorkbook.Worksheets.Add(, ActiveSheet, 1, xlWorksheet) With createTS ThisWorkbook.VBProject.VBComponents(.CodeName).Name = cnDic(index) .Name = wBStruct.wTumorCellLine & "_" & wBStruct.wTypeBlock(index).projNum & "(" & gcBStruct.typeName & ")" End With '…lots of code… […]

将特定列有条件地复制到另一个工作表: 我有下面的例子将从工作表1复制到工作表2的特定行，如果在E列中find“是”。我需要它只复制行的特定列，是B＆C. Fund Account Amount Gain/Loss As/Of? (Y/N) 1 11111 $15,000.00 -$1.51 YES 1 22222 $32,158.52 $78.14 YES 2 123123 $1.00 $0.00 NO 码： Sub As_Of_Analysis_Sorting() Dim lr As Long, lr2 As Long, r As Long lr = Sheets("All Trades").Cells(Rows.Count, "A").End(xlUp).Row lr2 = Sheets("As-Of Trades").Cells(Rows.Count, "A").End(xlUp).Row For r = lr To 2 Step -1 If Range("E" […]

使用userformselect和删除Excel工作表: 我在网上发现这个代码，它几乎是我想要的。目前它提供了工作簿中的工作表列表（在用户表单中），然后我可以select要删除的工作表（通过checkbox），并保留未select的工作表。我希望它的工作相反，select我想保留的工作表，并删除未选中的工作表。 Option Explicit 'thanks domenic mrexcel mvp Private Sub SubmitButton_Click() Dim MyArray() As Variant Dim i As Long Dim Cnt As Long With Me.ListBox1 Cnt = 0 For i = 0 To .ListCount – 1 If .Selected(i) Then Cnt = Cnt + 1 ReDim Preserve MyArray(1 To Cnt) MyArray(Cnt) = .List(i) End If […]