1

完全に回答された以前の質問に続いて、問題の残りの部分のコードを記述しましたが、問題が発生しました。

=RAND()乱数を生成するために使用するワークシートの一部。これは揮発性関数であるため、式の出力を新しい場所にコピーする必要がありました。これを手動で行っていた場合は、数式ではなく数字だけを使用するように、特別な値をコピー -> 貼り付けます。

VBA でこれを試すと、コードの一部で、特殊貼り付けの宛先範囲を選択しようとすると、エラー 1004が発生します。

コードは次のとおりです。

'   Copy Random Questions to Static Page for VLOOKUPS
With Worksheets("Quiz Generator")
    Range("NEWQUEST").Copy
    'Selection.Copy
End With
With Worksheets("Static Question List")
    Range("TOPSTAT").Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End With

私はこれを行うさまざまな方法を試しました。

RANGE().Select
Selection.Copy
RANGE().Select
Selection.Pastespecial Paste:=xlValues

また、使用:

RANGE().Copy
Range().PasteSpecial Paste:=xlValues

元のコードでは Range("TOPSTAT).Select 、スローされる前に

Run-Time error '1004':
Application-defined or object-defined error

現れる

どんな助けでもありがたく受け取られます。

定義された範囲はすべて正しく、Name Manager にあります。セル参照を使用して、問題が範囲名であるかどうかを確認しました。

厄介なことに、これは以前は長い手で Select / Selection.Paste などのメソッドを使用して機能していましたが、コードを整理しようとしたため停止しました。

前もって感謝します。

4

1 に答える 1