|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
原帖由 1604930 于 2010-11-22 23:03 发表
Book1 B2 内容:“100”,自定义格式“台/桶” 结果为:100台/桶
敢问大神们,如何用公式
Book2 B2 = Book1 B2
公式引用内容就是:数字100+自定义格式“台/桶”
一定要是 公式能引用 自定义格式 的那种啊。 ...
应用在BOOK2。- 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, 2, InStr(1, MyStrA, "!") - 2)
- MyStrC = Mid(MyStrA, InStr(1, MyStrA, "!") + 1)
- Target.NumberFormatLocal = Sheets(MyStrB).Range(MyStrC).NumberFormatLocal
- End Sub
复制代码 |
|