|
こんにちは。
>アンケート集計自体は、あれから、客先とのやりとりの末、最終的に形ががらりと変わり、ユーザー定義関数など全然必要なくなってしまいました(T_T)
ギャグですか?
いや多分違うと思います。
家で試したファイルを忘れてきちゃったので、うる覚えの記憶で...。
(97のヘルプには、無い。)
e3 = Split(arg_str, ",")
確か、こんな感じだったと思います。
MsgBox Filter(e3, 数えたい文字, True) + 1
Falseにすると対象文字以外の値が入った配列の要素数が...。(+1する必要があったかも)
外れていると思いますので、詳しくはヘルプ見てね!
所で、つんさんは、WinMeでOffice2003を使っているんですか?
(Meで使えるの?)
*******************************
これだとどうなるのかなぁ?と、ちょっと前に作ってみただけです。
遅くて広範囲ペーストだとどうなるかわからないけど..。
Function mySubAPP(argR1 As Range, argR2 As Range) As Variant
Dim e1 As Range
Dim Stt As String, Wwd As String
Dim lngA As Long, ST As Long
If argR1.Count > 1 Then
mySubAPP = CVErr(xlErrValue)
Exit Function
End If
lngA = 0
Stt = argR1.Value '検索値
Wwd = "," & Stt & ","
For Each e1 In argR2
ST = 1
Do Until InStr(ST, e1.Value, Wwd) = 0
lngA = lngA + 1
ST = InStr(ST + 1, e1.Value, Wwd) + Len(wd) + 1
Loop
If Left(e1.Value, Len(Stt) + 1) = Stt & "," Then
lngA = lngA + 1
ElseIf Len(e1.Value) = Len(Stt) And e1 = Stt And e1.Value <> "" Then
lngA = lngA + 1
End If
If Right(e1.Value, Len(Stt) + 1) = "," & Stt Then
lngA = lngA + 1
End If
Next
mySubAPP = lngA
End Function
|
|