JS宏从入门到放弃教程-JSA的2-12课学习

znppnz

JS宏从入门到放弃教程-JSA（WPS版VBA）
这样也做到达标业绩和月份的目的，有的蒙的，不知对不对，但运行的效果对的，中间不熟悉出错修改很多次，

1. function testsz3(){
   
2. 
   
3.         var obj=Range("A3:M9").Value();
   
4. 
   
5.         for (let strKey in obj){//for in获取obj数组的的索引或字典的键名？“索引似乎是一个字符串而不是数值”？
   
6. 
   
7.         let sum=0
   
8. 
   
9.         for (let i=1;i<=12;i++){
   
10. 
    
11.                 sum +=obj[strKey][i];
    
12. 
    
13.                 Console.log(obj[strKey][i]);
    
14. 
    
15.                 if (sum>=1000){
    
16. 
    
17.                 Cells(Number(strKey)+3,"o").Value2=`${sum}\(${Number(i)}月\)`; //Number(strKey)将索引转换为数字
    
18. 
    
19.                         break;        
    
20. 
    
21.                 }
    
22. 
    
23. //                Cells(11,i).Value2=sum;
    
24. 
    
25. 
    
26. 
    
27.         }
    
28. 
    
29. //                Console.log(strKey);
    
30. 
    
31. //Cells(11,j).Value2=sum;
    
32. 
    
33.                 Console.log("+++++++++++");
    
34. 
    
35.                 Console.log(sum);
    
36. 
    
37. 
    
38. //                sum=0
    
39. 
    
40. //                Console.log(Number(strKey)+3);
    
41. 
    
42. //                Console.log(strKey[2]);
    
43. 
    
44. //                Console.log(strKey[3]);
    
45. 
    
46.                 Console.log("---------------");
    
47. 
    
48.         }
    
49. 
    
50. 
    
51. 
    
52. }

复制代码

everbest2015

感觉语言不管是什么，解决问题好像都是那个思路  

everbest2015

Sub Main()
    Dim sh As Worksheet
    Dim arr
    Dim i%, j%, he%
    Set sh = ThisWorkbook.Sheets("Sheet0")
    arr = sh.Range("a1").CurrentRegion.Value
    For i = 3 To UBound(arr)
        he = 0
        For j = 2 To UBound(arr, 2) - 1
            he = he + Val(arr(i, j))
            If he >= 1000 Then arr(i, 14) = he & "-" & arr(2, j): Exit For
        Next
    Next
    sh.Range("a1").CurrentRegion.Value = arr
End Sub

znppnz

everbest2015 发表于 2024-8-11 19:30
Sub Main()
    Dim sh As Worksheet
    Dim arr

多谢指点，VBA我也只会用别人的比较简单的代码来蒙着改下。看来VBA也系统的学习下办公方面，毕竟js宏还不能实现word和EXCEL互通。我感觉js宏比VBA要简单点，我前些年买了本VBA的书，感觉太难就没学习了。

今铭昔