|
こんにちは。かみちゃん です。
ponponさん フォローありがとうございます。
>>でクリアしてると思うのですがたとえばB列をdeleteしても形状の違う値を
>形状(B列です)の違う値のことです
何を書いているのかよくわからなくなってしまいました。
B列の値をクリアしたら、C列E列もクリアしたいというのであれば、[#41541]のとおりです。
B列の値を変更したら、私が[#41532]で提示し、ponponさんが[#41537]で再度整理していただいたとおりです。
> ponponさんのPCでは正常でしょうか?
とおっしゃるならば、今時点のコードを再度アップされてはいかがでしょうか?
なお、[#41537]の補足説明も参考にしてください。
それと、その後の結果報告がないように思うのですが、その上で新たなご質問をされるのは、どうかと思います。
> 削除するのは Or .Value = "" ←この分でよろしかったでしょうか
そうです。まずは、試してみませんか?
> これだとするとC,E列いままでOKだった数値が表示されなくなってしまう
意味がわかりません。
B列の値をクリアしているのですから、同じ行のC、E列もクリアされるのは、当然だと思いますが・・・
C列、E列の他の行の値まで消すものではありません。。。
> C列に式と記入した場合通常は1式なので数量(D列)に1を記入できませんか
新しい質問でしょうか?
If .Column <= 1 Or .Column >= 4 Or _
.Row = 1 Then End
Select Case .Column
Case 1
If .Offset(, 1).Value = "" Then Exit Sub
hinmei = .Value
keijyou = .Offset(, 1).Value
GoTo kakuninEvent
Case 2
If .Offset(, -1).Value = "" Then Exit Sub
hinmei = .Offset(, -1).Value
keijyou = .Value
GoTo kakuninEvent
Case 3
If .Value = "式" Then
Application.EnableEvents = False
.Offset(, 1).Value = 1
Application.EnableEvents = True
End If
End Select
としてみてください。
あと、発言後に訂正や追加発言があるようですが、投稿時にパスワードを入力して
おくことによって発言した内容を削除することができます。
訂正や追加発言があるならば、いったん削除して再投稿していただけないでしょうか?
スレッドが伸びて、どこの発言にレスをつけたらいいかわからなくなりますし、そ
もそも質問の全体像がつかめなくなります。
|
|