Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46267 / 76732

←次へ　｜　前へ→


	【35439】奇数行に入力したら、下のセルをクリア

オタピョン - 06/3/4(土) 20:24 -


	引用なし

	パスワード

　もし、奇数行のセルに入力したら、一つ下のセルをクリアして、
逆に偶数行のセルに入力したら、一つ上のセルをクリアしたいのですが、
どなたか教えていただけないでしょうか。

　　　Ｂ列　Ｃ列
５　　収　　●
６　　発　　　
７　　収
８　　発

と、いうような表で、収と発で１セットの組み合わせとしています。Ｃ列には収の横か、
発の横のどちらか片方だけに●がつくようにしたいのです。

　今、●を簡単にダブルクリックか右クリックで入力できるように、下記のＶＢＡをシートに書き込みました。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
　　Select Case Target.Value
　　　Case ""
　　　　Target.Value = "●"
　　　Case Else
　　　　Target.ClearContents
　　End Select
　　Cancel = True
End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
　　Select Case Target.Value
　　　Case ""
　　　　Target.Value = "●"
　　　Case Else
　　　　Target.ClearContents
　　End Select
　　Cancel = True
End If
End Sub

　例えば、最初に収の意味でＣ列の奇数行に●を入力したものの、それが間違いだったとして、
発の隣のＣ列の偶数行に●を入力したときに、最初に入力した奇数行の●をクリアしたいのです。

　どうか、教えてください。お願いします。

0 hits

▼

【35439】奇数行に入力したら、下のセルをクリア オタピョン 06/3/4(土) 20:24

≪