Tag: 范围

使用C＃的Excel范围validation: 我一直在网上看4个小时，而我却做不到。我的目标：创build一个组合，在那里我可以对我的物品进行分类，当我点击其中一个物品时，该物品将单独出现。在Excel中，容易做到，但是我不能在C＃中完成。我发现这个答案：其他话题，但我不明白“this.Controls”从哪里来。谢谢你的帮助

如何使用vba（excel）中给定范围的一部分，即范围内的某些行: 我有一个在Excel中引用表的范围。我需要创build一个图表，因此使用我的表格范围设置源数据。我希望源数据是我的表的第一行和最后两行（标题和总共2行）。假设范围是用variables形成的，是否有select任何给定范围的那些部分的方法（假定范围由三行或更多行组成）。这是我的代码到目前为止： Sub addchart(ByVal TableRange As Range, SheetName As Worksheet, TblLabel As String, TableLabel As String) Dim ChtPosition As Range Dim ChtRow As Long Dim ChtSourceData As Range Set ChtSourceData = Union(Top row of TableRange here, Last 2 rows of TableRange here) ChtRow = SheetName.Cells(SheetName.Rows.Count, "B").End(xlUp).Row + 2 ChtPosition = SheetName.Cells(ChtRow, 2) […]

VBA将使用的范围复制到文本文件: 我想在VBA中运行一个代码，执行以下操作：复制名为“Kommentar”的表单的已用范围在与ThisWorkbook相同的目录中创build一个“.txt”文件（“Kommentar.txt”）粘贴以前复制的使用范围保存“.txt”文件我到现在为止是： Sub CreateAfile() Dim pth As String pth = ThisWorkbook.path Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") Dim a As Object Set a = fs.CreateTextFile(pth & "\Kommentar.txt", True) Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Kommentar") Dim rng As Range Set rng = sh.UsedRange a.WriteLine (rng) a.Close End Sub […]

将多个不连续的范围组合成一个指定的范围来清理公式: 我有一个公式，我使用哪个工作得很好，但我想清理它。 =SUMIF(IB02R, A56, IB02P)+SUMIF(IB03R, A56, IB03P)+SUMIF(IB04R, A56, IB04P) IB02R ， IB03R ， IB04R和IB02P ， IB03P ， IB04P是我在名称pipe理器中定义的范围。他们看整行。 IB02R查看另一张纸的B4-ND4 IB02P查看另一张纸的B5-ND5 等等。这是原来的公式： =SUMIF('2014'!$A$4:$ND$4,A75,'2014'!$A$5:$ND$5)+SUMIF('2014'!$A$7:$ND$7,A75,'2014'!$A$8:$ND$8)+SUMIF('2014'!$A$10:$ND$10,A75,'2014'!$A$11:$ND$11) 我想简化这个结合所有的R和P的，而不是有3 sumif陈述我可以有=SUMIF(IB0234R, A56, IB0234P) 。 IB0234R和IB0234P是IB0234R等内包含的范围。该公式是查找特定单元格与3个不同行中的每个单元格之间的匹配。第4,7和10行如果在这些行的任何地方有一个匹配，那么分别在行5,8和11中总结相应的值。我的两个公式都适用，但为了可读性和清晰度，我想简化。这可能吗？我尝试了几种不同的方法来取得成功。

将选定的范围复制到另一个工作表: 我正在使用下面的代码，我试图改变，以免使用.select Selection.Select ' from active worksheet Selection.Copy Sheets("Purch Req").Select Range("A1").Select ActiveSheet.Paste 我已经尝试使用这个，但没有输出到其他工作表。 Dim src2Range As Range, dest2Range As Range Set src2Range = Selection 'source from selected range Set dest2Range = Sheets("Purch Req").Range("A1").Resize(src2Range.Rows.Count, src2Range.Columns.Count) ' destination range _ 'in Purch req worksheet

如何find一个范围是否包含在另一个范围内？ VBA: 我有一个比较两个范围的问题。为了简单起见，我将采取两个简单的范围M6:M10和M6:M8 ，我想知道第二个是否包含在第一个中，而我要写的第一个东西 Sub example() Dim range1, range2, inte As range Set range1 = range("M6:M10") Set range2 = range("M6:M8") Set intersec = Intersect(range1, range2) If intersec = range2 Then [if statement] End If End Sub 但是这个过程返回给我下面的错误： PRB: Error 13 (Type Mismatch) & Error 3061 w/ SQL Queries 所以，也许我不能用这种方法“相交”…任何提示如何testing范围的包含？非常感谢你！

范围（单元格（…工作不正确: 我在excel中使用的VBA范围有点问题： dim frameRefPoint As String frameRefPoint = "4,4" range(Cells(frameRefPoint).Offset(0,0), Cells(frameRefPoint).Offset(7, 7)).Interior … 这不是我所期望的。我认为指定Range(Cells(4,4).Offset(0,0))中的第一个单元格应该是“D4”，但是当我在代码中使用该范围时，范围的第一个单元格是“D1 “〜细胞（1,4）。单元格的地址属性（frameRefPoint）返回$ D $ 1。我在这里错过了什么？

如何传入VLookup函数的Range参数？: 我在VBA下面有两个函数。 abb00工作正常，但abb11没有。我的问题是如何传递一个Rangevariables作为VLookup函数的参数？ Function abb00() 'demo func abb00 = Application.WorksheetFunction.VLookup("a", _ Worksheets("SheetCache").Range("A:B"), 2, False) End Function Function abb11() 'demo func rangeVar = Worksheets("SheetCache").Range("A:B") abb11 = Application.WorksheetFunction.VLookup("a", rangeVar, 2, False) End Function

VBA方法'范围对象'_Worksheet范围声明中使用的失败variables: 我收到以下错误消息： Method range of object _worksheet failed尝试在使用variables作为范围长度在Excel中select范围Method range of object _worksheet failed 。以下是我的代码片段： Private Function copyAmount(startRange As Integer, endRange As Integer) Dim startRng As String Dim endRng As String startRng = "A" & Str(startRange) endRng = "A" & Str(endRange) activateBook ("book2.xlsm") Set rng = Range(startRng, endRng) Workbooks("book2.xlsm").Sheets(1).Range(rng).Select Selection.Copy activateBook ("Book1.xlsm") Range("D3").Select Selection.PasteSpecial Paste:=xlPasteValues, _ […]

在excel vba的特定表格中select范围: 我有一个关于使用excel vba在特定工作表中select一个范围的问题。我不知道为什么以下不工作： Thisworkbook.Sheets("N&A").Range("B4:F16").select 但是这个工作： Thisworkbook.Sheets("N&A").Activate ActiveSheet.Range("B4:F16").Select VBA代码在“N＆A”表单上编程。谁能让我知道可能是什么原因？谢谢！