[求助]如何才能做到这样的效果，高手请帮忙，谢谢：

male520

有一跟单流程表，如果才能实现这样的功能，有高手请帮忙，谢谢~

下载附件里面有详细说明。

chen_zhh

高手谈不上，楼主的忙到是可以帮一下的，请试试如何！

按Alt_F9打开VB编辑器，然后双击sheet1,粘贴以下代码:

Dim flag As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo exit_sub
    R = Target.Row: C = Target.Column
    If Target.Value = 0 And flag <> 1 And R >= 5 And R <= 12 Then
        flag = 1
        C = C - 1
        If C = 4 Then C = 12
        Cells(R, C) = ""
        flag = 0
    End If
exit_sub:
End Sub[/QUOTE]

male520

谢谢，chen_zhh，我先试一下

male520

以下是引用chen_zhh在2006-3-23 22:24:00的发言：


高手谈不上，楼主的忙到是可以帮一下的，请试试如何！

按Alt_F9打开VB编辑器，然后双击sheet1,粘贴以下代码:

Dim flag As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo exit_sub
    R = Target.Row: C = Target.Column
    If Target.Value = 0 And flag <> 1 And R >= 5 And R <= 12 Then
        flag = 1
        C = C - 1
        If C = 4 Then C = 12
        Cells(R, C) = ""
        flag = 0
    End If
exit_sub:
End Sub

不行啊，搞不到啊，要怎么搞啊？谢谢

chen_zhh

我可以把文件贴给你

[此贴子已经被作者于2006-3-30 22:33:31编辑过]

ggqggq

uiiyyttyiuyiujjkjklj

NeilChen

其实不需要用到编程的，用条件格式即可，见附件

davidchu

看看怎么回事

jzgpd

条件格式解决是最简单的，学了一招。

kangf

学了一招