谁帮我把这一段写成代码，悬赏了！成功的还给最佳噢

georgeQ

要求所有代码都写在一起 ，要定义英文变量
sub
这里加代码
end sub


if E4=空
msgbox 日期不能为空
回到E4
else
    select case  F4
       =空
       msgbox 类别不能为空
       回到F4单元格
       =收入
          进入收入子程序
       =支出
          进入支出子程序
    end select
end if

'收入子程序
if G4为空 then
  msgbox 收入类别不能为空
  回到G4
      
else
  收入类别=G4的值
      if H4为空 then
         msgbox 金额不能为空
         回到H4
      Else
         金额=H4的值得
      End if
endif

'支出子程序
IF F7为空 then
   Msgbox 支出大类不能为空
   回到F7
      
else
   支出大类=F7的值
   IF G7为空 then
          msgbox 支出分类不能为空
          回到G7
       else
          支出分类=G7
          IF  H7为空 then
            msgbox 发生金额不能为空
            回到H7
          else
            支出金额=H7
          End IF
   End if
Endif

那么的帅

请楼主提供数据附件

georgeQ

我只是要个简单的语句翻译，把上面的所有语句翻译下成VBA语句，结构都是对的了。

georgeQ

自己顶上来

georgeQ

怎么撤销