投稿日	： 2006/04/26(Wed) 22:22
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 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"), "×")
    Debug.Print CNT
    
    
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

★ - Excelのワークシート関数COUNTIFの使用方法 - BeBen 04/26-21:35No.6333
• Re: Excelのワークシート関数COUNTIFの使用.. - 花ちゃん 04/26-22:22 No.6337
  • Re^2: Excelのワークシート関数COUNTIFの使.. - BeBen 04/26-23:20 No.6338
    • Re^3: Excelのワークシート関数COUNTIFの使.. - 花ちゃん 04/27-00:19 No.6339
      • Re^4: Excelのワークシート関数COUNTIFの使.. - BeBen 04/27-00:27 No.6340