请问各位大侠用VBA如何编程两个单元格中的5*6和3*5前后分别相乘后在另一个单元格中显示15*30 - 编程论坛

#2

约定的童话2021-09-25 15:21

只有本站会员才能查看附件，请登录

自定义函数吧
Function js(s1, s2)
   h = Split(s1, "*")(0) * Split(s2, "*")(0)
   h1 = Split(s1, "*")(1) * Split(s2, "*")(1)
   js = h & "*" & h1
End Function

#3

cdhilite2021-09-26 08:23

回复 2楼约定的童话

非常感谢！

#4

独木星空2021-09-26 16:11

回复 2楼约定的童话

Function js(s1, s2)
h = Split(s1, "*")(0) * Split(s2, "*")(0)
h1 = Split(s1, "*")(1) * Split(s2, "*")(1)
js = h& * &H1
End Function
我在Excel中建了模块，保存后。
在Excel中插入函数，选择自定义js
但是出现错误提示：
编译错误
类型声明字符与声明的数据类型不符
查找帮助：
类型声明字符与声明的数据类型不匹配

一个变量的数据类型是不会被在其后附加的类型声明字符所改变的。这个错误的原因与解决方法如下所示：

声明一个特定类型的变量，在同一范围内用此名称来引用它，然而却在其名称后附加一个不一致的类型声明字符。
若希望能够改变赋给变量的数据类型，请将此变量声明为 Variant。如果只是不小心附加了一个不正确的类型声明字符，请将其删除或更正。

详细信息，请选择有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。
也看不出所以然。

#5

独木星空2021-09-26 16:28

回复 2楼约定的童话

无论这种方法是否成功。今天是我找到了Excel中自带Visual Basic 编辑器（V）。
打开Excel，选择菜单→工具→宏→Visual Basic 编辑器（V）
就可以了。所以在没有vb6的情况下，也可以在这里练习运用。

#6

cdhilite2021-09-27 08:18

回复 4楼独木星空

老师给的方法，很好，没出现任何情况！再次感谢！

#7

独木星空2021-09-27 08:28

split函数
split函数是编程语言中使用的一种函数名称，它是指返回一个下标从零开始的一维数组，split函数包含指定数目的子字符串。
语法
Split(expression[, delimiter[, count[, compare]]])
Split函数语法有如下几部分:

部分

必要性
描述

expression

必需的。
包含子字符串和分隔符的字符串表达式。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。

delimiter

可选的。
用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的expression字符串。

count

可选的。
要返回的子字符串数，–1表示返回所有的子字符串。

compare

可选的。
数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅"设置值"部分。
这是从网上搜集过来的，详情可搜索"split函数"