Tag: 范围

错误424对象所需的错误

我试图将一个单元格中的值input到数组中。 下面的代码给我一个错误424对象所需的消息。 请帮忙 feedingtypes() = wbfeedingtypes.Range("A2:A" & lrowfeedingtypes).Value

填充表格时，Range类的自动填充方法失败

我目前正在使用Excel中的项目来处理原始数据并将其放入表格中。 目前该表根据要复制到其中的数据的大小resize。 我遇到的问题是，大部分的故事都是基于数据填充公式。 我正在尝试自动填充公式到表的最后根据数据确定的大小，并得到错误“自动填充范围类的方法失败” ColNo = 26 + ((large – Year(Date)) * 4) ColLet = Split(Cells(, ColNo).Address, "$")(1) Sheets(sheetsSA).Range("V3:W4").AutoFill Destination:=Sheets(sheetsSA).Range("V3:W" & semi_end + 1) ****Sheets(sheetsSA).Range("X3:Y4").AutoFill Destination:=Sheets(sheetsSA).Range("X3:" & ColLet & semi_end + 1)**** 星号是给出问题的线。 任何援助将不胜感激。 前两行查找自动填充中使用的列的字母。 谢谢

在excel vba中创build一个范围从几个范围

我有一个matrix的工作表，它是与一个黑色的单元对angular分开。 matrix包含垂直和水平相同的标题。 这个想法是，你显示在对angular线下方的底部区域的项目之间的关系。 我想创build一个范围（matrix范围），这是该地区的底部部分。 我想要做的是为我使用的每个列创build一个范围，并将其添加到MatrixRange。 我试图结合的不同范围因此是不同的高度。 Dim MatrixRange As Range Private Sub Workbook_Open() Dim n As Integer Dim NextRange As Range Dim OldRange As Range Dim ws As Worksheet Set ws = Sheets("Systemmatrise") With ws For n = 1 To 68 Set OldRange = MatrixRange Set NextRange = .Range(Range("B9").Offset(n + 1, n), Cells(78, n + […]

如何在Excel中添加多个范围，以防止重复条目

我试图从下拉列表中停止几列中的重复条目。 我有它的第一列工作，但是当我尝试添加列C2：C9，D2：D9和E2：E9的范围我得到错误。 这是B2：B9的代码，谁能告诉我如何添加更多的范围？ 每列使用相同的列表作为条目。 这是一个简单的数字1到8的列表。我希望每列能够得分1到8，而不重复在单个列中的分数。 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B2:B9")) Is Nothing Then Exit Sub If Target.Cells.Count > 1 Then Exit Sub If WorksheetFunction.CountIf(Range("B2:B9"), Target) > 1 Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "Duplicate score. Please select a different value." End If End Sub 谢谢

如何从Microsoft.Office.Interop.Excel.Range对象的“value”属性中获取dynamictypesvariables的值

我有一个问题，当我试图从dynamictypesvariables，这是Microsoft.Office.Interop.Excel.Range对象的“值”属性的结果获得值。 这是我的场景： 我正在使用C＃，我有一个Excel文档中的这个值： 11010001 123 0 11010002 0 23 11010003 0 120 当我用control + c命令做一个副本时，我需要捕获这些值，并用它们做一些事情，这就是de Range对象返回选定值的方式： //C# Code //Get the active and open Excel var excel = Marshal.GetActiveObject("Excel.Application") as Microsoft.Office.Interop.Excel.Application; //Get the selected rows range Range range = excel.Selection as Range; //Get the values of selected rows dynamic cellValue = range.Value; 在cellValuevariables我有以下格式的值： 代码片段 所以，我的问题是，我不知道如何通过分隔得到这些值，并将它们插入我的数据库。 你能帮我一个build议或代码示例如何从dynamictypesvariables中获取这些值吗？ […]

select不同的列范围Excel VBA

所以在Excel VBA中，我试图select一个范围，但每次都select一个不同的范围。 我有一个循环，但我想知道我将如何写代码来改变范围。 这是一个单一的范围。 Range("B7").Select 有没有办法做到这一点用整数而不是string，如“B7” 即 Range(i).Select 我需要它来select一个列。 任何意见，将不胜感激。 谢谢

如何获得Epplus中的空白单元格作为范围？

我想从一个范围使用Vb.net中的epplus 4的所有空白单元格C＃使用Excel.Interop，我用这个： Dim otherCells As ExcelRange = ExcelRangeV3.SpecialCells(XlCellType.xlCellTypeBlanks) otherCells.Select() otherCells.FormulaR1C1 = "Other" 我怎样才能使用vb.net或c＃代码在Epplus 4中做同样的事情？ 任何帮助表示赞赏。

所有以前的行的Excel Countif正在停滞

我需要在公式之前的单元格之前的所有行上的匹配单元格。 我目前正在使用以下方法结合相对和绝对范围： B2: =COUNTIFS($A$1:A1;"condition") . . . BN: =COUNTIFS($A$1:AN;"condition") 然而，这种方法被certificate对于10-20k +的行数是非常严格的。 它不仅在复制行时冻结excel，而且在删除它们的时候也令我惊讶。 有没有更好的解决scheme呢？ 谢谢，米歇尔

VBA范围查找1列中显示/隐藏另一列

这个让我很生气，希望你们中的一个能告诉我我做错了什么。 我想要做的就是如果列I中的任何单元格包含值“Y”，则列J被隐藏。 如果您从任何单元格中删除Y，则J列再次出现。 这是我的代码： Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Set rng = Range("I:I") Set cell = rng.Find(What:="Y") If cell Is Nothing Then Columns("J").EntireColumn.Hidden = True Else Columns("J").EntireColumn.Hidden = False End If End Sub 基本上，代码完全没有。 这让我更难过，因为我不知道我做错了什么。

为每个dynamic范围创build小计行

所以我有这种XML格式的数据，我使用macros来使它看起来很花哨，并基于这组数据将其分解成dynamic范围。 我想要什么，不能为我的生活弄明白，是每个dynamic部分得到一个小计行。 当我写出来的时候，它就开始出现在我的面前，但是我不能正确地得到代码。 列将始终是B：H，每个部分都有一行，其中包含“材质”一词，而不包含其他任何内容。 下面是运行macros后我的数据如何的截图。 我想要的是在每个部分下面的蓝线，从C：G合并，在其中有小计，然后在H中的实际小计金额。可以有任何地方从1节太多。 这是我想要的样子。 我想我可以通过查找材料然后xlToRight和xlDown声明dynamic范围variables。 那么对于每一个可能？ 我还在学习，所以非常感谢您的帮助！ 请让我知道，如果你需要我更多的信息！ UPDATE！ 这是我迄今为止设法完成的。 但是，我在Rng = Range行出现错误“对象variables或块variables未设置”。 theWord = Cells.Find(What:="Materials", After:=ActiveCell, _ LookIn:+xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ True, SearchFormat:=False).Activate Selection.End(xlDown).Offset(1, 1).Select theRng = Range(Selection, Selection.Offset(0, 4)).Select For Each Item In theRng Item.Select With Selection .MergeCells = True .Font.Size = 14 .Font.Color = vbWhite […]