家庭收支管理

zhj_627

前一阵做了一个家庭收支管理文档，用JSA做的，感觉还有许多不足，请大家多提宝贵意见。

家庭收支情况管理.zip (875.42 KB, 下载次数: 77)

2023-9-4 21:28 上传

点击文件名下载附件

fsdbbs

想要点按钮改变颜色的代码，水平问题看不懂，可以帮搞个通用的吗？
如上图，工作表sheet1中有三个形状工具画的按钮，默认设置成白底蓝框，蓝字；每个按钮点一下变成蓝底，白字，其他的白底蓝框，蓝字

1. //遍历所有图形，并根据文本变换颜色
   
2.         for (let shp of Sheets("首页").Shapes){
   
3.                 if (shp.Name.indexOf("bt_type")>=0){
   
4.                         shp.TextFrame.Characters().Text=nameList[n++];
   
5.                         if (nameList[n-1]==selectedName){
   
6.                                 shp.Fill.ForeColor.RGB=RGB(113,207,201);
   
7.                                 shp.TextFrame.Characters().Font.Color=RGB(255,255,255);
   
8.                         }else{
   
9.                                 shp.Fill.ForeColor.RGB=RGB(255,255,255);
   
10.                                 shp.TextFrame.Characters().Font.Color=RGB(113,207,201);
    
11.                         }
    
12.                         if (nameList[n-1]==null){
    
13.                                 shp.Visible=false;
    
14.                         }else{
    
15.                                 shp.Visible=true;
    
16.                         }
    
17.                 }
    
18.         }

复制代码

风从云

这界面这么漂亮怎么设计的 ，

Again123456

fsdbbs 发表于 2023-9-5 14:49
想要点按钮改变颜色的代码，水平问题看不懂，可以帮搞个通用的吗？
如上图，工作表sheet1中有三个形 ...

1. <div class="blockcode"><blockquote>function main(){
   
2.          let i = 1;
   
3.      for ( let shape of ActiveSheet.Shapes){
   
4.          shape.TextFrame.Characters().Text = "按钮"+ i++
   
5.          shape.OnAction = "test"
   
6.      }      
   
7. }
   
8. function test(){      
   
9.         for ( let shape of ActiveSheet.Shapes){
   
10.             if (shape.Name == ActiveSheet.Shapes(Application.Caller()).Name) {
    
11.                 shape.Fill.ForeColor.RGB = 0xff0000
    
12.             shape.TextFrame.Characters().Font.Color= 0xffffff
    
13.         }else {
    
14.             shape.Fill.ForeColor.RGB = 0xffffff
    
15.             shape.TextFrame.Characters().Font.Color = 0x000000
    
16.         }               
    
17.     }      
    
18. }

复制代码

Again123456

fsdbbs

Again123456 发表于 2023-9-6 11:24

收藏起了，非常谢谢！

云起水尽处2022

非常感谢楼主无私分享。