5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 12

763 :名無しさん@そうだ選挙にいこう:03/05/08 21:53
>>758
関数ではできないからVBAで2通りほど。
好きな方使って。

Function f_CountChar(strSearch As String, strTarget As String) As Long
 Dim n As Long
 Dim k As Long
 Do
  k = InStr(k + 1, strSearch, strTarget)
  n = n + 1
 Loop Until k = 0
 f_CountChar = n
End Function

Function f_CountChar2(strSearch As String, strTarget As String) As Long
 Dim myArray() As String
 myArray = Split(strSearch, "-")
 f_CountChar2 = UBound(myArray) + 1
End Function

293 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)