使用ParamArray时ByRef参数类型不匹配
是指在使用ParamArray参数时，传递给ByRef参数的数据类型与参数声明的数据类型不匹配的情况。
ParamArray是一种特殊的参数类型，它允许在调用函数或过程时传递可变数量的参数。通过使用ParamArray，可以简化函数或过程的调用，使其更加灵活。
ByRef是一种参数传递方式，它允许在函数或过程中修改传递给参数的变量的值。通过使用ByRef，可以实现对变量的引用传递，使得函数或过程能够修改传递进来的变量的值。
当使用ParamArray时，如果传递给ByRef参数的数据类型与参数声明的数据类型不匹配，就会出现类型不匹配的错误。这是因为ByRef参数要求传递的变量与参数声明的变量具有相同的数据类型，否则无法进行正确的引用传递。
为了解决这个问题，需要确保传递给ByRef参数的数据类型与参数声明的数据类型一致。可以通过以下几种方式来解决：
- 检查传递给ByRef参数的变量的数据类型，确保与参数声明的数据类型一致。
- 如果无法确保数据类型一致，可以考虑将参数声明为ByVal而不是ByRef。ByVal参数传递的是变量的副本，而不是引用，这样就不会出现类型不匹配的错误。
- 如果需要在函数或过程中修改传递进来的变量的值，并且无法确保数据类型一致，可以考虑使用其他方式来实现对变量的修改，例如返回修改后的值或使用全局变量。
总结起来，使用ParamArray时，确保传递给ByRef参数的数据类型与参数声明的数据类型一致，或者考虑使用ByVal参数传递变量的副本来避免类型不匹配的错误。
相关·内容
1回答
如下所示，编译器在ttt()第5行给出了一个ByRef错误-->参数Data被突出显示
Option Explicit
Sub ttt()
Dim s As String: s = "M1"
Dim Data, Data2 As c_dict_Project
Set Data = GetMyData(ThisWorkbook.Sheets("test"), s)
Set Data2 = GetMyData(ThisWorkbook.Sheets("test"), s)
If SetClass(Dat
浏览 2提问于2020-07-27得票数 1
2回答
为什么我有这个错误：“参数类型ByRef不兼容”？
excel、vba、byref
我对这种语言很熟悉。好的，我正在创建一个VBA应用程序，它的目标是管理不同课程在学校中的分布。
我有这个错误，这真的“奇怪”，因为我真的不明白为什么我有这个，即使很少在网上的研究。它说“参数类型ByRef不兼容”。对于此错误，真正奇怪的是，tt只在定义变量类型时追加。但是如果我不定义类型，它是空的，它会使函数过时。HHow，我能修好吗？
Private Sub Ajouter(LBConcernee As MSForms.ListBox, Colonne As String, _
Quadrimestre As String, UEnseignement
浏览 10提问于2020-04-18得票数 0
2回答
如何在VBA子程序中引用IE.document
vba、internet-explorer、object、reference
我正在尝试从Internet Explorer中读取值，并将它们写入Excel工作表。为了保持代码的整洁，我希望将代码的某些部分放在另一个过程中。我正在努力引用IE.document。
下面是我的功能的一个简化示例(在这个示例中，ready状态被忽略)：
Sub OpenAndWriteIn()
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.navigate "http://ww
浏览 0提问于2016-10-02得票数 0
2回答
通过函数调用变量返回零
excel、vba
我用“步骤进入”来确保VBA得到正确的答案。
当我将变量调用到另一个子变量时，它返回零。
Sub ComboBox5_Change()
Call htot
Dim h As Double
TextBox4.Value = h
End Sub
Sub htot()
Call daltutil
Call cobr
Dim h As Long
Dim d As Long
Dim c As Long
h = (d + c + 0.5)
End Sub
Sub dalt
浏览 3提问于2020-11-25得票数 0
回答已采纳
1回答
VBA -下标超出范围错误崩溃Excel
arrays、vba、excel
有一段时间，我一直在研究一个Visual脚本，有一段时间我一直在展示一个奇怪的bug，而我就是找不到这个错误的根源。运行时，脚本有时工作正常，但很多时候给我一个“超出范围的子脚本”错误，它会立即崩溃Excel。
我想知道的第一件事是Excel崩溃的原因，即使脚本中有捕获错误的代码。在脚本的开头，我有一行：
On Error GoTo ErrorCatch
底部有以下几行：
ErrorCatch:
MsgBox "Error " & Err.Number & " detected - " & Err.Description _
浏览 1提问于2016-06-07得票数 2
回答已采纳
2回答
如何将参数数组ByRef与CallByName一起传递？
vba、dynamic、marshalling、pass-by-reference、callbyname
我目前正在使用CallByName动态调用方法。有几种方法，我每天都会从服务器中的一个表以及参数中找到。因此，我向CallByName发送一个参数数组，而不是param数组，因为我直到运行时才知道参数的数量。考虑到CallByName需要一个参数数组，我使用一个私有声明函数来绕过VBA定义。
Private Declare PtrSafe Function rtcCallByName Lib "VBE7.DLL" ( _
ByVal Object As Object, _
ByVal ProcName As LongPtr, _
ByVal CallType As
浏览 8提问于2016-05-25得票数 6
10回答
最佳实践: ByRef还是ByVal？在.Net中
.net、byref、byval
在ByRef和ByVal之间进行选择时，需要考虑哪些事项。
我理解这两者之间的区别，但我不完全理解ByRef是否节省了资源，或者我们是否需要在.Net环境中担心这一点。
如果功能在某种情况下无关紧要，你如何在两者之间做出决定？
浏览 1提问于2008-11-14得票数 18
回答已采纳
1回答
Access 2010 VBA Select语句
ms-access、vba、ms-access-2010、select-case
我正在尝试构建一个基于字符串比较使用特定公式的函数。
我的问题是，我得到了一个Byref论证型错配错误。
它必须与传递用于比较的字符串和公式的数字有关。有人能帮我看看吗？
Public Function MyRateCalc(rateType As String, fixedAmount As Long, minAmount As Long, rateDollar As Long, valPerc As Long, rtValue As Long) As Double
Select Case rateType
Case "A1"
浏览 2提问于2013-08-07得票数 1
回答已采纳
1回答
选项严格On和SQL存储过程可空整数的输出参数
vb.net、stored-procedures、nullable、tableadapter
在这个论坛上有几个主题非常接近于回答我的问题，但并不完全是我所需要的。
我用VB.Net编写，通过TableAdapters和存储过程检索数据。存储过程可以以可空整数的形式返回一个或多个输出参数。
这是一些我正在重新查看和整理的旧代码，包括添加选项严格On，存储过程返回一个零，它以前返回了一个正确的值。我可以回避这个问题，但我想了解一下这种情况下的“最佳做法”是什么。
这是应用选项严格之前的代码，并在两个输出参数中返回正确的值: RetVal (返回代码，定义为Enum)和UnspecifiedCategoryID (定义为整数类型)。
Using oCategoriesTableAdapte
浏览 3提问于2020-09-24得票数 2
回答已采纳
1回答
创建具有多个索引属性的类
excel、vba、class
我正在尝试创建一个具有多个属性的类，这些属性由我传递给该属性的相同编号进行索引。我尝试了几种代码配置，我最近的失败是这样的：
'dataTypeClass class module
Private ap() As String
Private dt() As String
Public Property Get apos(index As Long) As Variant
Set apos = ap(index)
End Property
Public Property Get dataType(index As Long) As Variant
Set dataType = dt
浏览 0提问于2018-12-15得票数 1
2回答
VB.NET中共享函数内的参数/参数和变量的行为
vb.net、multithreading、function、shared
好吧，我是一个新的VB.NET，将一个遗留系统转换到.NET世界。最近，我一直在审查已经存在的代码，因为我在团队中加入这个项目的时间很晚。
所以我发现在许多类中有许多共享函数(而不是共享类)。我怀疑如果两个请求(即两个不同的HTTP请求对同一个方法，因为它是一个WCF应用程序，公开的方法不是共享的，但内部调用的方法是共享的)到达同一个共享方法，并且对该方法的两个调用可能具有不同的方法参数/参数，覆盖彼此的参数，我怀疑这可能会产生一些问题。
简而言之，如果共享方法有一个将要处理的参数列表，那么在通过两个http请求多次访问共享方法的情况下，是否存在不一致的可能性。
我会感谢每一个回复的线程.
谢
浏览 1提问于2011-05-19得票数 2
回答已采纳
4回答
是否可以在VB.net中声明本地/类实例成员引用变量，以读取/更新由另一个变量引用的同一对象
vb.net、variables、declaration、byref
在C++中，可以执行以下操作：
int x;
int& foo = x;
// foo is now a reference to x so this sets x to 56
foo = 56;
但是，在Visual Basic .net (VB.net)中是否可以实现相同的功能呢？
我知道VB.net中的ByRef术语，但我只在通过引用函数/子例程传递参数时看到(通过广泛的研究)，以便函数修改调用代码声明的相同变量。
但是我还没有见过ByRef用来声明变量(作为类成员或局部变量)。我曾尝试使用ByRef来进行这样的声明，但每次尝试对声明进行排序时都会遇到编译器错误。
我之所以要这
浏览 18提问于2012-07-10得票数 2
回答已采纳
1回答
子程序如何更新它的参数？
vb.net、function、return、call
我有一些简单的代码，我理解它的作用，但不知道为什么。我有一个Sub，它称为另一个Sub，名为CheckIfNothing(oList)。oList是List(Of String)。Sub CheckIfNothing检查每个String，如果它是Nothing，它将使其为""。这是代码：
Public Function GiveList(oList As List(Of String))
CheckIfNothing(oList)
Return oList
End Function
Public Sub CheckIfNothing(oList As Li
浏览 0提问于2014-03-18得票数 3
回答已采纳
2回答
WriteOnly属性ByRef
vb.net、properties、byref
我不明白如何在VB.NET中通过how传递一个论点。
我试过这个：
Private m_Form As frmMain
Public WriteOnly Property MyForm() As Form
Set(ByRef value As Form)
m_Form = value
End Set
End Property
但是VB.NET不喜欢"Byref“参数。有人能帮忙吗？
谢谢!
浏览 4提问于2014-03-09得票数 0
回答已采纳
2回答
是否应该在函数中使用ByRef？
vb.net、function
我真的搞不懂什么时候应该使用ByRef和ByVal。有人告诉我，一个函数应该总是返回一个值，而作为Sub的人不需要/可以返回多个值。然而，当我应该使用ByRef和ByVal时，我真的被困住了。
Function Check(ByRef valid As Boolean, ByVal prize As Integer) As Boolean
If prize < 1000000 Or prize > 4000000 Then valid = False
Return valid
End Function
例如，在上面，我需要valid被函数更改，但如果我使
浏览 6提问于2018-12-04得票数 0
3回答
具有参考类型的ByVal和ByRef
vb.net
请参阅以下代码：
Public Class TypeTest
Public variable1 As String
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim t1 As TypeTest = New TypeTest
Test(t1)
MsgBox(t1.variable1)
End Sub
Public
浏览 3提问于2013-10-31得票数 11
回答已采纳
2回答
VBA:我的程序正在抛出编译错误ByRef
excel、vba、compiler-errors、byref
我在处理一个正在运行的程序。我做了一个副本来测试，使我的代码更加模块化。下面是过去在循环中运行的一个子程序，通过对第一个子循环的调用将其更改为两个子循环。
Sub Trendline()
Dim eqn, name As String
Dim cht As ChartObject
Dim i As Integer
For Each cht in Worksheets(1).ChartObjects
If cht.Chart.SeriesCollection(1).Trendlines.Count > 0 Then
cht.Activate
name
浏览 5提问于2017-10-05得票数 0
回答已采纳
2回答
使用带有ByRef参数的lambda表达式的Func(关于Tin，Tout)提供了不兼容的签名错误
.net、vb.net、lambda、func、byref
为什么这样做：
Private [Function] As Func(Of Double, String) = Function(ByRef z As Double) z.ToString
给出以下错误：
嵌套函数没有与委托字符串兼容的签名。
而这一点：
Private [Function] As Func(Of Double, String) = Function(ByVal z As Double) z.ToString
不是吗？(差别是ByRef/ByVal)
此外，我怎样才能实现这样的事情呢？
浏览 3提问于2011-03-09得票数 9
回答已采纳
4回答
ByRef对ByVal的澄清
vb.net、byref、byval
我刚刚开始一个类来处理到TCP服务器的客户端连接。下面是我到目前为止编写的代码：
Imports System.Net.Sockets
Imports System.Net
Public Class Client
Private _Socket As Socket
Public Property Socket As Socket
Get
Return _Socket
End Get
Set(ByVal value As Socket)
_Socket = value
浏览 2提问于2010-12-08得票数 22
回答已采纳
5回答
在C#中，属性的setter value关键字将自动与属性的类型相同。
例如，在C#中，value的类型是string
private string str = string.Empty;
public string MyText
{
get { return str; }
set { str = value; }
}
如果我们将这个片段转换为VB.Net，我们将得到
Private str As String = String.Empty
Public Property MyText() As String
Get
Return str
E
浏览 0提问于2012-09-12得票数 12
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
活动推荐
腾讯云开发者
