发布网友 发布时间:2023-03-24 01:46
共5个回答
热心网友 时间:2023-10-16 01:00
是不是准备做成这样子啊?
追问是啊是啊、、、类似的、、、是 记账凭证 。求解答、、、非常感谢~~追答
这科目汇总表是用VBA做的。我做过一个凭证,但不是很成功,说一思路给你:
先用Excel设计一完整的记账凭证出来,我用两个textbox控件来处理。textbox1控制输入科目代码时填写科目名称及明细科目,textbox2控制金额的填写。
直接说控制金额的textbox。首先要控制textbox的显示位置,并且只能输入0到9的数字,及负号、小数点,*只能两位小数。输入完成回车后,将这金额写到凭证外面的单独一列(假设放在第28列)存放,然后再进行分割。
一、自定义一个分割函数:
Function weishu(n, wei) '定义,n是待分割数,wei是凭证上的位数1为分,2为角,3为元......
If wei > Len(CStr(n * 100)) Then
weishu = ""
Else
If n = 0 Then
weishu = ""
Else
weishu = VBA.Mid(CStr(n * 100), Len(CStr(n * 100)) - wei + 1, 1)
End If
End If
End Function
二、在固定的某列到某列之间循环,填入合适的单个数字
wei = 1
For ylie = 24 To 3 Step -1 '假设分在第24列,角在第23列,依此类推
Cells(hang, ylie).Value = weishu(Cells(hang, 28).Value, wei) '自定义分割,原值在同行28列
wei = wei + 1
Next ylie
热心网友 时间:2023-10-16 01:01
如图,在B1输入公式,右、下填充公式,完了再把数据复制要想要的地方,选择性粘贴,数值
热心网友 时间:2023-10-16 01:01
用公式的方法前面各位都说了,没错。热心网友 时间:2023-10-16 01:02
B1公式
=MID($A1,COLUMN(A1),1)
右拉
热心网友 时间:2023-10-16 01:02
你说的是分解字符吧,举例如下: