イベントでFor Eachの時にエラーに | |
---|---|
[196112] イベントでFor Eachの時にエラーに- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ かん -(2024/02/20(14:05)) □U R L/ 次のコードをsheet2で実行するとエラーとなります。 With Sheets("sheet1")をWith Sheets("sheet2")に置き換えると エラーにはなりません。 イベントでFor Eachの時にエラーになるようです。 With Sheets("sheet1")でエラーを回避するにはどうしたらいいですか。 Private Sub Worksheet_SelectionChange(ByVal Cell As Excel.Range) Application.EnableEvents = False With Sheets("sheet1") For Each Cell In Range(.Cells(1, 1), .Cells(3, 2)) '処理 Next Cell End With Application.EnableEvents = True End Sub |
[196113] Re[1]: イベントでFor Eachの時にエラーに- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2024/02/20(14:28)) □U R L/ For Each Cell In .Range(.Cells(1, 1), .Cells(3, 2)) ~~~ |
[196114] Re[2]: イベントでFor Eachの時にエラーに- ■ / 記事引用/メール受信=OFF■ □投稿者/ かん -(2024/02/20(15:54)) □U R L/ マナ -様 "."の追加でエラーが出ず実行できました。 ありがとうございました。 |
[196115] Re[3]: イベントでFor Eachの時にエラーに- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2024/02/21(11:46)) □U R L/ 念のため。 エクセルの神髄 Withステートメント ht tps://excel-ubara.com/excelvba1/EXCELVBA351.html エクセルの神髄 RangeとCellsの使い方 ht tps://excel-ubara.com/excelvba1/EXCELVBA311.html この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
このトピックに書きこむ |
---|