[讨论]：刚在别的网站上看到个定义单元格格式的东东

heliangyu

从别的地方看到的，不明白其意思，大家共同研究，交流下，上次我的问的问题至今没人给个满意答复呢！
填入59000，显示16°23′20″，但实际数值仍是59000，修改或引用时能看到，此方式效果与单元格格式设置相同（刚写了半天，说没登录，只要重写，郁闷)
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aa As Double
    aa = Target.Formula
    Target.NumberFormat = """" & Int(aa / 3600) & "°" & (Int(aa / 60) - Int(aa / 3600) * 60) & "′" & (aa - Int(aa / 60) * 60) & "″"""
End Sub
不知道怎么用法，因为它的结果不是我所期待的，我的是要输入20.35，显示的是20d21‘00“

azxq

不明白你要什么结果。如果你输入的是秒的话。填入59000，显示16°23′20″，可以另写一格
=int(a1/3600)&"d"&int(a1/60-int(a1/3600)*60)&"f"&a1-int(a1/60)*60
看是不是你需要的？

heliangyu

这不是我所需要的，我要的就是在规定的单元格里填上个带小数的数字，填上之后马上显示出角度格式来，但其值仍是原来那个啊！如果是另外一格，我也不用这么费劲了！

azxq

自己把自己抬起来，这个有点困难，用vba也得有个变量存储。楼主如果不需要显示59000的话，可以隐藏这一列啊。

heliangyu

你们可能没遇到过，实际这东东，有时得填下表格，以得参与运算，我找别人解决吧，我也看过了其他的文章，好象都没什么好方法！唉！

somebody

最初由 heliangyu 发布
[B]从别的地方看到的，不明白其意思，大家共同研究，交流下，上次我的问的问题至今没人给个满意答复呢！
填入59000，显示16°23′20″，但实际数值仍是59000，修改或引用时能看到，此方式效果与单元格格式设置相同（刚... [/B]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim aa As Single
aa = Target.Formula

Target.NumberFormat = """" & Int(aa) & "°" & (Int((aa - Int(aa)) * 60)) & "′" & (Int(((aa - Int(aa)) * 60 - Int((aa - Int(aa)) * 60)) * 60)) & "〃"""[/COLOR]

End Sub