VBA初心者です。
Sheet1にリスト、Sheet2にボタンなどを配置し、Sheet1のリストにフィルターをして、その結果の中の重複分を1件としてカウントして、合計で何件あるのかというものを作りたいと思っています。
Sub 計算（）
Worksheets("sheet1").Range("A1").AutoFilter Field:=10,Criteria1:=Worksheets("sheet2").Range("C3").Value
Count = WorksheetFunction.Subtotal(3,Range("j2：j577"))
n = WorksheetFunction.Subtotal(3,Range("j2:j577"))
Application.Evaluate("=SUMPRODUCT(1/COUNTIF(C1：C577,C1:C577))") Worksheets("sheet2").Range("E3").Value = n & "件"
Worksheets("sheet2").Select
End Sub
というような感じで作ってみましたが、重複を1件として数えず全件の件数が出てしまいます。
初心者なのでいろいろ不備はあるかと思いますが、どのように直せばよろしいか、どうか教えていただけますようよろしくおねがいいたします。
VBA初心者です。
Sheet1にリスト、Sheet2にボタンなどを配置し、Sheet1のリストにフィルターをして、その結果の中の重複分を1件としてカウントして、合計で何件あるのかというものを作りたいと思っています。
Sub 計算（）
Worksheets("sheet1").Range("A1").AutoFilter Field:=10,Criteria1:=Worksheets("sheet2").Range("C3").Value
Count = WorksheetFunction.Subtotal(3,Range("j2：j577"))
n = WorksheetFunction.Subtotal(3,Range("j2:j577"))
Application.Evaluate("=SUMPRODUCT(1/COUNTIF(C1：C577,C1:C577))") Worksheets("sheet2").Range("E3").Value = n & "件"
Worksheets("sheet2").Select
End Sub
というような感じで作ってみましたが、重複を1件として数えず全件の件数が出てしまいます。
初心者なのでいろいろ不備はあるかと思いますが、どのように直せばよろしいか、どうか教えていただけますようよろしくおねがいいたします。
VBAでIE(Edge)上のWebページのエディットボックスやボタンを操作するには、
ie(COMオブジェクト)を取得して、
For Each obj In ie.document.getElementsByTagName("input")
If obj.ID = "txtDenpyoNo" Then
obj.Value = d_no
Exit For
End If
Next
For Each obj In ie.document.getElementsByTagName("input")
If obj.ID = "btnSearch" Then
obj.Click
Exit For
End If
Next
というような感じで、
エディットボックスに値を入れたり取得したり
ボタンをクリックしたりする仕方は分かりましたが、
サイト上のボタンをクリックすると、
別のウインドウやダイアログが表示されることがあります。
このような場合、HTMLコードがないため、
上記の方法では記述することができません。
新しいウインドウやダイアログのタイトルから、
IDは取得することはできましたが、この取得したIDで、
ウインドウやダイアログをアクティブにするには、
どのように記述すればよいのでしょうか。
また、ウインドウやダイアログ上のオブジェクトの
指定の仕方がよく分からないのですが、
ウインドウやダイアログ上のオブジェクトを操作するには、
どのように記述をすればよいのでしょうか。
よろしくお願いします。(Windows10,IE,Edge)
VBAでIE(Edge)上のWebページのエディットボックスやボタンを操作するには、
ie(COMオブジェクト)を取得して、
For Each obj In ie.document.getElementsByTagName("input")
If obj.ID = "txtDenpyoNo" Then
obj.Value = d_no
Exit For
End If
Next
For Each obj In ie.document.getElementsByTagName("input")
If obj.ID = "btnSearch" Then
obj.Click
Exit For
End If
Next
というような感じで、
エディットボックスに値を入れたり取得したり
ボタンをクリックしたりする仕方は分かりましたが、
サイト上のボタンをクリックすると、
別のウインドウやダイアログが表示されることがあります。
このような場合、HTMLコードがないため、
上記の方法では記述することができません。
新しいウインドウやダイアログのタイトルから、
IDは取得することはできましたが、この取得したIDで、
ウインドウやダイアログをアクティブにするには、
どのように記述すればよいのでしょうか。
また、ウインドウやダイアログ上のオブジェクトの
指定の仕方がよく分からないのですが、
ウインドウやダイアログ上のオブジェクトを操作するには、
どのように記述をすればよいのでしょうか。
よろしくお願いします。(Windows10,IE,Edge)
VBAでIE(Edge)上のWebページのエディットボックスやボタンを操作するには、
ie(COMオブジェクト)を取得して、
For Each obj In ie.document.getElementsByTagName("input")
If obj.ID = "txtDenpyoNo" Then
obj.Value = d_no
Exit For
End If
Next
For Each obj In ie.document.getElementsByTagName("input")
If obj.ID = "btnSearch" Then
obj.Click
Exit For
End If
Next
というような感じで、
エディットボックスに値を入れたり取得したり
ボタンをクリックしたりする仕方は分かりましたが、
サイト上のボタンをクリックすると、
別のウインドウやダイアログが表示されることがあります。
このような場合、HTMLコードがないため、
上記の方法では記述することができません。
新しいウインドウやダイアログのタイトルから、
IDは取得することはできましたが、この取得したIDで、
ウインドウやダイアログをアクティブにするには、
どのように記述すればよいのでしょうか。
また、ウインドウやダイアログ上のオブジェクトの
指定の仕方がよく分からないのですが、
ウインドウやダイアログ上のオブジェクトを操作するには、
どのように記述をすればよいのでしょうか。
よろしくお願いします。(Windows10,IE,Edge)
