Tag: 范围

如何使用C＃填充颜色相同的单元格A1：A5和B1：B5和C1：C5？: 我正在使用下面的代码来填充范围A1到A5，B1到B5，与黄色的单元格： chartRange1 = xlWorkSheet.get_Range("A1", "A5"); chartRange1.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Yellow); Excel.Range chartRange2; chartRange2 = xlWorkSheet.get_Range("B1", "B5"); chartRange2.Interior.Color= System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Yellow); 但是它需要2个chartRange对象才能做到这一点。如果我想要在广泛的单元格上设置相同的颜色，该怎么办？有没有办法做到这一点使用单一的语句，为更大范围的单元格设置相同的颜色？

在VBA中将variables连接到string以设置范围: 我有一个特定的代码行的问题： ActiveSheet.Range("A" & rowCount & ":" & Mid(alphabet, totHdrLngth, 1) & belowRowCount) 字母是包含大写字母A到Z的string。我不断收到以下错误： Run-time error '5': Invalid Procedure call or argument 我试图创build一个string“inRange”，并将代码更改为： inRange = "A" & rowCount & ":" & Mid(alphabet, totHdrLngth, 1) & belowRowCount curRange = ActiveSheet.Range(inRange) 但是这没有帮助（因为我认为不会）。有什么build议么？

VBA Excel – 从另一个工作簿读取数据: 所以我只是试图从另一个工作簿中的单元格中调用数据，但是我的代码只是返回“#name？” 当我使用“细胞（3,3）”。 Cells(1, 1).Formula = "='\\Drcs8570168\shasad\[CR Status.xlsx]Sheet1'!cells(3,3)" 但是，如果我这样写，这是行不通的 Cells(1, 1).Formula = "='\\Drcs8570168\shasad\[CR Status.xlsx]Sheet1'!c3" 有人能告诉我为什么吗？问题是我需要使用像cells（）这样的东西，以便我可以通过多个单元格运行这个值并将值赋给一个数组。有人可以帮我吗？谢谢！

如何在Excel中获取dynamic范围列参考:): 我在Excel工作表中有一个dynamic范围。 DATA_TABLE =OFFSET(DATA!$B$3,0,0,COUNTA(DATA!$B:$B)-1,0) 我想获得第三个整列数组的引用来查找它的值。 :)我怎么能得到这个？ =VLOOKUP("Some_value_here",COLUMN(DATA_TABLE -s third column here ),1,) ?????? 我怎样才能做到这一点？ 🙂 谢谢：）

范围乘法VB.NET（这个代码有什么问题？）: （VB Express等级：初学者）我想要做下面的事情，工作簿1中的一列一个 b C d Workbook2中的一列 Ë F G H 输出到单个单元格 AE + BF + CG + DH （输出是一个Sumproduct。）工作簿1中有44行，工作簿2中有44行。但是，工作簿1中有3列，工作簿2中有104列。工作簿3中的每列必须与工作簿2中的104列相乘。以下是我的努力，它在一列的所有单元格中写入相同的值。我的理解是我的for循环是错误的地方。但我无法弄清楚什么是错的。 'link to workbooks oWB5 = oXL5.Workbooks.Open("D:\1.xlsx") oWB6 = oXL6.Workbooks.Open("D:\2.xlsx") oWB7 = oXL7.Workbooks.Open("D:\outputs.xlsx") 'link to worksheets oSheet5 = oWB5.Worksheets("Inputs") oSheet6 = oWB6.Worksheets("Coef") oSheet7 = oWB7.Worksheets("Sheet1") ' ranges to be considerd, […]

Excel VBA：运行时错误'438'对象不支持此属性或方法: 请帮助debugging：运行时错误“438”对象不支持此属性或方法我不知道为什么我的Function ConvertToStdDateFormat（InputRange As Range）不接受范围'ThisRange' 这是我的input看起来像 201301 201401 201301 201401 201302 201402 201302 201402 201303 201403 201303 201403 201304 201404 201304 201404 201305 201405 201305 201405 下面是代码 Sub trythis() Dim ThisRange As Range Dim MonthYear_array As Variant start_date_row = 1 end_date_row = 12 With ActiveSheet Set ThisRange = .Range(Cells(start_date_row, 1), Cells(end_date_row, 2)) MonthYear_array = .Range(Cells(start_date_row, […]

Excel / VBA – 遍历范围: 我有以下代码： TotalCount = Application.Sum(Worksheets("Data").Range("B14:G14")) Sheets("Data").Range("H14") = TotalCount TotalCount = Application.Sum(Worksheets("Data").Range("B13:G13")) Sheets("Data").Range("H13") = TotalCount TotalCount = Application.Sum(Worksheets("Data").Range("B12:G12")) Sheets("Data").Range("H12") = TotalCount TotalCount = Application.Sum(Worksheets("Data").Range("B11:G11")) Sheets("Data").Range("H11") = TotalCount 正如你所看到的…这不是很有效。问题是，我无法find一个循环的解决scheme，使其更好。当我尝试创build一个循环，我要么得到的结果，我不期望或它不工作。我正处于需要帮助的地步…帮助！并提前谢谢你。

在VBA中将variablesRange从一个纯粹复制到另一个范围: 我试图估计Excel表格的范围，然后将其从一个表格复制到另一个表格。我已经用下面的代码成功地估计了表的LastRow和LastColumn。 Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets("Sheet1") 'Ctrl + Shift + End LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row LastColumn = sht.Cells(7, sht.Columns.Count).End(xlToLeft).Column 我现在如何复制这个范围并粘贴到另一个表格？起始单元格也是以stringforms存储的input。任何帮助表示赞赏。谢谢！

VBA错误424，使用“.Value”属性将值写入单元格: 我是一个VBA新手，仍然混淆了使用/不带.Value属性的variables之间的区别。从我可以告诉，为了写一个单元格的值，你必须使用Range对象的.Value属性？当试图将variablespos1和pos2写入到这个子函数底部附近的特定单元格时，我得到一个错误424。这里有什么错，有没有更好的方法来写入值的细胞？ Sub Calcs1() Sheets("Calculations").Select Sheets("Calculations").Range("P1", Range("P1").End(xlDown)).Clear Sheets("Calculations").Range("Q1", Range("Q1").End(xlDown)).Clear Sheets("Calculations").Range("R1", Range("R1").End(xlDown)).Clear Set l = Range("length") Sheets("Calculations").Range("P1") = -l Set incr = Range("incr") Application.ScreenUpdating = False Dim I As Long For I = 2 To (2 * l / incr + 1) Cells(I, 16).Value = Sheets("Calculations").Range("P1") + (I – 1) * incr Next I […]

分割范围包含多个范围到一个范围数组？: 我试图将多个范围select转换为一个范围数组。现在这是我想要的： Private Function SplitRange(ByRef r As Range) As Range() Dim i As Long Dim RangesArray() As Range Dim AddressArray() As String Dim Address As Variant i = 0 AddressArray = Split(r.Address, ",") ReDim RangesArray(UBound(AddressArray)) For Each Address In AddressArray Set RangesArray(i) = Range(Address) i = i + 1 Next Address ' It works till […]