VBA多个判断条件下的定义值

geryhe · 发表于 2023-2-7 15:05

1、工作簿内存在“Sheet2（配置表）”，可随时增加定义值
2、Sheet1（sheet1）根据以下条件逐行赋予A列产品、B列借贷方的值；条件如下：
   2.1、Sheet1（sheet1）为随机变量数据，每天随着数据量增加减少行数
   2.2、当$sheet1（sheet1）$【N列：贷方科目】代码为“2203020300”时，【C列：商户代码】为“CH”或“GH”，且【E列：核算类型】为“D”，且【K列：TRANC CODE】当前值与“sheet2（配置表）”中【A列：商户代码】&【C列：项目编码】一致，则$sheet1$A列取值$sheet2（配置表）$C列数据，$sheet1（sheet1）$B列定义为"H"；
   2.3、当$sheet1（sheet1）$【M列：借方科目】代码为“2203020300”时，【C列：商户代码】为“GZPW”或“ZHPW”，且【E列：核算类型】为“A”，且【F列：订单支付方式】当前值与“sheet2(配置表)”中【A列：商户代码】&【C列：项目编码】一致，则$sheet1$A列取值$配置表$C列数据，$sheet1$B列定义为"S"
   2.4、当$sheet1（sheet1）$【Q列：应付凭证借方科目】代码为“2203020300”时，【C列：商户代码】为“GZPW”或“ZHPW”，且【E列：核算类型】为“B”，且【L列：产品核算代码】当前值与“sheet2(配置表)”中【A列：商户代码】&【C列：项目编码】一致，则$sheet1$A列取值$sheet2（配置表）$C列数据，$sheet1$B列定义为"S"
2.5、如未能满足以上条件，则在$sheet1$A列中显示“配置项缺失”

准提部林 · 发表于 2023-2-7 22:32

大約做//未驗證

Xl0000467.rar (50.34 KB, 下载次数: 6)

geryhe · 发表于 2023-2-8 15:24

准提部林发表于 2023-2-7 22:32
大約做//未驗證

谢谢大神提供方案
程序执行无数据展示，新手上路无法分析问题所在，麻烦大神帮忙看看

准提部林 · 发表于 2023-2-8 16:04

geryhe 发表于 2023-2-8 15:24
谢谢大神提供方案
程序执行无数据展示，新手上路无法分析问题所在，麻烦大神帮忙看看

看圖//

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

[求助] VBA多个判断条件下的定义值