Tag: 范围

Excel VBA – 自动筛选的行数总是返回1: 我目前使用自动filter来筛选两列。如果自动筛选的结果仅对可见单元格为空，则会添加一个新行。如果find除标题以外的任何行，则将显示一个MsgBox。问题是行数总是返回1.我试过重新定义“rng”几个方法无济于事。 Dim ws As Worksheet Dim rng As Range Set ws = Sheets("Scored Items") Worksheets("Scored Items").Activate ws.AutoFilterMode = False With ws .Range("A:D").AutoFilter Field:=1, Criteria1:=AssetBox.Text .Range("A:D").AutoFilter Field:=4, Criteria1:=PartBox.Text Set rng = .Range("A:A").SpecialCells(xlCellTypeVisible) If (rng.Rows.Count = 1) Then 'Add new row based on VBA form Else MsgBox "Item has already been scored" End If […]

在Excel中searchdate范围内的date: 我正在努力寻找一个公式或macros，这将帮助我在两个date的范围内find一个特定的date。我尝试了一些不同的东西，但是我已经空了。有没有解决方法？我有3个datestring，我正在查看是否第三个date落在范围内。恩。 date范围是var1 5/1/17到var2 5/7/17，我期待看到var3 5/5/17是否属于那个星期。如果为true，则输出true，否则输出false。提前致谢！

我如何使用excel vba中的模块函数将值设置为范围？: 我想在Excel VBA模块中做一个简单的函数，所以我可以在Excel中使用它作为自定义函数。（我使用Excel 2003或2007，这没关系）我在一个新的工作簿中创build一个函数（！），如下所示： Function a() Sheets(1).Range("A1").Value = 4 end function 但是当我尝试在sheet1上使用它，它不会工作！我尝试了很多东西。我怎么做这个工作（没有解决方法，我想用它作为一个自定义函数）？请帮忙。谢谢，gadym

如何从一个范围内只复制excel vba中的值？: 我试图将表中的值复制到一个范围，在Excel中使用VBAmacros，但我不希望表格格式，只有它的值。我怎样才能做到这一点？这是代码的一部分： 'Source range Set r = Sheets("Sheet1").Range("Table1") 'Destination range Set dest = Range(.Cells(linhaAtual, 1), .Cells(linhaAtual + r.Rows.Count – 1, 5)) r.Copy Destination:= dest

循环遍历单元格，在VBA中构build一个范围: 我正在寻找循环通过单元格，并build立一个graphics的范围。我的主要问题是，我不知道如何将“我”纳入范围。例： Dim name As String Dim newChart as Chart Dim i as Integer Set newChart = Charts.add For i = 1 To 20 accName = Range("C" & i).Value 'I understand why this works. With newChart .ChartType = xlColumnClustered .SeriesCollection.NewSeries .SeriesCollection(1).Name = accName .SeriesCollection(1).Values = wb.Worksheets("Summary-Account").Range("E&i:G&i, I&i:K&i, M&i:O&i, Q&i:S&i") 'How can I get this […]

范围 – 如何从laravel excel导入返回错误？: 我使用Maatwebsite / Laravel-Excel将一些数据导入到我的laravel应用程序中。我循环了excel的行，validation数据，然后保存它，但是如果我有一个validation错误，我想从Excel :: load（）函数外部返回$ errorvariables。可能吗？ public function import() { Excel::load(Input::file('excelFile'), function ($reader) { foreach ($reader->toArray() as $row) { if($everythingOK){ //do stuff } else { $errors[] = 'error'; } } }); return $errors; }

将标题和范围从一个表格复制到另一个表格: 我试图复制一个标题和一组数据到一个新的工作表进行打印。虽然我可以复制数据罚款列宽度丢失，运行autofit它再次打破了页面。最初devise页面时，手动设置列宽。目前我有： Dim tmp As Worksheet Set tmp = Sheets.Add(after:=ActiveSheet) RD.Copy tmp.Range("A1") ' Range data (set elsewhere) RH.Copy tmp.Range("A1") ' Range header (set elsewhere) 我试过使用xlPasteSpecial和xlPasteAll，但是在使用剪贴板时他们没有任何区别。我需要做什么来复制表单中的单元格宽度？

在Excel中设置范围时，VBA失败: 使用来自MSDN的示例，我试图在Excel 2007中设置一个单元格的值。下面是我采取的步骤：在Excel选项中，select“ Enable all Macro's和“ Trust access to VBA object model 。创build一个新的Excel工作簿。添加一个新的VBA模块。插入以下function： Function MyTest(rg As Range) rg.Value = 1 MyTest = 1234 End Function 将公式=MyTest(B1)到A1的单元格中。当MyTest的第一行被执行时，debugging器简单的失败。没有任何错误，它会停止debugging并显示#VALUE! 在A1。 B1保持空着。我试过设置.Formula而不是.Value 。我试过使用ActiveSheet和Worksheets["Sheet1"]来访问Worksheets。什么可能是这个错误的原因？

Excel VBA将单元格值设置为公式: 嗨每个人我都有一些在Excel VBA的硬代码，将设置一个给定的单元格值=一个公式，我有多行代码，这是为每个单元格值，但更改公式，以查看其特定列下。所以我的问题是，是否有任何方法来编写1行以下的东西，以便该公式将自动更改它所看到的列取决于实际在其中的列。 Sheets("Standalone Non Clustered").Range("G10").Formula = "=CEILING(Worksheet!$G$9*(1+Worksheet!$G$10+Info!$B$14),5)" Sheets("Standalone Non Clustered").Range("H10").Formula = "=CEILING(Worksheet!$H$9*(1+Worksheet!$H$10+Info!$B$14),5)" Sheets("Standalone Non Clustered").Range("I10").Formula = "=CEILING(Worksheet!$I$9*(1+Worksheet!$I$10+Info!$B$14),5)" Sheets("Standalone Non Clustered").Range("J10").Formula = "=CEILING(Worksheet!$J$9*(1+Worksheet!$J$10+Info!$B$14),5)" Sheets("Standalone Non Clustered").Range("K10").Formula = "=CEILING(Worksheet!$K$9*(1+Worksheet!$K$10+Info!$B$14),5)" Sheets("Standalone Non Clustered").Range("L10").Formula = "=CEILING(Worksheet!$L$9*(1+Worksheet!$L$10+Info!$B$14),5)" Sheets("Standalone Non Clustered").Range("M10").Formula = "=CEILING(Worksheet!$M$9*(1+Worksheet!$M$10+Info!$B$14),5)" Sheets("Standalone Non Clustered").Range("N10").Formula = "=CEILING(Worksheet!$N$9*(1+Worksheet!$N$10+Info!$B$14),5)" Sheets("Standalone Non Clustered").Range("O10").Formula = "=CEILING(Worksheet!$O$9*(1+Worksheet!$O$10+Info!$B$14),5)" Sheets("Standalone Non Clustered").Range("P10").Formula = "=CEILING(Worksheet!$P$9*(1+Worksheet!$P$10+Info!$B$14),5)" 看看每个范围是如何从G到P的字母表，每行的公式都是针对G到P列进行调整的。是否有一种方法可以为Range（“G10：P10”）添加一行，并根据其实际在电子表格中的列进行公式更改？ […]

对象'_Worksheet'的方法'Range'失败 – 命名范围并在VBA中引用它: 在一个macros中，我试图select一个范围，命名它，然后在自动过滤数据时引用该范围。这是我的代码： 'Select and name range Set bDataDump = ActiveWorkbook Set DataDump = bDataDump.Sheets(1) DataDump.Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Selection.AutoFilter Range(Selection, Selection.End(xlDown)).Select Set myrange = Selection 'AutoFilter that range for everything but PDC1 and delete visible rows 'Code fails on next line DataDump.Range("myrange").AutoFilter field:=11, Criteria1:="<>""PDC1""" ActiveCell.Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Delete DataDump.ShowAllData 当我运行macros时，我得到了对象“_Worksheet”失败的“方法范围”，debugging器突出显示了第二块代码的第一行作为罪魁祸首。我一直没能在这样的过滤数据网上find任何例子，所以我希望有任何的洞察力，我做错了什么。谢谢！