完全に回答された以前の質問に続いて、問題の残りの部分のコードを記述しましたが、問題が発生しました。
=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 などのメソッドを使用して機能していましたが、コードを整理しようとしたため停止しました。
前もって感謝します。