VBA UDF返回#VALUE!
是指在使用VBA编写的自定义函数（User-Defined Function）中，当函数的返回值出现错误时，Excel会显示#VALUE!错误。
VBA（Visual Basic for Applications）是一种用于编写宏和自定义函数的编程语言，广泛应用于Microsoft Office套件中的各种应用程序，包括Excel、Word、PowerPoint等。自定义函数是用户根据自己的需求编写的函数，可以在Excel中像内置函数一样使用。
当VBA UDF返回#VALUE!时，可能有以下几种原因：
- 输入参数错误：函数的输入参数可能不符合函数的要求，例如传入了非法的数据类型、超出了参数的有效范围等。在编写自定义函数时，应该对输入参数进行合法性检查，确保输入参数的有效性。
- 计算错误：函数在计算过程中出现了错误，例如除数为零、无效的数学运算等。在编写自定义函数时，应该考虑到可能出现的异常情况，并进行相应的错误处理。
- 数据源错误：函数依赖的数据源可能发生了错误，例如引用了不存在的单元格、工作表或外部数据源。在编写自定义函数时，应该确保所引用的数据源是有效的，并进行必要的错误处理。
为了解决VBA UDF返回#VALUE!错误，可以采取以下几个步骤：
- 检查输入参数：确保函数的输入参数符合函数的要求，例如数据类型、有效范围等。
- 添加错误处理：在函数中添加适当的错误处理代码，以处理可能出现的异常情况，例如使用条件语句、错误处理语句等。
- 调试代码：使用调试工具（如VBA的调试器）逐步执行代码，查找可能导致错误的地方，并进行修正。
- 提供清晰的错误信息：在函数中使用合适的错误提示，以便用户能够理解错误的原因，并采取相应的措施。
腾讯云提供了一系列与Excel相关的云产品，如云服务器、云数据库、云存储等，可以帮助用户在云端进行数据处理和存储。具体产品信息和介绍可以参考腾讯云官方网站：https://cloud.tencent.com/。
请注意，以上答案仅供参考，具体的解决方法和推荐产品应根据实际情况进行评估和选择。
相关·内容
我在牢房里有这样的公式：
=GetData("Channel_01","Chicago")
它执行以下代码：
Public Function GetData(ChannelCode As String, Key As String) As String
Dim sql As String
Dim cmd As New ADODB.Command
Dim outputTo As Range
Set outputTo = Application.Caller
sql = "select * from Chann
浏览 3提问于2010-12-07得票数 2
回答已采纳
我是一个Excel VBA新手。
如何通过自定义函数修改指定单元格的值？这段代码有什么问题：
Function Test(ByVal ACell As Range) As String
ACell.Value = "This text is set by a function"
Test := "Result"
End Function
我的愿望是。当我在单元格E1中键入=Test(E6)时，Excel将在E6中显示指定的文本。
浏览 4提问于2010-10-02得票数 4
回答已采纳
1回答
让我们在上使用这个例子。
给定以下python代码：
import numpy as np
from xlwings import Workbook, Range
def rand_numbers():
""" produces std. normally distributed random numbers with shape (n,n)"""
wb = Workbook.caller() # Creates a reference to the calling Excel file
n = int(Range(&
浏览 2提问于2015-05-29得票数 4
我非常感谢您的帮助，帮助我将数据从自定义的VBA函数写入excel工作表。我已经能够从自定义的VBA子程序编写，但在执行VBA函数时得到了一个错误。在示例代码中，“Sub写2”和“SubWrit3”工作得很好。但是“函数测试2()”生成“值”！在其单元格中，write3不被执行。
Sub write2(r As Integer, c As Integer, d As Double)
Dim a, b As Integer
For a = r To r + 1
For b = c To c + 1
Cells(a, b).Value = d
浏览 1提问于2013-12-25得票数 0
1回答
我试图运行excel vba宏并获得返回结果，但我总是获得返回null (请原谅我的无知，我是这个宏的新手)
宏
Public Function TestMacro() As Boolean
If Len(Range("A1").Value) <> 9 Then
TestMacro = False
Else
TestMacro = True
End If
End Function
调用它的c#代码
Excel.Application excelApp = new Excel.Application { Disp
浏览 0提问于2019-05-12得票数 0
回答已采纳
1回答
我正在尝试开发一个自定义的VBA函数来操作范围，即从列表中删除重复的值，并将唯一值的列表放在工作表的特定列中。我使用自定义函数调用的原因是，我希望在任何时候更新唯一值列表，只要有新条目出现在原来的列表中。
当我作为子例程手动运行它时，我可以让代码工作(例如，只运行下面的Sub RemoveDuplicateValues()段)。但是，当从自定义函数通过工作簿(例如，通过在工作表单元格中输入=ManageLists() )调用它时，代码在尝试使用范围方法之一(即行NewList.Value2 = OriginalList.Value2 )的第一个实例中不执行任何操作。
Function Mana
浏览 0提问于2019-07-24得票数 1
回答已采纳
我遇到了一个我不太明白的问题(我是VBA中的一个n00b )。我有一个函数，它根据另一个表中的值填充一组单元格。基本上，我提供了一个参数(状态名称)，它将它转到另一个表，查找该状态，并返回包含该状态的人口值的所有行。以下是功能：
Public Function MyFunction2(parVal As String)
myRange = Worksheets("Dashboard").Range("A20:A3000")
rangeCounter = 1
For Each cell In Worksheets("StateLis
浏览 3提问于2013-11-21得票数 1
回答已采纳
我正在尝试从python函数中产生一些变量，以传递到我的VBA代码中。但我似乎不能让它工作。数据来自一个名为rngTest的范围名称。 ? 在我的子例程中，有以下调用python函数的代码调用foo_func() Python代码 # -*- coding: utf-8 -*-
import xlwings as xw
def foo_func():
wb = xw.Book.caller()
rngTest = wb.sheets["Data"].range("rngTest").value
for idx, test i
浏览 20提问于2019-05-09得票数 1
回答已采纳
我试图在我的机器上将用户定义的vlookup函数创建到一个封闭的工作簿中。在VBA中测试它时，下面的函数可以工作，但是在尝试使用该函数时，我在Excel中得到了#VALUE错误。对此有什么想法吗？我相信我可能能够使用VBA Evaluate函数来提供帮助，但到目前为止还没有成功。
Function CUSIP_Deal_Map(CUSIP As String, DataField As String) As Variant
Dim colIndex As Integer ' for vlookup
Dim invalidDataField As Boolean
invalidData
浏览 4提问于2015-05-21得票数 0
回答已采纳
我试图在一个具有返回值的Excel表中使用我自己的VBA函数，而同一个函数在同一个或另一个工作表上操作一个单元格，但是结果是#VALUE!是一个最小的工作示例(Office，2010，32位)：
Function abc() As Integer
Dim i%
i = 0
Sheet1.Cells(1, 2).Value = 2
abc = i
End Function
当我执行Debug.Print abc时，它显然会向单元格B2写入一个2，并且打印的结果是0。我现在想做的是=abc() in cell A1 on Sheet1，但我只得到了#VALUE!。顺便说一句
浏览 7提问于2017-03-03得票数 0
回答已采纳
2回答
VBA编译错误
、、
我对VBA的经验很少，我上次使用它是几年前的事了。这是我的VBA：
Function MacIDGen(total, current)
If total - current = 0 Then
current -1
Else
current 1
End If
Macro1 (current)
End Function
Sub Macro1(cur)
Sheets("Donations").Cells(I2).Value = cur & "Test"
End Sub
这是它自己的模块，完全没有其他代码。
因此，我有一个调用M
浏览 0提问于2014-01-06得票数 4
回答已采纳
1回答
我的问题是，我想从VBA向WCF发送一个字符串数组。
c#代码为：
[OperationContract]
void SetSomeObjects(string[] data);
这是VBA部分
Dim data(2) As String
data(0) = "abc"
data(1) = "def"
Dim service2 As Object
Set service2 = GetObject(ServiceBindingInformation)
service2.SetSomeObjects data
最后一行抛出VBA
"Type Mis
浏览 0提问于2013-03-04得票数 3
1回答
返回格式化数字的UDF
、、、
有时，我喜欢在同一个单元格中显示数字和文本。为此，我自定义了将单元格格式化为0.00“test”之类的内容，例如带有公式A1的单元格=PI()，但是使用自定义格式0.00" test"格式化的单元格将返回显示的3.14 test结果。
重要的是，单元格的值通过格式保持不变--您仍然可以在另一个单元格中执行=A1 * 3并获得结果--因为A1的值仍然是Pi，只有它的显示发生了变化。
用于返回数字值的UDF (在我的例子中，Long，但它可能是任何数字)，是否有一种返回单元格的方法，使其以1方式显示，但它的实际值(在VBA中的.Value2)是一个数字，而不是文本。
我在VBA中尝
浏览 2提问于2017-03-29得票数 1
回答已采纳
我在Python中有一个算法，它基本上帮助查找函数的“深度”：
f(a) has a depth of 1
f(g(h(a,b,c),d)),e) has a depth of 3
伪算法如下：
Run through all the characters from left to right
create a variable "depth"
for each open parenthesis increment depth
for each closing parenthesis decrement depth
At the end, the depth of the ex
浏览 1提问于2015-05-08得票数 2
回答已采纳
3回答
在excel 2003中sp2
XLL定义了xll_function，如果我调用它，它工作得很好。定义了同名的VBA函数:它优先于XLL的 VBA函数，一个#名称？出现并永远呆在这里。在另一个excel版本中或在安全模式下作为工作簿保存无助。
Excel仍然记得查看VBA，尽管VBA函数已经消失。有什么建议来解决这个问题吗？
浏览 3提问于2011-03-31得票数 3
回答已采纳
2回答
我有两个专栏，日期和每日回报。我有大约7000份每日回报，我想按他们每年每个月的复合回报进行分组。
我创建了一个VBA函数来解决这个问题：
Function MonthlyRet(YearNum, MonthNum, DateData, RetData) As Double
Dim nValues As Integer
nValues = DateData.Rows.Count
MonthlyRet = 1
For i = 2 To nValues
If (IsNumeric(RetData(i)) And Year(DateData(i)) = YearNum And Month(
浏览 4提问于2015-05-17得票数 1
回答已采纳
需要帮助:如何使用Excel公式或VBA仅在字符串中获取小数(实)数？我在"column A“中有一个字符串，上面只有一个十进制数。我只想提取那个十进制(实数)数字，但它提取的是字符串中的第一个数字。有关详细信息，请参见下文...
现状：
我在B栏中使用公式：
=LOOKUP(9.9E+307,--LEFT(MID(A1,MIN(FIND({1,2,3,4,5,6,7,8,9,0}, $A1&"1023456789")),999),ROW(INDIRECT("1:999"))))
Column A
浏览 25提问于2018-02-27得票数 2
回答已采纳
1回答
我执行一个VBA代码，它接受一个数据库，处理它并将它导出到一个表中。这很好用。但是，我有一个表，它根据特定工作表中的数据生成图形。数据没有实现。我必须输入单元格并单击enter来实现它。我敢肯定还有更简单的方法。计算被设置为自动，但这似乎不会改变任何事情。
在我的单元格中，我有自己的vba函数，需要在报告完成后进行更新。当我单击该单元格，然后输入，结果将被更新，但我希望这是自动完成。我希望这更清楚！
提前谢谢你，
艾蒂安·诺埃尔
HEre是我的函数的代码
Public Function number_of_appearances(term As String, sheet As Stri
浏览 1提问于2011-08-18得票数 0
回答已采纳
3回答
我是excel vba的新手，我似乎不能用vbArrays解决这个问题。我在vba中创建了函数cumsum，只是为了让我的生活更轻松。但是，我想让代码变得灵活，这样我就可以同时传入函数和范围的两种变体。在我的代码中，如果我正在传递一个范围，当我添加行vec=vec.value时，它工作得很好，但是如果我调用函数并传入一个非范围类型，它就不能工作。我注意到的是，如果我的代码中没有vec=vec.value行，我传入了一个范围，它的维数为0，我通过编写自己的函数进行检查。有人能给我解释一下如何解决这个问题吗？谢谢。
Public Function cumsum(vec As Variant) As
浏览 0提问于2012-07-20得票数 1
回答已采纳
1回答
我有一个VBA用户定义函数。除了给函数赋值外，我还需要将一个值赋值给一个单元格，它不是调用函数的单元格。但是，当我尝试执行代码时，它失败了:错误#值出现在函数调用的单元格中，而在另一个单元格中没有赋值。这是VBA excel的限制，还是我的代码中有bug？下面是代码示例：
Function zz()
zz = "OK"
Row = ActiveCell.Row
col = ActiveCell.Column
Cells(Row + 1, col) = "pippi"
End Function
非常感谢。
浏览 5提问于2022-11-13得票数 0
所以我的问题是，我将如何创建一个VBA宏，它将在第6 _之后自动剪切字符串？我的意思是：
正如您所看到的，它在第6次_之前削减了所有内容，这就是我想用VBA宏完成的任务。宏背后的原因是由于其他差异，我稍后将为进一步的自动化而添加这些变量。我知道如何用这样的excel公式来编写它：
=RIGHT(SUBSTITUTE(A16,"_",CHAR(10),6),LEN(A16)-FIND(CHAR(10),SUBSTITUTE(A16,"_",CHAR(10),6),1)+1)
但我不知道如何用VBA格式编写它才能正常工作。我试着从我找到的一个网站上模仿一个例子
浏览 5提问于2019-11-01得票数 0
回答已采纳
我在名称管理器中创建了一个名称。如何在VBA代码中为我的函数传递name "MyRange1“参数？
在Excel中：
=MyFunction(MyRange1)
MyFunction是：
Public Function MyFunction(nameDefined As Variant) As String
'How get value of nameDefined ??
End Function
浏览 3提问于2016-09-16得票数 0
我正在尝试创建一个VBA函数，它接受一个单元格作为参数，并使用各种Range.Offset从那里工作。此函数将在工作表单元格中调用。为了进行测试，我使用了这个简单的脚本：
Public Function testPublic(targetCell As Range) As Boolean
targetCell.Offset(0, 3).Value2 = "Test is successful!"
testPublic = True
End Function
为了查看是否可以让单元格引用工作，我传递简单的引用(如C5 )，但我只获得#VALUE！错误。不知道这是怎么回
浏览 3提问于2016-10-25得票数 1
回答已采纳
我已经编写了一个自定义的VBA函数，当我从VBA内部调用它时，它将工作。例如：
Sub test()
Debug.Print calculate_acr_bands_data("recommended_acr", "22/11/2014", 2.67, "B23:C27", 50, 2.14, 1, 0.107, 3.89, "22/02/2021")
End Sub
输出..。
0.01
但是，当我从excel工作簿中的单元格中调用完全相同的函数时。我得到的错误是“这个公式中使用的值是错误的数据类型”。这是没有意义的
浏览 1提问于2017-04-24得票数 1
回答已采纳
我想知道是否可以在VBA中编写用户定义函数，以便从调用函数的列中的固定行获得值
I在excel表的第2行中有一些固定值；我想引用用户定义函数中的那些值。
请注意，我需要调用函数列的第2行中的值。
注意事项：实际的函数比这个要复杂，但是解决这个问题将使我处于我需要的位置。
伪码
Function GetStandardPayment()
GetStandardPayment = CallingColumn.Row(2).Value
End Function
我有以下几点
Function GetStandardPayment()
GetStandardPayment = Acti
浏览 2提问于2014-12-13得票数 0
回答已采纳
我想通过VBA为单元格设置值。我在谷歌上搜索过，看到了一些解决方案：
Sheets("SheetName").Range("A1").value = someValue
Sheets("SheetName").Cells(1,1).value = someValue
使用这种代码，我可以从单元格A1读取数据，但不能为它设置新的值。
更新
设置单元格A1值的代码放在Function中，如下所示。
Function abb()
Sheets("SheetName").Range("A1").value = 12
浏览 6提问于2012-02-28得票数 8
回答已采纳
我正在尝试使用VBA更改Excel 2015中状态栏中显示的文本。然而，它似乎没有更新。消息"Ready“仍然存在。
Function testStatusBar(delay As Long)
Dim progress As Long
For progress = 1 To delay
Application.StatusBar = "Progress: test ongoing ...." & (progress / delay) & "%"
DoEvents
Next progress
Application.Sta
浏览 12提问于2016-08-09得票数 0
指和
我确实更喜欢VBA解决方案，尽管OP并没有要求一个解决方案。但是，除了行之外，我能够分析和理解上面的大多数链接响应：
distance = Range(Application.Caller.Address).row - rng.row
海报似乎使用此构造来确定结果范围(或数组？)大于零长度，以避免创建空变量返回值。如果是这样的话，我无法理解这一点的必要性，并且能够在不引用整数distance的情况下创建有用的输出。
我已经尝试了我的尽职调查，然而，通常是神秘的对我并没有多大用处。如果有人能解释Application.Caller.Address构造的使用/性质(更好的是--在这个特定的例
浏览 0提问于2018-10-26得票数 2
回答已采纳
1回答
我需要VBA的帮助实际上，我需要复制加"+“后的值，例如"=2000+5000"，我只需要复制"5000”并粘贴到另一个单元格中。
我已经有了下面的代码：
Dim cell As String
Dim aPos As Integer
Dim bPos As String
Dim result As String
Dim ex As String
Dim cPos As String
Dim dPos As String
Range("a1").NumberFormat = "@"
cell = Range("A1"
浏览 17提问于2019-11-11得票数 1
1回答
如何从vba函数的代码中更改使用vba函数的单元格的格式？
我试过这样的例子：
"=test()"function 使vba模块(见下面的代码)在某些单元格中放入excel工作表--它改变了单元格值，并显示了2个弹出窗口。但是格式化仍然是相同的。
Function test()
MsgBox (Application.ThisCell.NumberFormat) ' shows "General"
Application.ThisCell.NumberFormat = "Currency"
'
浏览 2提问于2020-05-05得票数 0
我有一个添加到Excel VBA代码中的非托管C# DLL。
Private Declare Function DoSomething Lib "myc.dll" Alias "invokePath" (ByVal strRule As String)
现在，在DLL中，我需要知道发出请求的excel文件的路径。
然后，我需要从C# DLL中的Excel工作簿中读取单元格中的值。
浏览 2提问于2012-11-09得票数 0
回答已采纳
我从Excel工作表中调用VBA函数。当我在VBA函数的代码中更改一个单元格时，Excel试图再次执行该函数(在第二次迭代和.)
示例:如果您有代码：
Function test() As Variant
Range("A1") = 1
test = "test"
End Function
当您在任何地方使用"=test()"时，它将返回#VALUE!。调试将显示，当您更新A1时，它将尝试重新执行test()。
您能阻止Excel这样做吗？例如说‘在我完成这个功能之前不要更新我的任何号码’？我尝试过Application.Calc
浏览 3提问于2013-11-06得票数 1
回答已采纳
2回答
我正在尝试让一些代码在Excel VBA和VB.Net之间工作。我在Visual Studio的VB.Net中有以下代码。
Public Class ThisAddIn
Private Sub ThisAddIn_Startup() Handles Me.Startup
End Sub
Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
End Sub
Public Function Multiplication()
Dim activeWorksheet As Excel.
浏览 7提问于2014-06-02得票数 3
1回答
我有一个Excel“项目”，其中包括一个.dll，我在其中编写了一些通过VBA调用的复杂统计计算。我这么做是为了提高速度。每次计算大约需要一秒钟。因为它们是通过VBA调用的，所以它会在计算期间停止Excel，这是可以接受的。(选择Excel不是我的选择，而是第三方选择提供数据的方式的结果)
但是为了这个项目的目的，我需要让计算结果在不是一秒之后出现，而是在十秒之后出现。我可以扩展计算以获得更高的准确性，也可以简单地在代码中包含暂停。但是，由于它是通过VBA完成的，它会使整个项目延迟10秒钟，这是不可接受的。
我研究过ExcelDNA，因为它完全避免了VBA，并且可以通过VBA使用ExcelDN
浏览 5提问于2015-04-20得票数 1
假设我编写以下VBA UDF：
Function TestFunction()
TestFunction = 0
End Function
然后我将它用于我的工作表的前100000行。它需要几分钟才能执行。
相反，如果我对相同的行数使用use ()，执行只需要3-4秒。
谁能告诉我为什么，有没有一种方法可以加速UDF？
谢谢!
浏览 3提问于2019-10-09得票数 1
我正在编写一个vba函数来检查一个单元格的名称，如果它匹配，则在另一个单元格中返回一个值。由于我对vba还不熟悉，所以我仍然对大多数变量进行了硬编码，以简化工作。不知怎么的，我的功能中最简单的一步就是让我失望。
我尝试过两种将值写入单元格的方法，但这两种方法都不起作用。两者都在单元格A2中返回一个#值。
Function getRole(lastName As String, firstName as String) As String
if (lastName = Worksheets("Sheet1").Range("A1").Value Then
浏览 3提问于2017-11-23得票数 1
回答已采纳
3回答
如何定义DIAG函数？
、、、
我想定义一个VBA函数：
matrix;returns的主对角线元素的列向量-- diagonal;automatically上的向量元素返回矩阵/向量，而不需要按Ctrl移位输入；
我正在编写以下代码：
Public Function DIAG(matrix As Variant) As Variant
Dim i As Long
Dim j As Long
Dim nRows As Long
Dim nCols As Long
Dim tempArray As Variant
nRows = matrix.Rows.Count
nCols = matrix.Columns.Count
浏览 4提问于2021-12-22得票数 0
回答已采纳
1回答
我希望转换成VBA代码的Excel功能，在一个按钮上工作，但我有一些麻烦，因为我是新手编码。我已经尝试过查找可以使单元格倍增的代码，并做我需要做的事情，但没有机会将它们实现到我的代码中。下面是我试图将其转换为代码的函数。如有任何帮助或建议，将不胜感激。
=SUM(G17-(G16*0.65))
Public Function Sum()
Range("G17").Value -Range("G16").Value * 0.65
End Function
浏览 0提问于2021-03-31得票数 0
2回答
下面是我的VBA脚本的代码：
Function custom_if_formula(condition)
MsgBox(condition)
End Function
我把配方贴在任何细胞上：
=custom_if_formula(B1="something")
MsgBox的结果是：TRUE或FALSE。是否有可能因此进入MsgBox而改为B1="something"？
我想要实现的伪代码：
Function custom_if_formula(condition)
condition = condition.formula '
浏览 1提问于2019-05-01得票数 0
回答已采纳
1回答
当我从xlwing调用python代码时，我无法让断点工作。
testme.py：
import xlwings as xw
def add(n):
result = []
while len(result) < n:
result.append(1+4)
return result
def xl_add():
sht = xw.Book.caller().sheets[0]
n = sht.range('B1').options(numbers=int).value
seq = a
浏览 4提问于2017-06-18得票数 2
我目前有一个宏，它使用一个表单，以便在外部程序的帮助下执行一些计算。它所做的就是将一些工作表值写入一个文件，供另一个程序，一个外部.exe使用，作为输入(该程序是封闭的源)。然后编写一个自定义格式输出，我用VBA将其报废，然后将返回传递回工作表。宏通过指定源和目标范围的userform调用。
我要做的是用UDF替换通过userform调用计算的方法。使用GUI方法，更新计算非常麻烦；也不可能知道在目标范围数据中执行了什么计算。由于性能考虑，选择了这条路径而不是UDF。由于计算非常慢，我不能仅仅重用用户表单代码中调用外部程序作为UDF并使用它完成的部分，因为它太慢了。VBA中似乎没有异步执行(与
浏览 8提问于2012-01-05得票数 2
回答已采纳
寻找一些关于Excel的专家建议。我编写了一小部分代码，用于选择特定工作表中的列并对所选内容执行查找/搜索。当我从Excel调用函数时，它不会找到任何东西，因为find返回的范围值是空的。但是，当我在developer窗口中直接运行它时，它可以正常工作。
请注意，我知道使用现有的Excel宏也可以这样做。但我不想用它们是有原因的。希望你能理解。
这是密码；
Function MYFIND(x As Range) As Integer
Dim Cell As Range
Worksheets("Sheet4").Select
Columns("A:A").Sele
浏览 0提问于2021-02-21得票数 1
回答已采纳
我正在使用一种形式制作休假计划，其中用户选择自己的名称而不是开始日期和结束日期，并使用VBA应用--我正在将这些数据存储到工作表A、B和C列
Dim irow As Long, _
wS As Worksheet, _
NextRow As Long, _
cF As Range
Set wS = Worksheets("Sheet1")
With wS
With .Range("A:A")
Set cF = .Find(What:=Me.Combo.Value, _
After:=.Cells(1, 1), _
浏览 1提问于2016-01-10得票数 0
回答已采纳
1回答
众所周知，在Qt (或其他C++环境)中，我们可以使用QActiveX来操作Excel。但是，如果工作簿中有一些用户定义的VBA函数，有什么方法可以将参数传递到并调用它们呢？
浏览 40提问于2017-12-30得票数 0
回答已采纳
1回答
因此，我试图通过excel中的VBA将字符串拆分为3行，如果字符串长度超过一定长度的话。我让它工作2行，但如果它是超过55个字符，它重叠到其他文本在输出文件。我希望它是动态的，这样它就能处理所有的情况，即10到60个字符，并相应地分成几行。有什么建议吗？
If Len(StrText) > 19 Then
If Mid(StrText, 11, 1) = " " Then
StrText = Left(StrText, 19) & Chr(10) & Chr(32) & Right(StrText
浏览 2提问于2018-03-23得票数 0
回答已采纳
我的目标是实现一些功能，我给他们提供电机的功率、频率和速度参数，并查看另一个工作簿(在其中我有电机数据)并返回尺寸、轴直径和其他电机详细信息。
由于我不太精通VBA，我尝试实现一个函数，该函数简单地转到另一个工作簿中的一个单元格并返回值：
Function Test() As String
Dim name As String
With Workbooks.Open("D:\ExcelTest\WbSource.xlsm").Sheets("Sheet1")
name = .Cells(2, 3)
End With
Test= n
浏览 0提问于2015-05-12得票数 1
2回答
我正在努力学习Excel的VBA。我在看关于VBA中的自定义函数/用户定义函数的教程。我试图创建一个用户定义的函数，但它在输入函数名的单元格中显示了一个#REF!错误。我试图添加(A Cell + B Cell)，而不向函数传递任何参数/参数。我用偏移量来遍历单元格左边的1，2个单元格，这个单元格具有公式的功能。这是我的密码：
Option Explicit
Function ADD12()
Dim Number_1 As Integer
Dim Number_2 As Integer
Number_2 = ActiveCell.Offset(0, -2).Value
Number_1 =
浏览 5提问于2015-09-05得票数 2
回答已采纳
2回答
我正在尝试使我的UDF工作(在Excel 2003中)，在调试之后，这个问题似乎总结在我的函数的这个压缩版本中：
Function btest(b_1 As Double) As Double
btest = 1
Worksheets("Sheet1").Range("A1").Value = b_1
'^this is the bit I want to work but doesn't^
End Function
这模拟了我的真实函数，在下面的单元格输出行不执行之前，它有一个赋值的值，没有任何问
浏览 0提问于2013-05-02得票数 3
回答已采纳
我使用VBA代码将单元格的背景更改为单元格中十六进制代码的颜色，这是另一个答案：
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo bm_Safe_Exit
Application.EnableEvents = False
Dim rng As Range, clr As String
For Each rng In Target
If Len(rng.Value2) = 6 Then
clr = rng.Value2
浏览 6提问于2022-08-21得票数 1
回答已采纳
2回答
VBA，数组，范围，排序
、、、
我必须在Excel的VBA中编写一个函数来对给定的范围进行排序。(气泡排序)我做了以下工作：
Function MySort(M2 As Range)
Dim r As Integer
r = M2.Rows.Count
Dim M1 as range
M1 = M2
Dim buffer
For i = 0 To r
For j = i To r
If (M1.Item(i, 0) > M1.Item(j, 0)) Then
buffer = M1.Ite
浏览 4提问于2013-09-30得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
