[[20171017225449]]　『削除してから』（ここ）　ページの最後に飛ぶ

『削除してから』（ここ）

前回質問したのですが過去過ぎて見つからなかつたので新たにお願いします。
このコードなのですが0.6の部分を残業と入力してくれるコードですが
残業と入力する前に0.6の下のセルを一度消して（空白）にしてからもう一度
0.6の下のセルを残業と入力したいのですが申し訳ありませんが教えてください
よろしくお願いします

Sub ボタン159_Click()

ActiveSheet.Unprotect
Dim Rng As Range

     For Each Rng In Range("D6:AK44")
         If Rng.Row Mod 2 = 0 And Rng.Value = 0 Then
               Rng.Offset(1).Value = ""
         ElseIf Rng.Row Mod 2 = 0 And Rng.Value = 0.6 And Len(Rng.Offset(1).Value) = 0 Then
               Rng.Offset(1).Value = "残業"
         End If
     Next Rng

 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 End Sub

＜使用 Excel：Excel2003、使用 OS：WindowsXP ＞

わかっていませんが、これを追加でしょうか

         ElseIf Rng.Row Mod 2 = 0 And Rng.Value = 0.6 And Rng.Offset(1).Value = "残業" Then
               Rng.Offset(1).Value = ""

（マナ） 2017/10/17(火) 23:12

これをどこに追加したらよいのですか
よろしくお願いします
（ここ） 2017/10/17(火) 23:21

どこでもOKです。

（マナ） 2017/10/17(火) 23:30

やってるのですが一度0.6の下のセルを削除してくれないです
やり方が悪いのですか？
手順としては0.6の下のセルを一回削除して
次に改めて0.6の下のセルを残業と入力なんですが色々試しているのですが
どうしても一度消してくれないです
すみませんよろしくお願いします
（ここ） 2017/10/17(火) 23:36

ごめんなさい。質問を理解できていないのかもしれません。
それでだめなら、わたしにはわかりません。

（マナ） 2017/10/17(火) 23:47

 >残業と入力する前に0.6の下のセルを一度消して（空白）にしてからもう一度 
 >0.6の下のセルを残業と入力したいのです

 言葉通りだと

         ElseIf Rng.Row Mod 2 = 0 And Rng.Value = 0.6 And Len(Rng.Offset(1).Value) = 0 Then
               Rng.Offset(1).ClearContents  '<--挿入
               Rng.Offset(1).Value = "残業"
         End If

 だけど、step debugしないと一瞬消えるだけなので確認できる？

（seiya） 2017/10/17(火) 23:53

消えて再度入力されないです
コードの入力の場所が悪いのですか？

（ここ） 2017/10/18(水) 00:01

自分で消してコードを実行すると残業は
入力のされるのですが
自分で消さないと消えませんね？
こんな状況です
（ここ） 2017/10/18(水) 00:04

         ElseIf Rng.Row Mod 2 = 0 And Rng.Value = 0.6 Then  '<--変えた
               Rng.Offset(1).ClearContents  '<--挿入
               Rng.Offset(1).Value = "残業"
         End If
 こういうこと？
（seiya） 2017/10/18(水) 00:10

出来ました
すごいですね！嬉しいです
Seiya様なんてお礼したらいいのか
本当に助かりました。
今回はコードを貼り付けただけでここまで考えていただき
本当にありがとうございました。
何度も言いますが助かりました。
ありがとうございました。

（ここ） 2017/10/18(水) 00:21

コメント返信：

[ 一覧(最新更新順) ]

[[20171017225449]] 『削除してから』（ここ） ページの最後に飛ぶ

[[20171017225449]]　『削除してから』（ここ）　ページの最後に飛ぶ