はじめまして
エクセルシートのSHEET1のB1からF1までの間にある文字『X』の個数を調べて、
変数CNTの中に入れるプログラムをVisualBasic6で作成しています。

CNT = AppXls.WorksheetFunction.CountIf()

で()の中は、どのように指定したらよいのか、どなたか教えてください。
色々とインターネットや書籍で調べてみましたが、Max,Min,AVRしか見当たりません。
よろしくお願い致します。

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"), "×")
    Debug.Print CNT
    
    
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

花ちゃん 有難うございました。
大変分り易く、説明して頂きまして、感謝感謝です。
今実行してみましたら、うまく出来ました。
これからも、何かとお世話になると思いますが、よろしくお願い
致します。
ところで、イルカさんってどなたでしょうか？
どこかのサイトでもっと色々な情報があることを教えて頂ければ
助かります。


> 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

> ところで、イルカさんってどなたでしょうか？

Excel のイルカです。 まずは、ヘルプで調べる（これ基本）

失礼しました。
察しがつきませんでした。
もう少し調べてからここに来ます。
有難うございました。