☰

Excel あいまいな名前が検出されました

tag-icon • tag-icon microsoft-excel
Excel あいまいな名前が検出されました

こんにちは、このワークブックにこのコードがあります

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'Stop execution when workbook closes
 On Error Resume Next
 Application.OnTime Heure, "Calcul", , False
End Sub
Private Sub Workbook_Open()
 'start execution when workbook opens
 Application.OnTime Now + TimeValue("00:05:00"), "Calcul"
End Sub

モジュール1にはこのコードがあります

    Sub Calcul()
     Heure = Now + TimeValue("00:05:00")
     Application.OnTime Heure, "Calcul"
     Sheet1.Range("FA99666").End(xlUp).Offset(1) = Sheet1.[o5]
     Sheet1.Range("FE99666").End(xlUp).Offset(1) = Sheet1.[o6]
     Sheet1.Range("FI99666").End(xlUp).Offset(1) = Sheet1.[o7]
     Sheet1.Range("FM99666").End(xlUp).Offset(1) = Sheet1.[o8]
     Sheet1.Range("FQ99666").End(xlUp).Offset(1) = Sheet1.[o9]
end sub

] 上記のコードは5分ごとに実行されます

モジュール2では、このコードを10分ごとに実行したいと思います。

    Sub Calcul()
     Heure = Now + TimeValue("00:10:00")
     Application.OnTime Heure, "Calcul"
     Sheet2.Range("FA99666").End(xlUp).Offset(1) = Sheet2.[o5]
     Sheet2.Range("FE99666").End(xlUp).Offset(1) = Sheet2.[o6]
     Sheet2.Range("FI99666").End(xlUp).Offset(1) = Sheet2.[o7]
     Sheet2.Range("FM99666").End(xlUp).Offset(1) = Sheet2.[o8]
     Sheet2.Range("FQ99666").End(xlUp).Offset(1) = Sheet2.[o9]
end sub

しかし、エラーが発生します - あいまいな名前が検出されました。私は Excel 初心者なので、助けていただければ幸いです。

答え1

コメントにある意見には同意します。よく読むべきですが、あなたが使用しているのが「Application.OnTimeshare」であり、リンクに「share」について言及されていないため、特定の状況との関連性は見当たりません。

こちらでその詳細をご覧いただけます:

https://stackoverflow.com/questions/31439866/multiple-variable-arguments-to-application-ontime

要約すると、引用符で囲まれた文字列を作成する必要があります。その正確な構成は、送信する内容 (変数、整数、文字列など) によって決まります。

構造は重要です。おそらく、1文字を見逃してしまい、正しい文字列にたどり着くまで試行錯誤にかなりの時間を費やすことになります。

関連情報