小编meg*_*n77的帖子

ByRef 参数类型不匹配 - Excel VBA

下午,

我有一个函数可以根据日期计算星期几名称:

Function calcWeekdayName(calcDate As Date) As String

Dim calcWeekday As Integer
calcWeekday = Weekday(calcDate, vbMonday)

calcWeekdayName = weekdayName(calcWeekday, True, vbMonday)

End Function
Run Code Online (Sandbox Code Playgroud)

然后我使用一个公共变量将日期传递给这个函数。公共变量在表 2 上声明:

Public searchDate As Date
Run Code Online (Sandbox Code Playgroud)

然后在我的函数下面的子中设置变量:

searchDate = Worksheets("Update Data").Range("B3").Value
Run Code Online (Sandbox Code Playgroud)

更新数据上的 B3 格式为 dd/mm/yyyy

当我尝试使用函数和 searchDate 变量设置变量 weekdayName 时,我得到了 ByRef 参数类型不匹配。

在工作表 2 上:

 Public weekdayName As String
Run Code Online (Sandbox Code Playgroud)

在子:

 weekdayName = calcWeekdayName(searchDate)
Run Code Online (Sandbox Code Playgroud)

B3 的当前值是 28/03/2016 但我也尝试过 01/01/2016。

干杯

excel vba

3
推荐指数
1
解决办法
650
查看次数

正则表达式:不包含子字符串

我想测试不包含特定子字符串的字符串

示例字符串是:

event2
event23,event1,event67=12
event1,event30
event23
event2
event2,event23
Run Code Online (Sandbox Code Playgroud)

我想匹配不包含event2.

因此,以下字符串应该匹配:
event23,event1,event67=12
event1,event30
event23

到目前为止,我可以event2使用以下表达式匹配 do 包含的字符串:
/^.*(\bevent2\b)/gm

但我不知道如何将其与负面前瞻结合起来。

这似乎不起作用:
/^.*(?!.*(\bevent2\b))/gm

regex negative-lookahead

2
推荐指数
1
解决办法
5233
查看次数

Excel VBA - 将日期字符串转换为日期

我在单元格中有许多字符串,这些字符串是日期,但它们需要转换为日期格式.

它们采用以下格式:

mmm dd, yyyy
Run Code Online (Sandbox Code Playgroud)

例如:

Feb 10, 2016
Run Code Online (Sandbox Code Playgroud)

所以它们的长度可以是11或12:

Feb 1, 2016
Run Code Online (Sandbox Code Playgroud)

我已经开始编写一个函数来单独解析字符串的每个部分(日为整数,月为整数,年为整数)然后转换为日期格式.

首先,有一种比上面更容易/更光滑的方法吗?

如果没有更简单的方法,最好的方法是将3个字母的月份(例如2月或3月或4月)转换为月份数字(例如2或3或4)?因为这是我真正坚持的唯一一点.

excel vba excel-vba

1
推荐指数
1
解决办法
2万
查看次数

标签 统计

excel ×2

vba ×2

excel-vba ×1

negative-lookahead ×1

regex ×1