公式引用单元格 格式 怎么弄啊？

excelflower

原帖由 1604930 于 2010-11-23 21:29 发表
=IF($B3

8楼是我 没有公式

1604930

附件 有公式

1604930

book2 黄色部分 有公式

excelflower

原帖由 1604930 于 2010-11-23 21:58 发表
附件 有公式

我是说，这个公式不是我的！我的是代码！我的好用

1604930

我晕，我用的是你的代码啊，
可是，我用其他公式，你的代码就不管用了啊。。。你看看附件 黄色部分

excelflower

原帖由 1604930 于 2010-11-23 22:34 发表
我晕，我用的是你的代码啊，
可是，我用其他公式，你的代码就不管用了啊。。。你看看附件 黄色部分

对不起，这个需要定制！

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim MyStrA$, MyStrB$, MyStrC$, Rng As Range
   
3.     If Target.Count <> 1 Then Exit Sub
   
4.     On Error Resume Next
   
5.     MyStrA = Target.Formula
   
6.     MyStrB = Mid(MyStrA, InStr(1, MyStrA, "!") - 5, 5)
   
7.     MyStrC = Mid(MyStrA, InStr(1, MyStrA, "!") + 1, 2)
   
8.     Target.NumberFormatLocal = Sheets(MyStrB).Range(MyStrC).NumberFormatLocal
   
9. End Sub
   
10. 
    
11. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
12.     Dim MyStrA$, MyStrB$, MyStrC$, Rng As Range
    
13.     On Error Resume Next
    
14.     For Each Rng In Selection
    
15.         MyStrA = Rng.Formula
    
16.         MyStrB = Mid(MyStrA, InStr(1, MyStrA, "!") - 5, 5)
    
17.         MyStrC = Mid(MyStrA, InStr(1, MyStrA, "!") + 1, 2)
    
18.         Rng.NumberFormatLocal = Sheets(MyStrB).Range(MyStrC).NumberFormatLocal
    
19.     Next
    
20. End Sub

复制代码

1604930

怎么，代码，放到我表格里，用不了。。。

excelflower

原帖由 1604930 于 2010-11-24 19:26 发表
怎么，代码，放到我表格里，用不了。。。

这个我可没办法，不知道你的表里有什么东西，不喜欢我的代码。

1604930

你的代码，是好东西
看是把book1 的数据，移动到9行后，book2的公式就不可以用了。
另外，我book1的数据有好多，600多行

excelflower

原帖由 1604930 于 2010-11-24 20:20 发表
你的代码，是好东西
看是把book1 的数据，移动到9行后，book2的公式就不可以用了。
另外，我book1的数据有好多，600多行

我重申 这种功能需要定制。公式有变化，代码就要变动！ 我重申！需要定制！.rar (10.75 KB, 下载次数: 9)

2010-11-24 20:31 上传

点击文件名下载附件