Excel VBA質問箱 IV

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

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


59949 / 76732 ←次へ | 前へ→

【21439】Re:アクティブセルののクリア方法
回答  IROC  - 05/1/21(金) 9:04 -

引用なし
パスワード
   Sub 消し込み()
  If Application.Intersect(ActiveCell, Range("C7:C506")) Is Nothing Then
    Range("C3").Value = "エラー"
  Else
    ActiveCell.Resize(1, 12).ClearContents
  End If
End Sub

Sub 月次消し込み()
Dim i As Long
  For i = 7 To 1 Step -1
    If Range("M2").Value = Cells(i, 3).Value Then
      If Range("M2").Value <> "" Then
        Range("C3").Value = "エラー"
      End If
    End If
  Next i
End Sub

0 hits

【21438】アクティブセルののクリア方法 okb 05/1/21(金) 8:54 質問
【21439】Re:アクティブセルののクリア方法 IROC 05/1/21(金) 9:04 回答
【21443】Re:アクティブセルののクリア方法 okb 05/1/21(金) 10:45 質問
【21444】Re:アクティブセルののクリア方法 IROC 05/1/21(金) 11:59 回答
【21451】Re:アクティブセルののクリア方法 okb 05/1/21(金) 14:57 質問
【21476】Re:アクティブセルののクリア方法 IROC 05/1/21(金) 17:34 回答
【21479】Re:アクティブセルののクリア方法 okb 05/1/21(金) 18:11 質問
【21480】Re:アクティブセルののクリア方法 IROC 05/1/21(金) 18:18 回答
【21481】ありがとうございました。 okb 05/1/21(金) 18:34 お礼

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