2016-07-20 3 views

答えて

3

.matchのために失敗しています。 .matchはワークブック関数ですが、ワークシートのメソッドであるかのように使用しています。代わりに:

With CellsTab 
    NumOfProdCells = _ 
     .Range(.Cells(Application.WorksheetFunction.Match(CurrentStartRow, _ 
     .Range("MIRCellColumn"), 0), 4), _ 
     .Cells(Application.WorksheetFunction.Match(CurrentStartRow, _ 
     .Range("MIRCellColumn"), 0), 4).End(xlDown)).Rows.Count 
End With 
+0

ありがとうございます。しかし、これは私に "WorksheetFunctionクラスのMachプロパティを取得できません" –

+0

私は謝罪、それは 'Application.WorksheetFunction.Match()'である必要があります。 '.Cells()'参照で '> 4'を使ったように見えますが、これは無効です。しかし、それはちょうどポストのフォーマットの副作用かもしれません。 – Toast

+0

実際に書式設定の問題でした。また、Application.Works ...に変更すると、エラーは変更も削除もされません。 –