VBA Excel検索とカウント

Question

VBAを使用してExcelでこの機能を自動化したいと考えています。 {以内：woorkbook}>オプション - -

1. はD1（現在手動でCTRL + Fからデータを確認し、D1（NP taks-223）

2. 検索ブックから値を取得>すべて探しますワークブック内のデータが登場した回数）

3. カウント、 はH1

私はMakroまたはそうでなければ、この機能を行うことができるようになりますをセルに結果を書き込みますか？ 私は最近Excelを使用していますが、まだ回答が見つかりませんでした。 ありがとうございました:)

Answer 1

上記の手順でマクロを記録しても、「すべて検索」は何も生成されないため、コードを見ることはできません。ただし、コードを使用して、必要なものを与える数式を作成し、その数式を$ H $ 1に書き込むことができます。ここでは3枚のワークブックの例を示します。 Sheet1は検索値で、他の2枚は検索値がランダムに散在しています。あなたと仮定すると、あなたのような何かをするかもしれない数でセルD1を含めたくない：

Sub countValueInWorkbook() 
    Dim formulaString As String 

    '//If you put your formula in any cell of Row 1, you will have a circular reference. 
    '//Start your formula with the sheet the search value cell is on, and count rows 2 thru 500 (or something) 
    formulaString = "=SUM(COUNTIF(Sheet1!2:500, $D$1)," 

    For Each wksht In ThisWorkbook.Sheets 
     If wksht.Name <> "Sheet1" Then 
      formulaString = formulaString & "COUNTIF(" & wksht.Name & "!1:500, $D$1)," 
     End If 
    Next wksht 

    '//Trim trailing comma and add ending parenthesis 
    formulaString = Left(formulaString, Len(formulaString) - 1) 
    formulaString = formulaString & ")" 

    '//Write formula to desired cell 
    Sheets("Sheet1").Range("$H$1").Value = formulaString 
End Sub 

これに似たものを使用して、ワークブックのすべてのシートに検索値のすべてのインスタンスをカウントすることができるようになります。 SUMは、この後

1.追加を追加するように

formulaString = formulaString & ", 1)" 

に

formulaString = formulaString & ")" 

：あなたは、カウントで検索値のセルそのものを含めたい場合は、以下の行を変更コードが実行されると、私はセルH1の次の式で終了します。

=SUM(COUNTIF(Sheet1!2:500, $D$1),COUNTIF(Sheet2!1:500, $D$1),COUNTIF(Sheet3!1:500, $D$1)) 

これがうまくいけば！

静的な値ではなく検索セル自体を使用するように編集されているため、D1の内容を変更すると、H1の式が更新されて新しい値がカウントされます。