怎么把填入的数字自动分入已经分好的元角分单元格

YZC51 · 发表于 2020-3-21 19:23

本帖最后由 YZC51 于 2020-3-21 19:58 编辑

wowo000 发表于 2020-3-21 17:55
尊敬的YZC51老师：谢谢您的关注！！不要辅助列，完全用textbox控件代替。要实现俺这想法是很难的，老师如果 ...

如下代码实现，【本月合计】与【本年累计】
Public flg

Sub 合计()
Dim LJ, HJ, LJD, HJD
myr = Range("E65536").End(xlUp).Row
flg = 1
For i = 5 To myr
      If Len(Cells(i, 2)) Then
         LJ = LJ + Cells(i, 8)
         HJ = HJ + Cells(i, 8)
         LJD = LJD + Cells(i, 19)
         HJD = HJD + Cells(i, 19)
      End If
      If Cells(i, 5) = "" Then Exit For
      If Cells(i, 5) = "本月合计" Then
         n = i - 1
         Range("H" & i) = HJ: HJ = 0
         Range("s" & i) = HJD: HJD = 0
         Range("AE" & i) = Range("AE" & n)
      ElseIf Cells(i, 5) = "本年累计" Then
         n = i - 2
         Range("H" & i) = LJ
         Range("s" & i) = LJD
         Range("AE" & i) = Range("AE" & n)
      End If
Next
flg = 0
End Sub

YZC51 · 发表于 2020-3-21 19:24

本帖最后由 YZC51 于 2020-3-21 19:56 编辑

附件请参考

现金账-V2.2.zip (323.49 KB, 下载次数: 16)

wowo000 · 发表于 2020-3-21 20:51

尊敬的YZC51老师：谢谢您！！俺有个思路，即：当“摘要”是“本月合计”或者“本年累计”时，暂时屏蔽TEXTBOX控件录入，这时候VBA代码自动计算该“本月合计、本年累计”上面行每个分了列数据组合的实际金额（比如，132.14元是1、3、2、1、4分列的组合）再将结果分列填充对应的单元格里，如此……。您试试看。谢谢！！

wowo000 · 发表于 2020-3-21 20:54

尊敬的YZC51老师：俺总觉得用辅助列是多余。

YZC51 · 发表于 2020-3-21 22:24

wowo000 发表于 2020-3-21 20:54
尊敬的YZC51老师：俺总觉得用辅助列是多余。

您好！先放放，等思路成熟再说！

jjmysjg · 发表于 2020-3-22 07:48

YZC51 发表于 2020-3-21 22:24
您好！先放放，等思路成熟再说！

耐心、精湛，替楼主谢谢大师

YZC51 · 发表于 2020-3-22 08:07

jjmysjg 发表于 2020-3-22 07:48
耐心、精湛，替楼主谢谢大师

谢谢老师花花鼓励！

YZC51 · 发表于 2020-3-22 08:10

本帖最后由 YZC51 于 2020-3-22 08:16 编辑

jjmysjg 发表于 2020-3-22 07:48
耐心、精湛，替楼主谢谢大师

请老师指教451楼的附件。谢谢老师！
http://club.excelhome.net/thread-1410016-46-1.html

YZC51 · 发表于 2020-3-23 22:43

wowo000 发表于 2020-3-21 17:55
尊敬的YZC51老师：谢谢您的关注！！不要辅助列，完全用textbox控件代替。要实现俺这想法是很难的，老师如果 ...

请查看不需要控件的版本
http://club.excelhome.net/thread-1527572-1-1.html

YZC51 · 发表于 2020-3-25 06:01

请参考

银行日记账20200325.zip (314.45 KB, 下载次数: 22)

		自动登录	找回密码
密码			免费注册

[求助] 怎么把填入的数字自动分入已经分好的元角分单元格

评分

评分

评分

评分

评分

评分