|
|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
原帖由 1604930 于 2010-11-23 22:34 发表 
我晕，我用的是你的代码啊，
可是，我用其他公式，你的代码就不管用了啊。。。你看看附件 黄色部分
对不起，这个需要定制！- 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
|
|
楼主: 1604930
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2010-11-23 21:55
没有公式
楼主
怎么，代码，放到我表格里，用不了。。。