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

ham

Private Sub Worksheet_ham(ByVal Target As Range) Dim r, c r = Target.Row c = Target.Column Cells.Interior.ColorIndex = xlNone Rows(r).Interior.ColorIndex = 26 Columns(c).Interior.ColorIndex = 26 Cells(r, c).Interior.ColorIndex = 0 Cells(r + 1, c).Interior.ColorIndex = 0 Cells(r, c + 1).Interior.ColorIndex = 0 Cells(r - 1, c).Interior.ColorIndex = 0 Cells(r, c - 1).Interior.ColorIndex = 0

End Sub

能否让该代码在每打开（sheet2)时只执行一次，只要不是再次打开（sheet2)，颜色就固定不变

先谢谢了

[此贴子已经被Emily于2005-3-19 15:13:02编辑过]

guangyp

不明白你的目的，请用事件试试看。

ham

各位大虾帮帮忙好吗

来生缘

传你的表上来看看

ham

从sheet1中用HYPERLINK("#sheet2!"&ADDRESS(ROW()-6,COLUMN()*6+170),sheet1!R[33]C[27])进入sheet2,每次只是处理显示区的内容。然后回到sheet1,再用别的连接进入到sheet2的某区域。每次到sheet2后不希望因为点击了其他地方而使得颜色再发生变化

来生缘

那用Private Sub Worksheet_open试试呀

ham

不错 是的 谢谢来生缘 来这里真长见识

ham

sry 好象还不行

我的意识是从1表返回2表后 还要再次从1里点其它单元格进入2里的其它地方 但用Private Sub Worksheet_open后颜色就不变了

来生缘

我想不明白你的意思

ham

1表里a1 a2 a3 a4.... b1 b2 b3 b4...等单元格建立了到达2表的不同区域的链接 。工作时点1表的a2后进入2表的某区域 需要在颜色特殊显示区域的几个单元格输入数据 保存后再返回到1表。再点b3后进入2表的某区域 需要在颜色特殊显示区域的几个单元格输入数据 保存后再返回到1表。 问题是在颜色特殊显示区域的几个单元格输入数据时颜色特殊显示的区域总是随点不同的单元格而变化 能不能在每次进入2表后输入数据时颜色不再变化。