Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


63 / 75376 ←次へ | 前へ→

【80963】Re:2回に1回エラーが出る
発言  さと  - 19/6/26(水) 12:32 -

引用なし
パスワード
   ▼γ さん:
これが現在のコードで、このように変数の宣言の位置を変えたら、何回も連続で処理を行ってもエラーが全く出なくなりました。

Option Explicit

Sub 当月入力準備()
  Application.ScreenUpdating = False
  With Sheets("7月")
   
   .Range("B2").CurrentRegion.Offset(2, 1).Select

  Dim a As Long, b As Long
  a = Selection.Rows.Count
  b = Selection.Columns.Count

    Selection.Resize(a - 3, b - 1).Select
    Selection.Copy
    .Range("B2").CurrentRegion.Offset(3, 1).Select
    Selection.Resize(a - 3, b - 1).Select
    Selection.PasteSpecial xlPasteValues
    .Range("B2").CurrentRegion.Offset(2, 1).Select
    Selection.Resize(a - 6, b - 1).Select
    Selection.ClearContents
  End With
End Sub

52 hits

【80933】2回に1回エラーが出る さと 19/6/23(日) 19:23 質問[未読]
【80934】Re:2回に1回エラーが出る マナ 19/6/23(日) 20:04 発言[未読]
【80935】Re:2回に1回エラーが出る さと 19/6/23(日) 20:30 発言[未読]
【80936】Re:2回に1回エラーが出る マナ 19/6/23(日) 20:43 発言[未読]
【80937】Re:2回に1回エラーが出る さと 19/6/23(日) 21:01 発言[未読]
【80938】Re:2回に1回エラーが出る マナ 19/6/23(日) 21:31 発言[未読]
【80939】Re:2回に1回エラーが出る さと 19/6/23(日) 21:57 発言[未読]
【80940】Re:2回に1回エラーが出る マナ 19/6/23(日) 22:12 発言[未読]
【80941】Re:2回に1回エラーが出る さと 19/6/23(日) 22:29 発言[未読]
【80942】Re:2回に1回エラーが出る γ 19/6/24(月) 7:23 発言[未読]
【80948】Re:2回に1回エラーが出る さと 19/6/24(月) 22:13 お礼[未読]
【80949】Re:2回に1回エラーが出る γ 19/6/24(月) 22:19 発言[未読]
【80963】Re:2回に1回エラーが出る さと 19/6/26(水) 12:32 発言[未読]
【80971】Re:2回に1回エラーが出る よろずや 19/6/27(木) 14:22 発言[未読]
【80972】Re:2回に1回エラーが出る よろずや 19/6/27(木) 16:54 発言[未読]
【80977】Re:2回に1回エラーが出る γ 19/6/27(木) 22:10 回答[未読]
【80985】Re:2回に1回エラーが出る さと 19/7/1(月) 12:36 お礼[未読]

63 / 75376 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free