0

以下に示すように、Excelファイルを作成しています strFileName = "c:\test.xls"

         Set objExcel = CreateObject("Excel.Application")
         objExcel.Visible = True

         Set objWorkbook = objExcel.Workbooks.Add()
         objWorkbook.SaveAs(strFileName)

         objExcel.Quit

いくつかのデータ操作の後、同じ Excel シートの sheet1 と sheet2 で手動でいくつかの値を Excel シートに入力します。同じ Excelk シートの 2 つの異なるシートで 2 つの値を比較する方法を教えていただければ幸いです。

             **Executables**             **checkbox**
                E1                             yes
                E2                             No
                E3                             yes

そしてシート2には実行可能ファイルがあります パラメーターの数input1 Input 2 E1
Send 2 4 {ENTER} Put 2 Input.xls {ENTER} Send 2 4 {ENTER} {ENTER}
今、私はvbscript shud検索をシート1でyesごとに検索してから来ますここでシート2を検索します。同じExcelシートファイルでシート1とシート2を比較検索するにはどうすればよいですか

        Thanks
        Maddy   
4

2 に答える 2

1

値を比較するために 2 つのシート オブジェクトを使用するとどうなりますか
。これにより、シート 1 の各セルがシート 2 の同じセルと比較されます。

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Test.xls")
Set objSheet1 = objExcel.ActiveWorkbook.Worksheets(1)
Set objSheet2 = objExcel.ActiveWorkbook.Worksheets(2)

For i = 1 To objSheet1.UsedRange.Columns.Count
    For j = 1 To objSheet1.UsedRange.Rows.Count
        if (objSheet1.Cells(j, i).Value = objSheet2.Cells(j,i).Value) Then
            'Equal do something
        else
            'Not Equal do something
        End IF
    Next
Next

objExcel.Quit
Set objSheet2 = Nothing
Set objSheet1 = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing 
于 2009-08-05T15:05:48.320 に答える
0

データをフォーム要素に保存する必要がありますか、それともスプレッドシート機能だけを使用できますか? 単純な VLookup 数式は 2 つのシートを比較しますが、セルに含まれるデータしか検索できません。

     SHEET 1
  Boy     Age
1 Joe     13
2 Jimmy   12
3 Jack    27

2 番目のシートでは、次の式を使用します。

 =if(vlookup(a1,'[Sheet 1.xlsx]Sheet1'!$A$1:$B$2,2,false)=a2, "Same", "Different")

     SHEET 2
  Boy     Age   Formula
1 Joe     14    Different
2 Jimmy   12    Same
3 Jack    27.5  Different
于 2009-08-05T13:27:04.713 に答える