如何在“脚本实验室”中使用变量(而不是单元格引用的硬编码值)为Office Excel外接程序设置范围。
在脚本实验室中使用变量为Office Excel外接程序设置范围，可以通过以下步骤实现：
- 首先，在脚本实验室中声明并初始化所需的变量。例如，可以使用以下代码声明一个变量并将其设置为所需的范围：
Dim rng As Range
Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")上述代码中，声明了一个名为rng的变量，并将其设置为工作簿中名为"Sheet1"的工作表的A1:B10范围。
- 接下来，可以在脚本实验室中使用这个变量rng来操作所需的范围。例如，可以使用以下代码将范围内的值相加并将结果输出到消息框中：
Dim cell As Range
Dim sum As Double
For Each cell In rng
sum = sum + cell.Value
Next cell
MsgBox "Sum of range: " & sum上述代码中，使用了一个循环来遍历rng变量所代表的范围内的每个单元格，并将其值相加得到sum变量的结果。最后，使用消息框将结果输出。
需要注意的是，上述代码中的范围设置是示例，可以根据实际需求进行修改。同时，还可以根据具体情况使用其他Excel对象模型中的属性和方法来操作所需的范围。
关于腾讯云相关产品和产品介绍链接地址，由于要求不能提及具体品牌商，建议您访问腾讯云官方网站或进行相关搜索，以获取与Excel外接程序开发相关的云计算产品和服务信息。
相关·内容
2回答
用数字值作为数字格式化单元格
vba、excel、if-statement
一个非常琐碎的问题给你照亮了很多。基本上，我试图在一个有数字值的区域中标识每个单元格，然后将其格式化为'number‘(因此忽略了那些包含字符串的单元格)。我找到了一个excel公式，它使用IF和TRUE/FALSE表达式来确定哪个单元格匹配条件，但是在运行VBA中的代码时，我似乎无法存储IF语句？
这可能是非常愚蠢，因为我是新的VBA，但会感谢所有的帮助！
代码如下：
Sub formatnumbers()
Dim rng As Range
Dim cell As Range
Set rng = ActiveSheet.Range("A1:N10")
For E
浏览 2提问于2018-05-29得票数 1
回答已采纳
2回答
在Excel中将值从单元格组合并传递给另一个单元格
vba、excel
基本上，我希望将两个单元格中的值组合起来，然后在单击按钮后在另一个新单元格中显示它。棘手的部分是每次输入新值时，它应该显示在下一行。例如，我将组合来自A1和B1的值并将其传递给C1。下次我再次输入A1和B1时，新值应该传递给C2。下面是我编写的代码：
Private Sub CommandButton2_Click()
Dim count As Integer
Dim rowNo As String
Dim val As String
Dim val2 As String
Dim sum As String
count = 1
rowNo = "C" + CStr(
浏览 2提问于2013-12-21得票数 0
回答已采纳
3回答
如何让Excel识别数字单元格？
excel、vba、cell、isnumeric
我有一个全左对齐的数字表(即Excel将它们识别为文本)
我在所有单元格上运行一个VBA脚本：
cell.value = cell.Value *1
这个右对齐将它们全部对齐，Excel将它们识别为数字，但小数除外(例如，3.14不工作，而314工作)。我还运行了一个查找和替换脚本，其中搜索的是空格(“")，并将其替换为空白(”“)，因此这至少会消除公共空间。
进一步的线索:如果我在Excel中执行=值(A1)公式，即使是小数，Excel也会识别为一个数字。如果我运行Workbookfunction.value(A1)，A1将无法识别为数字。
因此，这个问题似乎与VBA (?)还有小数
浏览 4提问于2020-03-12得票数 0
2回答
如果名称等于不同工作表上的字符串，则将值加1
excel、vba
我在试着做一些盘点。因此，当我在第二张工作表上添加某个产品的名称时，它会将该产品在第一张工作表E中的库存加1。这是为了在第二个工作表中放置一个名称列表，而不是像这里的VBA代码中尝试的那样只有一个名称。
在我完成列表之后，我应该能够清空工作表2，并且值保持保存。当我尝试这样做时，它会给出一个错误，我只是不知道如何让它遍历整个列表。
Private Sub CommandButton1_Click()
Dim x As Integer
x = Sheets("Sheet1").Cells(1, "E").Value
For Each cel
浏览 0提问于2017-08-20得票数 1
3回答
在给定的范围对象中遍历两个相同长度的单元格范围
excel、vba、loops
假设我有这样的代码：
For Each cell1 In range_vals
For Each cell2 In range_pred
If (cell1 = cell2) Then
//Do something
End If
Next cell1
Next cell2
但是我想要做的是同时遍历两个单元格范围，这个范围的长度是这样的：
For Each cell1, cell2 In range_vals, range_pred
If (cell1 = cell2) Then
//
浏览 0提问于2018-11-01得票数 5
回答已采纳
1回答
Excel VBA SUMIF超慢码
excel、vba
我的SUMIF跑得真的很慢。我的数据有14,800行和39列。
我所做的工作如下：
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
编辑以添加更多可能与SUMIF命令交互的相关代码
这可能与速度有关，所以我要提一提。我让用户从他们可能存储报表的地方打
浏览 1提问于2013-12-06得票数 0
回答已采纳
1回答
使用范围或数组进行的简单操作的不同结果
arrays、excel、vba
我使用VBA已经很长时间了，并且我对它有相当的经验。不过，有时候，他的怪念头还是让我大吃一惊.为了使文件具有一些可访问的功能，我选择了在脚本上进行每一次计算。为此，我使用一些double数据填充数组：
Dim DT01() As Double: ReDim DT01(1 To N03) As Double
Dim R As Long: R = 1: Dim N As Long: Dim P As Double
For x = 1 To N01
N = SH01.Cells(x + 4, 15).Value: P = SH01.Cells(x + 4, 14).Value
For
浏览 0提问于2018-11-29得票数 6
回答已采纳
4回答
在VBA中使用SUM()
excel、worksheet-function、vba
如果我想将工作表中的一组单元格相加，我可以使用以下公式： =SUM(Sheet1!A1:A10) 要在sub中执行此操作，我将使用： Sub example1()
Dim r As Range, v As Variant
Set r = Sheets("Sheet1").Range("A1:A10")
v = Application.WorksheetFunction.Sum(r)
End Sub 但是，如果我想将多个工作表中的单个单元格相加，我会使用以下公式： =SUM(Sheet1:Sheet38!B2) 在VBA中，这一行严重失
浏览 116提问于2016-05-28得票数 13
回答已采纳
1回答
动态命名范围/公式多久重新计算一次？
excel、vba
我给excel中的名字分配了一个公式，计算起来很慢。
假设是这样的：
Name: ImportantItems
Scope: Workbook
RefersTo: =FILTER(A1:A10000, complexCondition(A1:A10000))
我有一些VBA宏，它们在每次迭代时运行一个修改A1:A 10000的模拟，但是模拟只需要每100次迭代访问一次ImportantItems数组。如果
=FILTER(A1:A10000, complexCondition(A1:A10000))
..。在单元格中是一个正常的公式，我知道Excel会遵守它的先例(A1:A 10000)，并触
浏览 0提问于2021-06-08得票数 2
回答已采纳
1回答
Excel VBA每次在循环中插入行
excel、vba
我正在尝试构建一个VBA应用程序，该应用程序检查某个值，然后在每次找到该值时在顶部添加一行。
Sub copy()
Dim rng As Range
Dim row As Range
Dim cell As Range
Set rng = Range("B2:B10")
For Each row In rng.Rows
For Each cell In row.Cells
If cell.value = "test" Then
MsgBox "found" + cell.Address
浏览 3提问于2021-10-25得票数 0
回答已采纳
1回答
使用Excel数据在VBA中创建Word文档标题标签
excel、vba、ms-word、activexobject
我试图用VBA将Word文档报告链接到Excel数据库。我在文档中插入了各种ActiveX文本框控件。我是手动输入每一个这些文本框与独特的代码(“代码”)。其他文本框控件将根据Excel数据库中的关联数据自动填充。匹配因素将是“代码”。
运行以下代码时，将收到
运行时错误13“类型错配”
第16排(If cell.Value...)。我在VBA方面没有太多经验，但我看到了许多例子，表明Value命令应该绑定到“Range”对象。谢谢你的帮助。
Private Sub CommandButton1_Click()
Dim objExcel As New Excel.Application
D
浏览 3提问于2020-01-21得票数 0
回答已采纳
2回答
我正在寻找一个VBA代码，它将帮助我计算单元格范围内字符的编号。
如果我使用LEN的excel选项，它确实给出了特定单元格中字符的编号。
我们有什么代码能给我在一个单元格范围内的字符号吗？
表示前；A1 =“夜”，B1 =“日”C1 =“中午”
结果应该是12 (5+3+4)
有人能帮我吗
浏览 3提问于2017-07-26得票数 1
回答已采纳
3回答
Range的问题
vba、excel
为什么第二种格式的Range(Cells(),Cells())用法不起作用？
Sub start()
Dim ws As Worksheet
Dim wb As Workbook
Dim cond_rng As Range
Set ws = Application.Workbooks("ndata.xlsm").Worksheet("conditionsSheet")
' This works and selects one cell
Set cond_rng = ws.Cells(4, 1)
浏览 0提问于2015-03-18得票数 3
2回答
如何使用VBA在excel中命名动态列
excel、vba
我已经学习VBA一段时间了，但有一个问题，我一直面临着，我无法弄清楚，直到知道。
我希望能够使用VBA命名列，所以以后可以将它用作其他单元格/列中的引用列(使用索引函数)。
我知道如何命名一列是固定的。但这不是我要找的。
我的问题的示例：
本月，我将列D命名为TotalAmount。VBA代码可以是：
ActiveWorkbook.Names.Add Name:="TotalAmount", RefersToR1C1:="=Sheet1!C4"
我将使用索引函数在其他单元格中引用该列。
但是，下个月我将在列D之前添加一个新列(比如上个月的销售额)。因此，我想在下
浏览 3提问于2016-09-06得票数 1
回答已采纳
1回答
VBA调整选定范围上的注释大小，而不是整张表。
excel、vba、range
我正在使用下面的代码自动调整我的excel扩展表中的注释(注释)的大小。然而，我的工作表很大，而且代码工作得很慢。为了加快速度，我希望指定一个更小的范围来工作，因为我不需要它在整个工作表上工作。让我们说，细胞A1到B10。有人知道我是怎么做到的吗？见下面的代码
提前谢谢摇滚乐
Sub NotesResize()
Dim MyComments As Comment
Dim lArea As Long
For Each MyComments In ActiveSheet.Comments
With MyComments
.Shape.TextFrame.AutoSize = T
浏览 10提问于2022-11-02得票数 0
回答已采纳
1回答
自动下载图像列表并为其命名
windows、excel、vba、download
我有一个xls/csv图像列表：
Name image url
test.jpg http://test.com/232dd.jpg
test2.jpg http://test.com/2390j.jpg
我有大约200个these...is，有没有办法下载列表并按照xls文件中的标识命名它们？
这是我的Excel VBA：
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As L
浏览 0提问于2013-09-16得票数 0
2回答
对两个连续单元格求和的Excel VBA循环
vba、excel
我刚开始在Excel中使用VBA，在尝试创建一个循环来计算两个连续数字的和并将其输出到旁边的合并单元格时遇到了问题。数据如下所示：
Number - Sum
1 - 8
7 -
1 - 2
1 -
因此，我想遍历第一列中的数字，并将前两个数字相加(1和7将是单元格A1和A2)，并将该值返回到其右侧的合并单元格，即B1。
下面是我到目前为止所做的事情，它正确地计算了单元格A1和A2，并将8的值放入单元格B1中，但就是根本不起作用。我以前有一个循环来计算两个单独的行中的值，但是我不知道在这种情况下
浏览 12提问于2016-02-24得票数 0
3回答
用于将所选范围值设为绝对值的Excel宏或VBA
excel、vba
是否有人可以帮助我使用Excel VBA通过单个按钮将所选范围值的所有值设置为绝对值(或对范围中的每个单元格应用绝对公式)？
A B C
5.119999886 -13.06999969 -13.14000034
-5.76999998 -12.52000046 -12.78999996
-5.88000011 -13.69999981 -14.13000011
5.46999979 -12.61999989 -12.48999977
浏览 11提问于2015-07-31得票数 0
3回答
使用VBA对任何带有数字的单元格进行舍入
excel、vba、automation、rounding
我有一个不固定的数据集，它的行和列可能会有所不同。 我打算使用VBA来搜索整个数据集，并将所有包含数字的单元格舍入到指定的小数位。(或四舍五入至最接近的100或10) 我有以下代码： Sub roundthissheet()
Dim cell As Range, rng As Range
rng = Range("A1", ActiveCell.SpecialCells(xlLastCell)).Select
For Each cell In rng.cells
If cell.Value <> "" And IsNumeric(cel
浏览 27提问于2019-03-13得票数 0
1回答
一次复制两个列的前一个单元格？
vba、excel
可以同时复制两个列的单元格值(两列=字符串中的值不同)。现在我是分开做的。
1：
Do Until ActiveCell.Row >= LastRow
If Trim(ActiveCell.Offset(1, 0)) = "" Then
ActiveCell.Offset(1, 0).Value = ActiveCell
End If
ActiveCell.Offset(1, 0).Select
Loop
还有第三栏
Cells(FirstRow + 2, 2).Select
浏览 2提问于2017-03-27得票数 4
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
活动推荐
腾讯云开发者
