我的问题是,我想从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
当excel使用另一种接口语言时,运行使用Excel SUM函数的VBA函数似乎不起作用。
在上,有些人遇到了语言问题,但这与将公式、语言独立于单元格有关。
Function sum_value(sum_range) As Single
sum_value = Application.WorksheetFunction.Sum(sum_range)
End Function
sum_value(1,2,3) =6
Microsoft上的解决方案我发现不能使用WorksheetFunctions作为应用程序对象的方法。有关文件如下:
我有一个选择,给我的结果如下:
A, B, C
C, D, E
G, A
NULL
O, U, B, X
我希望得到这样的结果:
A
B
C
D
E
G
O
U
X
因此,与多个来自行的值不同,每个值应该在1行中使用DISTINCT,而不是NULL。
尝试使用SQLFIDDLE创建一个示例,但它不起作用。
我执行一个VBA代码,它接受一个数据库,处理它并将它导出到一个表中。这很好用。但是,我有一个表,它根据特定工作表中的数据生成图形。数据没有实现。我必须输入单元格并单击enter来实现它。我敢肯定还有更简单的方法。计算被设置为自动,但这似乎不会改变任何事情。
在我的单元格中,我有自己的vba函数,需要在报告完成后进行更新。当我单击该单元格,然后输入,结果将被更新,但我希望这是自动完成。我希望这更清楚!
提前谢谢你,
艾蒂安·诺埃尔
HEre是我的函数的代码
Public Function number_of_appearances(term As String, sheet As Stri
假设我编写以下VBA UDF:
Function TestFunction()
TestFunction = 0
End Function
然后我将它用于我的工作表的前100000行。它需要几分钟才能执行。
相反,如果我对相同的行数使用use (),执行只需要3-4秒。
谁能告诉我为什么,有没有一种方法可以加速UDF?
谢谢!
我尝试使用join,如下所示,但它不起作用
SELECT distinct(udf.FIELD_NAME),fun.FUNCTION_ID,mo.MODULE AS PRODUCT_MODULE FROM TABLE1 udf
JOIN TABLE2 mo
ON udf.PRODUCT_CODE = mo.PRODUCT_CODE
JOIN TABLE3 fun
ON udf.FIELD_NAME = fun.FIELD_NAME
where (udf.product_code in (select mo.product_code from TABLE2 mo))AND(udf.FIELD_N
我正在尝试使用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
我正在使用pyspark dataframe从每个行的数组中查找不同的计数:输入: col1 1,1,1 1,2,1,2
output:
1
3
2
I used below code but it is giving me the length of an array:
output:
3
3
4
please help me how do i achieve this using python pyspark dataframe.
slen = udf(lambda s: len(s), IntegerType())
count = Df.withColumn("Coun
我正在尝试从Excel中的VBA调用DLL中的函数。
我的Excel VBA宏如下所示:
Declare PtrSafe Function TestFunction1 Lib "mylib.dll" (ByVal k As Double) As Double
Public Function TestDll(k As Double) As Double
Debug.Print ("Start")
Dim r As Double
r = TestFunction1(k)
Debug.Print ("Got result
UPDATE Contact_UDF
SET hasAttendedEvent = (
SELECT CASE WHEN c.Contact_ID IN
(SELECT DISTINCT Contact_ID
FROM Action a
WHERE a.Action_Type_ID =39) THEN 1 ELSE 0 END
FROM Contact c)
我正在运行这一小部分SQL,以在Contact_UDF表中设置一个标志,但始终会遇到以下错误:
Msg 512、级别16、状态1、第1行子查询返回的值超过一个。当子
select co.id, udf.string_val, udf.id
from customer_order co left join user_def_fields as udf on co.id = udf.document_id
where status = 'h' and order_date between '1/1/2016' and '12/31/2016'
and co.id <> (select document_id from user_def_fields
where (string_val =
我遇到了一个我不太明白的问题(我是VBA中的一个n00b )。我有一个函数,它根据另一个表中的值填充一组单元格。基本上,我提供了一个参数(状态名称),它将它转到另一个表,查找该状态,并返回包含该状态的人口值的所有行。以下是功能:
Public Function MyFunction2(parVal As String)
myRange = Worksheets("Dashboard").Range("A20:A3000")
rangeCounter = 1
For Each cell In Worksheets("StateLis
我对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
我仍然很奇怪为什么这样简单的查询不起作用:
SELECT COUNT(DISTINCT *) FROM dbo.t_test
Where as
SELECT COUNT(DISTINCT col1) FROM dbo.t_test
和
SELECT DISTINCT * FROM dbo.t_test
很管用。
另一种选择是什么?
编辑:
DISTINCT *检查(col1,col2,...)的组合键的唯一性并返回这些行。我期望COUNT(DISTINCT *)只返回这样的行数。我是不是漏掉了什么?
我正在编写一个vba函数来检查一个单元格的名称,如果它匹配,则在另一个单元格中返回一个值。由于我对vba还不熟悉,所以我仍然对大多数变量进行了硬编码,以简化工作。不知怎么的,我的功能中最简单的一步就是让我失望。
我尝试过两种将值写入单元格的方法,但这两种方法都不起作用。两者都在单元格A2中返回一个#值。
Function getRole(lastName As String, firstName as String) As String
if (lastName = Worksheets("Sheet1").Range("A1").Value Then
下面是我的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 '
我有一个自定义函数来执行一些任务,但它似乎在设置引用的工作簿的起始处停止了。当我从VBA编辑器中调用该函数时,它工作得很好。当我从工作表中调用函数时,它不起作用。真正的代码如下:
Function getAF(MCID As Variant) As String
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open(CreateObject("Scripting.FileSystemObject").GetParentFolderName(ActiveWorkbook.Path) & "
我使用了这个简短的函数来查找名称是“给定的姓氏”还是“姓,名”,但是当这个函数由另一个用户(在另一台PC上)运行时,错误#NAME中的结果函数呢?:
Function FindName_Function(NameCell As String) As String
Dim FindComma As Long
Dim FindName As String
FindComma = InStr(1, NameCell, ",")
If FindComma <> 0 Then
FindName = VBA.Right(NameCell, Len(NameCel
我有两个专栏,日期和每日回报。我有大约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(
我是一个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中显示指定的文本。
好的。我在一个表中有一些数据,这些数据多次引用另一个表中的一些数据。
Table1 -主客户端表Table2 -用户定义的字段
假设我有一个查询,它显示了来自Table1的客户端id和来自Table2的所有附加/使用的“已使用的已定义字段”
SELECT t1.Id, t2.udf
FROM Table1 t1
JOIN Table2 t2 ON t1.Id = t2.Index
WHERE t1.EndDate IS NULL AND
t1.Id = '1234.9876' AND
我将得到以下结果:
ID UDF
1234.9876