This entry was posted on 金曜日, 3月 11th, 2005, 6:01 PM and is filed under Excel.
You can follow any responses to this entry through RSS 2.0. You can skip to the end and leave a response. Pinging is currently not allowed.
+の方
Function y_plus(str1 As String)
Dim var1 As Variant
var1 = Split(str1, “+”)
If UBound(var1) – LBound(var1) = 0 Then
y_plus = “”
Else
y_plus = var1(1)
End If
End Function
#1 by 匿名 - 3月 30th, 2006 at 07:37
#2 by ゆり - 9月 21st, 2007 at 11:38
+の方
Function y_plus(str1 As String)
Dim var1 As Variant
var1 = Split(str1, “+”)
If UBound(var1) – LBound(var1) = 0 Then
y_plus = “”
Else
y_plus = var1(1)
End If
End Function