Question

我一直试图找到一种方法来拆分我在vba中提取的变量。变量是＆＃34; variable1＆＃34;它总是等于xx.xx（数字）。我想要做的是，如果variable1 = 2.6，那么我想拆分它并使varsplit1 = 2和varsplit2 = 6。我找到了一个如何做到的示例，但由于我们的网络安全性，我无法提取数据库示例以查看代码的工作原理。

Answer 1

您可以使用VBA中的Split（表达式，分隔符）功能拆分“。”。它返回一个以0开头的数组，因此请确保指定要返回的数组部分。

这样的事情：

Public Sub testing()
    Dim variable1 As String: variable1 = "2.6"
    Dim varsplit1 As String: varsplit1 = Split(variable1, ".")(0)
    Dim varsplit2 As String: varsplit2 = Split(variable1, ".")(1)
    debug.print varsplit1
    debug.print varsplit2
End Sub

https://msdn.microsoft.com/en-us/library/6x627e5f(v=vs.90).aspx

Answer 2

如果变量是十进制数，则应按原样处理：

' Example value.
variable1 = 2.6

' Split in integer and decimal parts.
variable2 = variable1 - Int(variable1)
variable1 = Int(variable1)

拆分变量

2 个答案: