0

ピボット テーブルを作成し、別のワークブックにデータを入力するコードがあります。データのテンプレートとして機能するワークブックを開き、入力し、保存して閉じます。これを 8 つの異なるデータ セットに対して 8 回行います。このコードを問題なく何度も実行しましたが、2番目のデータセットで「データテーブルの一部を変更できません」というエラーが発生し始めたようです(最初のデータセットは機能します)。エラーが発生しているセクションは...

'Transfers Repairs Data
Range("D27").Select
ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(RC[-1],'[VBA Project.xlsm]Repairs Pivot'!R5C8:R60C11,4,FALSE)"
Selection.AutoFill Destination:=Range("D27:D30"), Type:=xlFillDefault
Range("D27:D30").Select
Range("D85").Select
ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(RC[-1],'[VBA Project.xlsm]Repairs Pivot'!R5C8:R60C11,4,FALSE)"

これの原因は何ですか？

4

1 に答える 1

0

本当に答えではありませんが、あなたを助けるための改善です。

'Transfers Repairs Data
Range("D27:D30").FormulaR1C1 = _
    "=VLOOKUP(RC[-1],'[VBA Project.xlsm]Repairs Pivot'!R5C8:R60C11,4,FALSE)"
Range("D85").FormulaR1C1 = _
    "=VLOOKUP(RC[-1],'[VBA Project.xlsm]Repairs Pivot'!R5C8:R60C11,4,FALSE)"

また、正しいシートにいることを確認してください。他の人がコメントしたように、これらの数式を貼り付けようとしているデータ テーブルはありません。特定のシートを使用するには、上記を変更できます。

Sheets("Sheet1").Range("D27:D30").FormulaR1C1
于 2013-04-05T23:46:54.733 に答える