| 投稿日 | ： 2006/04/26(Wed) 23:20 |
| 投稿者 | ： BeBen |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: Excelのワークシート関数COUNTIFの使用方法 |
花ちゃん 有難うございました。
大変分り易く、説明して頂きまして、感謝感謝です。
今実行してみましたら、うまく出来ました。
これからも、何かとお世話になると思いますが、よろしくお願い
致します。
ところで、イルカさんってどなたでしょうか？
どこかのサイトでもっと色々な情報があることを教えて頂ければ
助かります。
> CountIf 関数の使い方なら イルカ に聞けば教えてくれますよ。
>
> Private Sub Command1_Click()
> Dim xlApp As Excel.Application
> Dim xlBook As Excel.Workbook
> Dim xlSheet As Excel.Worksheet
> Set xlApp = CreateObject("Excel.Application")
> Set xlBook = xlApp.Workbooks.Open("C:\Temp.xls")
> Set xlSheet = xlBook.Worksheets(1)
> xlApp.Visible = True
>
> Dim CNT As Long
> CNT = xlApp.WorksheetFunction.CountIf(xlSheet.Range("B1:F1"), "×&quo
t;)
> Debug.Print CNT
>
>
> Set xlSheet = Nothing
> Set xlBook = Nothing
> Set xlApp = Nothing
> End Sub