は、別のシートにコマンドをリンクするExcelを受け取ります。

Question

私はsheet1上にActiveXボタンを持っていますが、私の目標シーク式はsheet2上にあります。それを実行すると、sheet2の列Nのセルは変更されません。誰でも私のコードを修正できますか？

Private Sub CommandButton1_Click() 

With Worksheets("sheet2") 
For J = 23 To 26 
     Cells(J, "o").GoalSeek Goal:=0, ChangingCell:=Cells(J, "n") 
Next J 

End With 

End Sub 

Answer 1

あなたは、彼らが参照しているワークシートを使用してCellsの特性を修飾することはありませんので、彼らは（あなたのボタンが配置されているシートになる）ActiveSheetを参照するにデフォルト設定、およびので、あなたの現在のコードは同等です

Private Sub CommandButton1_Click() 
    Dim J As Variant 
    For J = 23 To 26 
     ActiveSheet.Cells(J, "o").GoalSeek Goal:=0, ChangingCell:=ActiveSheet.Cells(J, "n") 
    Next J 
End Sub 

はまた、あなたのコード内で With Worksheets("sheet2")ブロックが含まれているが、あなたはそれを利用することはありません。

---

あなたの問題を解決する最も簡単な方法は、あなただけのことを指定するには、.を追加することを意味することを、あなたはすでにあなたのコード内ですでにWith Worksheets("sheet2")ブロックを持っているので、参照してされているワークシートに修飾することを確実にするために、単純です

Private Sub CommandButton1_Click() 

With Worksheets("sheet2") 
For J = 23 To 26 
     .Cells(J, "o").GoalSeek Goal:=0, ChangingCell:=.Cells(J, "n") 
Next J 

End With 

End Sub