简单聊一下WPS.JS

OKJSJSF

各位佳人，新年好！我是OKJSJSF，差点成了OKJSJSA，我想，现在金山相比微软，实用功能就少了一个ACCESS了。希望华为工程师能助上一臂之力，为中国金山补上一个China数据库。

OKJSJSF

原来我有一个计划，想把杨晓亮老师的2003版的《Word vba范例应用》改编为2007版。现在觉得没时间了，我要改学金山Wps的JSA了。在此希望叶枫老师、各位版主与家人朋友在2024年先把《别怕，Excel vba其实很简单》改编为《别怕，Excel jsa 其实很简单》，急等了。

OKJSJSF

粗看了JS代码，觉得可读性不如VBA，稀稀疏疏的，还半个大括号占用屏幕的一行。还多处用二个字符代替VBA代码的一个字符，作用相同。代码中逻辑运算符and or = <>等也变了，不知在WPS工作表函数中and or = <>等运算符是否也改用其他符号了？

中华美德

看见星光 老师你好！！！JSA真的比VBA快好吗？

能用VBA和JSA两种方法解答这个附件吗？

OKJSJSF

yttoeq 发表于 2023-12-21 09:58
经验证测试，已基本实现了连接mysql数据库查询和处理数据，参照链接 https://club.excelhome.net/thread- ...

在知乎网看到郑广学老师实现了在JSA里100%调用VBA代码的方法，可以在JSA里直接操作数据库（WPS JSA 使用ADO 组件 无需第三方插件 单文件直接运行）

OKJSJSF

请问老师下面的代码错在哪？
function msgbox()
{
let str=ActiveCell.Address;
MsgBox(str)
}

xd3210

OKJSJSF 发表于 2024-5-3 14:03
请问老师下面的代码错在哪？
function msgbox()
{

ActiveCell.Address();

OKJSJSF

xd3210 发表于 2024-5-3 16:04
ActiveCell.Address();

晴天霹励啊！

OKJSJSF

JSA编辑器没有VBA那个工作表模块，也没有VBA那个thisworkbook模块，增加了代码所在行的自然数序号，增加了隐藏显示按钮，隐藏按钮是向下的尖头，显示按钮是向右的尖头，每个带大括号 { } 的代码块都有隐藏或显示按钮相对应，它是一种切换按钮，单击隐藏按钮，它就变为显示按钮，再单击又返回隐藏按钮。单击上面第一个会隐藏或显示全部代码，单击其他代码块对应的隐藏或显示按钮，则会隐藏或显示对应的代码块。代码被隐藏后，大括号仍显示着，其中增加了类似“域”的带有半个省略号的灰色底纹。与VBA不同：编辑工具菜单不能拖动，行代码的缩进与凸出设置必须鼠标光标定位在代码左边时直接在菜单的弹出列表中选择。

OKJSJSF

录制了一段宏，对代码进行了精减后如下
function 全行数据一览无余(){
        Range("A1:AA1").Copy();     //复制
        Sheets.Add();     //新建工作表
        Range("B1").PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);     //转置粘贴
        Range("A1").Formula = "1";
        Range("A1").AutoFill(Range("A1:A27"), xlFillDefault);     //填充自然数
        Sheets.Item("Sheet1").Activate();     //切换工作表
        Range("A3:AA3").Copy();
        Sheets.Item("Sheet2").Activate();
        Range("C1").PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, false, true);
        Range("A15:C27").Cut();     //剪切
        Range("D1").Select();
        ActiveSheet.Paste();     //回车粘贴法
        Columns.Item("A:F").AutoFit();     //6列列宽正好容纳
        Range("A1:F14").Select();
        Selection.Interior.Pattern = xlPatternNone;     //填充颜色无
        (obj=>{
                obj.Bold = false;     //字体不加粗
                obj.ColorIndex = xlColorIndexAutomatic;     //颜色自动
        })(Selection.Font);
        (obj=>{
                obj.ColorIndex = xlColorIndexAutomatic;     //边框颜色自动，6种边框可单独设置.item()
                obj.LineStyle = xlContinuous;     //采用细边框
        })(Selection.Borders);
        Range("A1:C14").Borders.Item(xlEdgeRight).LineStyle = xlDouble;     //分栏的边框线采用双线
        Range("G1").Select();
}