VBA根据相应的条件定义值

geryhe

1、工作簿内存在“配置表”Sheet，可随时增加定义值

2、Sheet1根据以下条件逐行赋予A列产品、B列借贷方的值；条件如下：
     2.1、当$sheet1$【O列：贷方科目】代码为“2203020300”时，【C列：商户代码】为“CH”或“GH”，且【E列：核算类型】为“D”，且【K列：TRANC CODE】为“配置表sheet”中【A列：商户代码】&【C列：项目编码】一致，则$sheet1$A列取值$配置表$C列数据，$sheet1$B列定义为"H"
     2.2、当$sheet1$【N列：借方科目】代码为“2203020300”时，【C列：商户代码】为“GZPW”或“ZHPW”，且【E列：核算类型】为“A”，且【F列：订单支付方式】为“配置表sheet”中【A列：商户代码】&【C列：项目编码】一致，则$sheet1$A列取值$配置表$C列数据，$sheet1$B列定义为"S"
     2.3、当$sheet1$【R列：应付凭证借方科目】代码为“2203020300”时，【C列：商户代码】为“GZPW”或“ZHPW”，且【E列：核算类型】为“B”，且【L列：产品核算代码】为“配置表sheet”中【A列：商户代码】&【C列：项目编码】一致，则$sheet1$A列取值$配置表$C列数据，$sheet1$B列定义为"S"
    2.4、如未能满足以上条件，则在$sheet1$B列中显示“配置项缺失”

geryhe

请各位大神指教

tanglf188

O列：贷方科目？你自己看看附件

geryhe

tanglf188 发表于 2023-2-6 09:25
O列：贷方科目？你自己看看附件

移位了，没留意到
贷方科目：N列
借方科目：M列
应付凭证借方科目：Q列

geryhe

请问有大神能指导一下吗