导入数据后，把单位包改成公斤，数量值相应增加。

Kikusensei

每月做账，要涉及到工作表中单位和数量的转换，要实现下面的效果，麻烦大神帮忙解决，在此表示感谢！

1、导入每月数据

2、把E7,E8单元格中的包替换成公斤

3、把F7,F8单元格中的数量值改为10625和46875（按每包25公斤计算）

limonet

关键字：iif

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\取得发票.xlsx"
    StrSQL = "Select 销方名称,数电票号码,货物或应税劳务名称,iif(单位='包','公斤',单位),iif(单位='包',25,1)*数量,单价,金额,税率,税额,价税合计,开票日期 From [信息汇总表$]"
    Range("B10").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

3190496160

Qs18

Sub s() With Sheet1     .Range("e7:e8").Value = "公斤"     .Range("f7") = .Range("f7") * 25     .Range("f8") = .Range("f8") * 25 End With End Sub

3190496160

测试.rar (29.54 KB, 下载次数: 10)

2024-6-24 11:38 上传

点击文件名下载附件

Kikusensei

3190496160 发表于 2024-6-24 11:38

完美的解决了工作中的问题，感谢各位大神相助。

LIUZHU

参与下，效果

LIUZHU

JS代码，供参考

1. function 导入数据(){
   
2.         const bt=ThisWorkbook.Sheets.Item("原材料发票入账").Range("a2:l2").Value2[0];
   
3.         [ChDrive,ChDir].forEach(fn=>fn(ThisWorkbook.Path));
   
4.         let fname=Application.GetOpenFilename("Excel文件","*.xls*");
   
5.         if (fname==false) return;
   
6.         Workbooks.Open(fname);
   
7.         let arr=Range("a1").CurrentRegion.Value2;
   
8.         let res=arr.slice(1).map((x,i)=>{
   
9.                 if (x[13]=="包") {x[13]="公斤", x[14]=x[14]*25};                //替换}
   
10.                 return bt.map(y=>x[arr[0].indexOf(y)]);                                        //提取数据
    
11.         })
    
12.         ActiveWorkbook.Close(false);
    
13.         Sheets.Item("原材料发票入账").Range("a3").Resize(res.length, res[0].length).Value2=res;
    
14. }

复制代码

LIUZHU

附件，WPS打开测试