知识文化
历史科技,工具哪个好

策划配表,常用VBS宏

Function RequireStr(ids, numbers)

ids = Split(ids, “;”)
numbers = Split(numbers, “;”)
last1 = UBound(ids)
last2 = UBound(numbers)
If (last1 > last2) Then
last1 = last2
End If
RequireStr = “”

For i = 0 To last1 Step 1

If (i > 0) Then
RequireStr = RequireStr & “;”
End If

If (numbers(i) = “1”) Then
RequireStr = RequireStr & ids(i)
Else
RequireStr = RequireStr & ids(i) & “:” & numbers(i)
End If

Next
End Function

未经允许不得转载:才七课 » 策划配表,常用VBS宏
分享到: 更多 (0)

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址