Office中国论坛/Access中国论坛

标题: [求助]如何才能做到这样的效果，高手请帮忙，谢谢： [打印本页]

作者: male520 时间: 2006-3-23 22:50
标题: [求助]如何才能做到这样的效果，高手请帮忙，谢谢：
有一跟单流程表，如果才能实现这样的功能，有高手请帮忙，谢谢~

下载附件里面有详细说明。[attach]16600[/attach]

作者: chen_zhh 时间: 2006-3-24 06:24
高手谈不上，楼主的忙到是可以帮一下的，请试试如何！

按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 时间: 2006-3-24 17:18
谢谢，chen_zhh，我先试一下

作者: male520 时间: 2006-3-24 18:36

以下是引用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 04:47

我可以把文件贴给你
[attach]16787[/attach]

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

作者: ggqggq 时间: 2006-4-10 23:48
uiiyyttyiuyiujjkjklj

作者: NeilChen 时间: 2006-4-17 22:59
其实不需要用到编程的，用条件格式即可，见附件

[attach]17203[/attach]

作者: davidchu 时间: 2006-4-20 17:37
看看怎么回事

作者: jzgpd 时间: 2006-4-21 21:44
条件格式解决是最简单的，学了一招。

作者: kangf 时间: 2006-4-23 06:52
学了一招

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)