开发者社区

文档建议反馈控制台

最新优惠活动

文章/答案/技术大牛

发布

VBA函数中的ReDim无效

是指在使用VBA编程时，使用ReDim语句重新定义数组大小时，该语句无法正常工作或产生预期的效果。

ReDim语句用于在运行时更改数组的大小。它可以用于调整数组的维数和大小。然而，当ReDim语句无效时，可能会出现以下几种情况：

语法错误：在使用ReDim语句时，可能会出现语法错误，例如拼写错误、缺少必需的参数等。在这种情况下，需要仔细检查代码并修复语法错误。
无效的数组变量：在使用ReDim语句之前，必须先声明数组变量。如果没有正确声明数组变量或者变量名称拼写错误，ReDim语句将无法正常工作。确保在使用ReDim语句之前正确声明和初始化数组变量。
无效的数组维数：ReDim语句可以用于调整数组的维数。如果尝试调整的维数无效或超出了VBA的限制，ReDim语句将无效。在这种情况下，需要检查代码中的维数设置，并确保其有效。
保留数据丢失：在使用ReDim语句重新定义数组大小时，原始数组中的数据将丢失。如果需要保留原始数据，可以使用Preserve关键字。例如，可以使用ReDim Preserve语句来调整数组大小并保留原始数据。

总之，当VBA函数中的ReDim无效时，需要仔细检查代码中的语法错误、数组变量的声明和初始化、数组维数的设置以及是否需要保留原始数据。如果问题仍然存在，可能需要进一步调试和排查代码中的其他问题。

腾讯云相关产品和产品介绍链接地址：

腾讯云函数（云原生）：腾讯云函数是一种事件驱动的无服务器计算服务，可帮助您构建和运行云端应用程序，无需管理服务器。了解更多信息，请访问：https://cloud.tencent.com/product/scf
腾讯云数据库（数据库）：腾讯云数据库提供多种数据库产品，包括云数据库MySQL、云数据库MariaDB、云数据库SQL Server等。了解更多信息，请访问：https://cloud.tencent.com/product/cdb
腾讯云CDN（网络通信）：腾讯云CDN是一种内容分发网络服务，可加速网站内容传输，提高用户访问速度。了解更多信息，请访问：https://cloud.tencent.com/product/cdn
腾讯云安全产品（网络安全）：腾讯云提供多种安全产品，包括Web应用防火墙（WAF）、DDoS防护等，帮助保护云上应用和数据的安全。了解更多信息，请访问：https://cloud.tencent.com/solution/security

页面内容是否对你有帮助？

有帮助

没帮助

相关·内容

VBA解压缩ZIP文件04——解析ZIP文件结构

的起始位置在zip文件中的位置）。...File Header在文件中的起始位置。...（Zip文件中全部Central Directory的总数量）以及OffsetOfCD（第一条Central directory的起始位置在zip文件中的位置），就能够正确的读取所有文件的CentralDirectoryHeader...lfh.ExtraField = b ' VBA.StrConv(b, vbUnicode) End If End Function 04 Parse函数最后Parse函数调用以上几个结构的解析函数即可...zip文件中的位置） ret = parseEOCD() If VBA.Len(ret) Then Parse = ret Exit Function

3.2K2 0

VBA数组的排序_vba函数返回值数组

大家好，又见面了，我是你们的朋友全栈君。我们平时用的表格排序，只相对来说是在在表格中的升序降序。今天就好奇如果数组中实现排序他是怎么实现的呢。...它的工作原理是：第一次从待排序的数据元素中选出最小（或最大）的一个元素，存放在序列的起始位置，然后再从剩余的未排序元素中寻找到最小（大）元素，然后放到已排序的序列的末尾。...以此类推，直到全部待排序的数据元素的个数为零。选择排序是不稳定的排序方法。...），另一种MinIndex = i ：（在最小值的后面没有找到比当前值的再小的）。...2、对每一对相邻元素做同样的工作，从开始第一对到结尾的最后一对。在这一点，最后的元素应该会是最大的数。 3、针对所有的元素重复以上的步骤，除了最后一个。

3.4K4 0

简谈VBA的Split函数

标签：VBA，Split函数 Excel VBA提供了一种自定义的方式来拆分单元格中的文本，即Split函数，这在需要将单元格的内容拆分为许多部分时非常有用。...Split函数的语法如下： Split(string,delimiter,limit,compare) 其中，参数string，想要拆分的字符串。参数delimiter，将字符串分成段的字符。...图1 默认情况下，Split函数以空格作为分隔符来拆分字符串，因此下面的语句作用相同： arr=Split(str, “ “) 省略最后两个参数（limit和compare，因为它们是可选的）。...End If Next i Range(Cells(1, 1), Cells(1, UBound(var, 2))) = var End Sub 运行上述过程后，将在单元格区域A1:D1中输入拆分后的字符串...如果想在单元格区域A1:A4中输入拆分后的字符串，可以使用语句： Range(“A1:A” & UBound(var,2))=Application.Transpose(var)

3K5 0

示例详解VBA的Split函数

标签：VBA，Split函数使用VBA时，有可能需要根据分隔符将字符串拆分为不同的部分。此时，就可以使用VBA的Split函数。...图1 在本示例中，只指定了第一个参数，即要拆分的文本。由于未指定分隔符，因此将空格字符作为默认分隔符。注意：VBA Split函数返回索引基于0开始的数组。...示例2：统计句子中的单词数可以使用Split函数来获取一个句子中的单词总数，也就是计算拆分文本得到的数组中的元素数。...可以使用类似的代码在VBA中创建一个自定义函数，该函数将文本作为输入并返回单词数。...图6 示例5：获取文本中指定的字符串使用VBA中的Split函数，可以指定要使用结果数组的哪个部分。下面是一个自定义函数的代码，可以在其中指定一个数字，它将从数组中返回该元素。

7.5K2 0

VBA编写Ribbon Custom UI编辑器05——转换结构体XML

同时还需要一个相反的函数，Excel单元格数据转换为XML结构体。...As String Dim tmp() As String rows = UBound(arr, 1) cols = UBound(arr, 2) ReDim...result(rows - 1 - 1) As String '第一行是标题 ReDim tmp(cols - 1) As String '记录属性的值，HasChild在B列，是不需要的，多出的一个最后放...(arr(i, 1)) 'xmlItem '/*这种表示的是一个具有子元素的元素的结束 If VBA.Left$(VBA.CStr(arr(i, 1)), 1) = "/...(arr(i, j)) '不为空的时候设置属性值 If VBA.Len(value) Then tmp(j - 2) =

9023 0

创建MyVBA加载宏

这里使用的是动态dynamicMenu，通过回调函数dymOpenAddins_getContent查找同一文件夹下所有的宏文件，dymOpenAddins_getContent代码： Sub dymOpenAddins_getContent...的临时文件 If VBA.InStr(RetFiles(i), "~$") = 0 Then '取出文件名称...VBA.Left$(fn, Len(fn) - 5) '生成Ribbon的xml代码 RetFiles(icount)...Preserve RetFiles(icount - 1) As String '通过回调函数的参数返回xml代码 content = "<menu xmlns=""http...) Workbooks.Open control.Tag, False End Sub ScanDir是一个比较常用的查找遍历函数，个人创建了一个VBAProject文件夹专门存储这一类文件，把它当作包来管理

1K2 0

VBA一维数组转二维数组

在实际的VBA代码中，我们经常会使用一些一维的数组进行数据处理，处理好之后需要写入到单元格中，这个时候一般是希望写入到多行单列中，但是多行单列的单元格只能接受二维的数组。...(tmp(1, 1))) End Sub 输出： 35E770 35E75C 1EF90C20 1EF8BE40 Transpose函数转换后的数组地址与原数组地址、以及第一个数据的地址已经不一样了...，说明函数重新开辟了内存空间，复制了数据。...一维数组与一个多行单列二维数组的数据，在内存中的排列显然是一样的，所以，只要理解数组的底层类型，将一维数组转变为一个多行单列的二维数组就很简单了，只需要改变一下SafeArray就可以，不需要重新复制数据...SafeArray只有1个rgsabound，而二维数组需要2个rgsabound，所以为了避免操作到其他的内存地址，程序使用了一个临时的2维数组ReDim tmp(0, 0) As Variant，直接改写的是

2.2K0 0

Excel VBA解读（137）：让使用用户定义函数的数组公式更快

可以将VBA用户定义函数所花费的时间分成下列组成部分：调用用户定义函数的开销时间。用户定义函数获取将要使用的数据的时间。执行计算的时间。返回结果的开销时间。...每次的VBA读写调用都有相当大的开销，因此一次读取和写入大块数据通常要快得多。因此，应该让VBA用户定义函数在单个块中尽可能多地读取数据并将数据尽可能大地返回到Excel。...我们沿用《Excel VBA解读（133）：编写高效的Function过程——让代码运行更快的技术》中的示例，创建自定义函数的数组版本AverageTolE函数，功能是找到除多个误差之外的数据的平均值。...假设：这些误差值全在一行中；数据和误差值都以单元格区域提供给函数；忽略错误处理；函数返回与误差行对应的结果。...小结： 1.在许多实际的例子中，使用多单元格数组的用户定义函数可能是最快的计算方法。 2.将通常的用户定义函数转换成多单元格数组用户定义函数很简单。

3.4K2 0

VBA多维数组转一维数组

在VBA中，join函数可以快速的将一个String类型的数组连接成一个字符串，用的还比较多。...但是这个函数只支持将一维的数组进行连接，如果碰到多维数组的情况，一般都是先用For循环将数组转换为一维的，然后再使用join函数。...在数据类型Array中，我们知道了数组的底层结构，其中cDims就是指明数组维度的，那么，我们只需要通过修改内存中cDims的值，以及SafeArray中rgsabound记录的元素的个数，那么就可以实现将多维的数组转换为一维数组...Dim arr() As String ReDim arr(1, 2, 3) As String VBA.Randomize Dim i As Long...(i, "x0") & VBA.Format(j, "\y0") & VBA.Format(j, "z0=") & VBA.Format(VBA.Rnd() * 100, "0")

2.3K2 0

Excel中的无效链接(1)

打开Excel文件的时候，时常会遇到说外部链接无效的警告。无效链接大致有这么几种方式，有的很好解决，有的可就有些费神了。...自定义的名字函数、数式的参照粘贴过来的link 指向图形（文本框等）、cell的link 图表透视表这里说第一种的解决方法。...image.png 另外新建一个excel文件（比如叫test2.xlsx），复制test.xlsx中的下拉框cell到该文件中。比如复制到了两处，C4和G4处。...image.png 删除test.xlsx文件，再打开test2.xlsx的时候，会报【无效链接】的错误。如果这个excel内容比较多的时候，要找到哪一些cell使用了无效链接，有些许难度的。...我们可以断定是C4和G4这两个单元格使用了“河北省”，修改他们的值即可消除无效链接的错误。

2.4K1 0

常用功能加载宏——单元格数据连接

经常用Excel的人，应该会经常需要把Excel里的数据复制到Word等其他软件中，复制过去经常会碰上格式上的问题。...默认从Excel中复制的数据，（如果是复制到Word这类支持表格的软件，会复制表格过去，这个时候还可以进一步转换为文本），列与列之间是使用Tab连接，上一行与下一行是使用换行符连接。...'记录列单元格的Text ReDim arrCols(iCols - 1) As String For iRow = 0 To...Next '将列单元格的Text连接起来，并存放到arrStr中 arrStr(iRow) = VBA.Join...'复制文本到剪贴板 SetClipText str End If End Sub SetClipText函数是一个比较常用的函数，所以可以放到VBAProject

1.9K2 0

VBA Object对象的函数参数传递

VBA的函数参数传递方式是Byval和Byref，数值类型、Stirng等那些值类型的是要非常注意用哪种方式的。对于Object对象引用类型的一直都说2种方式完全没有区别。...Object对象的Byval和Byref参数真的没有区别吗？对于操作的这个Object对象来说，可以认为是没有区别，但是传递过程和其他数据类型的参数传递是一样的，遵守的规则并没有改变。...ByVal 参数传递的时候，会在内存中另外复制一份，函数操作这个副本和传递之前的那个变量已经没有了任何关系； Byref 会把参数的内存地址传递给函数，函数接收到这个是通过内存地址来读取或者改写的，操作的就是原来的变量...对于Object对象，其实我们传递的只是他的指针，也就是VarPtr得到的那个数字，是指向Object所在内存的地址。...可以理解为参数其实就是一个LongPtr类型，所以你是复制一份这个LongPtr类型的数字传递，还是把这个LongPtr类型所在的内存地址传递给函数，对于Object这个对象来说，是没有区别的。

3.5K2 0

在VBA中对数组排序的代码

标签：VBA 这是一段非常好的代码，来自ozgrid.com，可以使用它来快速排序VBA中的数组。代码如下： '对一维或二维数组排序....'二维数组可以通过传递适当的列编号作为sortKeys参数来指定其排序键. '函数传递一个引用，因此将对原始数组进行变异....matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid...sortCols Erase arr1 Erase arr2 Erase tmp On Error GoTo 0 sortArray = arr End Function 下面是一个如何处理包含数字的字符串排序的小演示...（可以使用自动筛选来查看默认排序与排序代码的结果对比）： Sub smartNumberSort() Dim a, i& ReDim a(1 To 500) a(1) = "Key" For i

8311 0

VBA自定义函数：在单元格区域中创建不重复的随机数

标签：VBA，自定义函数有时候，我们需要创建一组不重复的随机组，例如在指定单元格区域中创建一组不重复的随机数用于模拟数据分析。下面的一个VBA自定义函数，可用于创建指定数值范围的不重复随机数。...用于消除重复 Dim UsedSourceNo As Long '从源数组中随机选择....Exit Function End If ReDim TempArray_Source(MinValue To MaxValue, 1 To 1) ReDim TempArray_Result...Result_Index Application.ScreenUpdating = True RandomSeq = TempArray_Result End Function 要在单元格区域A1:A10000中创建从...1至10000之间的不重复随机数，调用RandomSeq函数并实现目标的代码如下： Sub RandomSeq_Example_Usage() Dim TestArray() Dim DestRange

3291 0

VBA实现排列组合（可重复）

这种时候的问题就转换为从0-9这10个数字中，选取6个数字了，个数很简单，就是10的6次方，100万个，那么如何快速的生成这100万个数字呢？...使用VBA来实现的话，最简单的方法自然是使用循环，100万个数字太大了，这里简化一下，从4个数字中选3个： Sub PLZH() Dim src(4 - 1) As String...1个位置开始逐步加1，直到>n的时候，进一位，第2位变为1，并且本身变为了0 '然后继续从0到n，继续进位，直到第2位也>n，进位，第3位变为1 '循环到m的位置>n停止 '函数返回结果的个数，-1表示出错了...Dim pp As Long ReDim p(m - 1) As Long '记录临时的数据，方便用join函数 Dim tmp() As String...For i = 0 To m - 1 tmp(i) = ArrKeysZeroBase(p(i)) Next Result(Count) = VBA.Join

2.7K2 0

VBA与数据库——写个类操作ADO_写入

Function End If Dim srcArr() As Variant srcArr = rngsrc.Value Dim rng As Range '需要插入的列对应的...Fields的下表 Dim colInsert() As Long, colInsertName() As String ReDim colInsert(UBound(srcArr, 2...Next i Dim strsql As String strsql = "insert into " + DB_Info.ActiveTable.SName + "(" + VBA.Join...1).sType) Next sqlcmd = "update " & DB_Info.ActiveTable.SName & " set " & VBA.Join...(updatefield, ",") & " where " & VBA.Join(sqlwhere, " and ") If DB_Info.db.ExecuteNonQuery(sqlcmd

9921 0

VBA实战技巧05：动态调整数组以存储所需数据

如果你想详细学习数组的相关知识，可参阅相关文章： Excel VBA解读|进阶篇（152）：数据结构——谈谈数组 Excel VBA解读|进阶篇（153）：数据结构——基本的数组操作 Excel VBA...解读|进阶篇（154）：数据结构——数组常用操作示例代码 Excel VBA解读|进阶篇（155）：数据结构——数组相关的函数 VBA进阶|数组基础01：用最浅显的介绍来帮你认识数组 VBA进阶|数组基础...方法1：预先调整数组大小在数组中存储数据之前，将数组大小调整为所要存储的数据数量。这非常适合事先知道需要存储的数据有多少的情形。...如果调整数组大小的同时，想要保留之前存储在数组中的数据，则需要使用Preserve关键字，告诉VBA在增加数组存储容量时，保留原来存储在数组中的数据。...方法3：从带有分隔符的字符串中创建数组分隔符是用于分隔数值的指定字符，例如CSV文件就是由逗号分隔的值组成的文件，我们可以将由分隔符组成的字符串拆分成数组。

3.7K2 0

VBA数据类型Array

1、VBA数组底层结构： VBA的数组在底层是SafeArray： 'https://docs.microsoft.com/zh-cn/windows/win32/api/oaidl/ns-oaidl-safearraybound...(0) As SafeArrayBound End Type 如果要取数组的地址，需要用到API函数： Public Declare Function VarPtrArray Lib "msvbvm60...像c语言这样的语言，是有指针的，VBA数组的底层实现应该是使用了一个指针来引用SafeArray结构，而VarPtrArray(Arr)获取到的应该是指针的地址。...Sub TestArray() Dim Arr() As Byte ReDim Arr(3) As Byte Dim ptr As Long '保存[Arr指针]的地址...3、ReDim Preserve做了什么我们经常会用ReDim Preserve来改变数组的容量，当然一般都是扩大。

7764 0

VBA编写Ribbon Custom UI编辑器04——解析xml

02 状态机解析要从Ribbon xml中解析元素、属性、属性的值，需要逐个去读取xml中的字符，判断状态，然后执行相应的操作。...这种需求非常的适合使用有限状态机的方法来组织代码，将每一个状态都编写成一个独立的函数，能简化代码的编写： state Char Changestate 备注 0 < 1 XML开始，初始化节点 1 非空白...XML '记录XML.Nodes的下一个位置 Private pNodeNext As Long '记录当前正在处理的Node在XML.Nodes中的Index Private pNode As Long...'记录状态 Private state As Long 'Stack中记录的是XML.Nodes的Index，方便处理父子关系 Private s As CStack 'XML文本长度 Private...strXML = sXML '解析XML，直到超过了文本长度 Do While pNext < iStrXMLLen '使用CallByName调用相应状态的函数

1.2K2 0

VBA编写Ribbon Custom UI编辑器08——实现ZIP的写入

对Office文件的写入功能，因为并没有实现ZIP的压缩功能，程序只是将数据打包放入了ZIP中，customUI.xml并没有被压缩。...：对外公开的AddFile函数： '添加一个文件到压缩包中 'FileName 需要添加的文件名称 'b 数据Byte数组 'Return 返回出错信息 Function...LFHs(i), CDHs(i), b '增加,需要更新的信息 LFHs(i).FileName = FileName LFHs(i).bFileName = VBA.StrConv...，写入数据之前，把其他的数据都读取出来 ReDim ds(UBound(FileArr)) As Datas For i = FileIndex + 1 To UBound...ds(FileIndex).b = b '修改EOCD中的偏移 tEOCD.OffsetOfCD = tEOCD.OffsetOfCD

8353 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

扫码加入开发者社群

相关资讯

热门标签

活动推荐

运营活动

活动名称

广告关闭