财会日期、人民币小写转大写

418080

mschenshan 发表于 2011-10-17 14:08
工具─保护─撤销工作簿／工作表保护【密码均为空】─确定。

谢谢明白拉.2007版本才有此功能吗?2003好象不行对吗?

mschenshan

418080 发表于 2011-10-17 14:11
谢谢明白拉.2007版本才有此功能吗?2003好象不行对吗?

我用的就是03

418080

mschenshan 发表于 2011-10-17 14:08
工具─保护─撤销工作簿／工作表保护【密码均为空】─确定。

之前我一致在想办法怎样隐藏公式,今天终于学到了,感谢!

418080

mschenshan 发表于 2011-10-17 14:16
我用的就是03

看来我是没弄懂拉,你可是高手呀!

正弋老兵

博爱风雨同舟 发表于 2011-10-16 10:01
我的银行管营业部23年接受人行的教育都是这样的。

呵呵，看起来，银行是可以受理的！

yangrongguan

正弋老兵 发表于 2011-10-17 14:34
呵呵，看起来，银行是可以受理的！

从哪儿找的啊  谢谢了  。。。。。。。。。。。

鱼乐大海

tjh680715 发表于 2011-10-17 13:57
5楼的公式得以下结果
2011/10/1        贰零壹壹年零月零日
2011/10/2        贰零壹壹年零月零日

那是公式中的TEXT(DAY(A1),"零[DBNUM2]"),逗号TEXT(DAY(A1),"[DBNUM2]"))"应改为&

鱼乐大海

博爱风雨同舟 发表于 2011-10-16 09:48
=TEXT(YEAR(A1),"[DBNUM2]0")&"年"&IF(OR(MONTH(A1)={1;2;10}),TEXT(MONTH(A1),"零[DBNUM2]"),TEXT(MONTH(A ...

老师考学生，该公式IF函数欠否则项。所以应用上出错。

拼命奔跑的人

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
On Error Resume Next
y = Int(Round(100 * Abs(Target)) / 100)
j = Round(100 * Abs(Target) + 0.00001) - y * 100
f = (j / 10 - Int(j / 10)) * 10
A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")
b = IIf(j > 9.5, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 1, "零", "")))
c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")
Target = IIf(Abs(Target) < 0.005, "", IIf(Target < 0, "负" & A & b & c, A & b & c))
End Sub