用for each 查询价格

qyzman

用for each 查询价格.zip (11.31 KB, 下载次数: 27)

2022-4-9 21:33 上传

点击文件名下载附件

凌空一羽

function test1()
{
        var mc=Range("g8").Value2;
        for (var Rng of Range("a2:a5")){
                var t = Rng.Value2
                if (t==mc ){var r=Rng.Row;}
        }
        var lm=Range("h8").Value2;
        for (var Rng of Range("a1:d1")){
                var t = Rng.Value2
                if (t==lm ){var c=Rng.Column;}
        }
        Range("I8").Value2=Cells(r,c).Value2
}

qyzman

凌空一羽 发表于 2022-4-22 21:37
function test1()
{
        var mc=Range("g8").Value2;

以上代码运行不到

紫色海水

1. var c = ActiveSheet.Cells;
   
2. var m = new Map();
   
3. for(var i=2;i<6;i++){
   
4.         var str = c.Item(i,1).Value2;
   
5.         var n1 = c.Item(i,2).Value2;
   
6.         var n2 = c.Item(i,3).Value2;
   
7.         var n3 = c.Item(i,4).Value2;
   
8.         str = new Obj(str,n1,n2,n3)
   
9.         m.set(str.name,str)
   
10. }
    
11. function Obj(o1,o2,o3,o4){
    
12.         this['name'] = o1,
    
13.         this['采价'] = o2,
    
14.         this['批价'] = o3,
    
15.         this['零售价'] = o4
    
16. }
    
17. c.Item(8,9).Value2 = m.get(c.Item(8,7).Value2)[c.Item(8,8).Value2]

复制代码

pc087

lyfegf

function searchPire(color, tyte){
        var r = maxIn(1,1,1);
        var y =4,key,dic = {}
        var arr = Range("a1").Resize(r,y).Value2;
        var title = arr.shift()
        var col = title.indexOf(tyte)
        var row = arr.findIndex((x)=>x[0]==color)
        return arr[row][col]
}

zhjlgaojuan

var DataSource ,Headers ,Items

function Init(){
        DataSource = Range("a1:d5").Value2;
        Headers = WorksheetFunction.Transpose(WorksheetFunction.Transpose(Range("a1:d1").Value2));
        Items =WorksheetFunction.Transpose(Range("a1:a5").Value2);
}

function Query(){
        let Header = Range("h8").Value2;
        let Item = Range("g8").Value2;       
        Range("i8").Value2=DataSource[Items.indexOf(Item)][Headers.indexOf(Header)];
}

function Application_SheetChange(Sh, rg)
{
        if (Sh.Name == "sheet"){       
                if (Intersect(rg,Range("a1:d5")) != null) {Init();}
                if (rg.Address() == "$G$8" || rg.Address() == "$H$8") {Query();}
        }
}