求助 (请明确提问的标题 ---Emily)

来生缘 · 发表于 2005-3-19 13:08

还是没明白，最好上传表格看看

ham · 发表于 2005-3-19 13:28

传不上来呀

shuiyuan · 发表于 2005-3-19 13:29

文件先压缩

ham · 发表于 2005-3-19 13:31

1

dJBBSXJn.rar (11.43 KB, 下载次数: 14)

ham · 发表于 2005-3-19 14:04

随缘大师你好以上内容就是那次我想达到效果。其实该aaa里还有几张表效果我已经很满意了。在这里真的能长不少见识，通过制作aaa我也学到了一点知识。再次谢谢

shuiyuan · 发表于 2005-3-19 14:13

不必客气，欢迎常来

ham · 发表于 2005-3-19 17:01

来生缘你好

你刚才讲的poet还是不对我的意思是excil是打开的，从其它表切换到垓表时执行一次

Private Sub Worksheet_Change(ByVal Target As Range) Dim r, c r = Target.Row c = Target.Column Cells.Interior.ColorIndex = xlNone Columns(c).Interior.ColorIndex = 1 Columns(c + 1).Interior.ColorIndex = 1 Columns(c - 1).Interior.ColorIndex = 1 Columns(c - 2).Interior.ColorIndex = 1 Columns(c - 3).Interior.ColorIndex = 1 Columns(c - 4).Interior.ColorIndex = 1

End Sub

ham · 发表于 2005-3-19 17:06

sry open

来生缘 · 发表于 2005-3-19 17:13

还是没明白你的要求

来生缘 · 发表于 2005-3-19 17:15

把代码写在sheet2的selectchange试试

		自动登录	找回密码
密码			免费注册