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

1604930 · 发表于 2010-11-24 21:14

  代码求解啊。。。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyStrA$, MyStrB$, MyStrC$, Rng As Range
If Target.Count <> 1 Then Exit Sub
On Error Resume Next
MyStrA = Target.Formula
MyStrB = Mid(MyStrA, InStr(1, MyStrA, "!") - 5, 5)
MyStrC = Mid(MyStrA, InStr(1, MyStrA, "!") + 1, 2)
Target.NumberFormatLocal = Sheets(MyStrB).Range(MyStrC).NumberFormatLocal
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyStrA$, MyStrB$, MyStrC$, Rng As Range
On Error Resume Next
For Each Rng In Selection
      MyStrA = Rng.Formula
      MyStrB = Mid(MyStrA, InStr(1, MyStrA, "!") - 5, 5)
      MyStrC = Mid(MyStrA, InStr(1, MyStrA, "!") + 1, 2)
      Rng.NumberFormatLocal = Sheets(MyStrB).Range(MyStrC).NumberFormatLocal
Next
End Sub

学习啊。。有中文解析么，明白了，我自己修改哈

excelflower · 发表于 2010-11-24 21:43

原帖由 1604930 于 2010-11-24 21:14 发表
代码求解啊。。。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyStrA$, MyStrB$, MyStrC$, Rng As Range
If Target.Count 1 Then Exit Sub
On Error Resume Next
MyStr ...

以前各楼的、我的代码真的有错！未考虑行号大于1位数的情况，在这里更正
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyStrA$, MyStrB$, MyStrC$, Rng As Range
If Target.Count <> 1 Then Exit Sub '如果你选择的单元区域中，单元格数量大于1就退出程序。
On Error Resume Next '如果程序发生错误，继续运行下面代码（这里的错误必须是你预见的，且不影响正确结果！)
MyStrA = Target.Formula '把当前单元格公式的字符，赋值给变量。
MyStrB = Mid(MyStrA, InStr(1, MyStrA, "!") - 5, 5) '从公式的字符串中，提取5个字符（Book1）、即是引用的工作表名。
MyStrC = Mid(MyStrA, InStr(1, MyStrA, "!") + 1, InStr(1, MyStrA, ":") - InStr(1, MyStrA, "!") - 1) '从公式的字符串中，提取2个字符（B2）、即是引用的单元格地址。
Target.NumberFormatLocal = Sheets(MyStrB).Range(MyStrC).NumberFormatLocal '当前单元格的数值格式等于引用的单元格格式。
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyStrA$, MyStrB$, MyStrC$, Rng As Range
On Error Resume Next
For Each Rng In Selection '如果你下拉、填充公式，就选取我多个单元格。这里遍历每个单元格，取得相应的格式。
      MyStrA = Rng.Formula
      MyStrB = Mid(MyStrA, InStr(1, MyStrA, "!") - 5, 5)
      MyStrC = Mid(MyStrA, InStr(1, MyStrA, "!") + 1, InStr(1, MyStrA, ":") - InStr(1, MyStrA, "!") - 1)
      Rng.NumberFormatLocal = Sheets(MyStrB).Range(MyStrC).NumberFormatLocal
Next
End Sub

1604930 · 发表于 2010-11-24 22:41

If Target.Count <> 1 Then Exit Sub '如果你选择的单元区域中，单元格数量大于1就退出程序。
?

excelflower · 发表于 2010-11-24 22:47

原帖由 1604930 于 2010-11-24 22:41 发表
If Target.Count 1 Then Exit Sub '如果你选择的单元区域中，单元格数量大于1就退出程序。
?

别哭

这是怎么了？

下一段代码，就允许选择多个单元格的区域。（本来可以写在一起的）

excelflower · 发表于 2010-11-24 22:50

原帖由 1604930 于 2010-11-24 22:41 发表
If Target.Count 1 Then Exit Sub '如果你选择的单元区域中，单元格数量大于1就退出程序。
?

你在本站搜索一下“工作表的CHANGE事件”或“Worksheet_Change”，多看几帖、看看帮助，再试着做一下，就明白了。

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

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

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