小程序练习

OKJSJSF

OKJSJSF 发表于 2020-7-7 22:30
不知为什么，在辅助列用TRIM函数删4000个单元格的空格，只是一霎那。但用我的《小程序》中的TRIM函数把这些 ...

好像知道慢的原因。因为工作表中有数万个公式单元格，公式引用了小程序正在处理的单元格，每处理一个单元格，都引起公式运算变化，导致，，，，。改选项为手动计算后，处理单元格不引起其它变化，几千行数据也可以立即处理完毕。哎。

liuxi001

一个单元格录入上百字符都是比较少见的，如果有那样的需求行去重自然可以考虑其它方法，字符连接+字典应该是比较通用的方法了吧。

OKJSJSF

liuxi001 发表于 2020-8-10 21:47
一个单元格录入上百字符都是比较少见的，如果有那样的需求行去重自然可以考虑其它方法，字符连接+字典应该 ...

应该是这样。我最终还是这么写代码的了，起点绕了一圈又回到原点。

OKJSJSF

小程序增加了一个任意多字段可见行记录单的功能。增加一簿多表合并透视用SQL命令文本自动生成。
2021/05/11取消打开工作簿自动备份功能，防止与用户设置excel自带的“生成备份文件”时发生冲突导致程序崩溃，最新链接: https://pan.baidu.com/s/1xbqRMvhSIAyv2sDHYUDwXQ 提取码: j6ux 复制这段内容后打开百度网盘手机App，操作更方便哦

补充内容 (2021-5-23 14:37):
删除了可能有破坏性的自动备份功能，增加了创建连接与透视表功能。20210523最新链接: https://pan.baidu.com/s/1UZ3L51E6BO8lknzA_q0XOg 提取码: 741i 复制这段内容后打开百度网盘手机App，操作更方便哦

OKJSJSF

'Callback for customUI.onLoad
Sub Intialize(ribbon As IRibbonUI)
End Sub

'Callback for dropdown onAction
Sub cd(control As IRibbonControl, id As String, index As Integer)
End Sub

'Callback for checkBox onAction
Sub cc(control As IRibbonControl, pressed As Boolean)
End Sub

'Callback for button onAction
Sub cb(control As IRibbonControl)
End Sub

'Callback for button2 onAction
Sub cb2(control As IRibbonControl)
End Sub

'Callback for button21 onAction
Sub cb21(control As IRibbonControl)
End Sub

'Callback for button22 onAction
Sub cb22(control As IRibbonControl)
End Sub

'Callback for button24 onAction
Sub cb24(control As IRibbonControl)
End Sub

'Callback for toggleButton2 getLabel
Sub getLabel2(control As IRibbonControl, ByRef returnedVal)
End Sub

'Callback for toggleButton2 getImage
Sub getImage2(control As IRibbonControl, ByRef returnedVal)
End Sub

'Callback for toggleButton2 onAction
Sub tb2(control As IRibbonControl, pressed As Boolean)
End Sub

'Callback for button3 onAction
Sub cb3(control As IRibbonControl)
End Sub

'Callback for button4 onAction
Sub cb4(control As IRibbonControl)
End Sub

'Callback for button5 onAction
Sub cb5(control As IRibbonControl)
End Sub

'Callback for button6 onAction
Sub cb6(control As IRibbonControl)
End Sub

'Callback for button7 onAction
Sub cb7(control As IRibbonControl)
End Sub

'Callback for button8 onAction
Sub cb8(control As IRibbonControl)
End Sub

'Callback for button9 onAction
Sub cb9(control As IRibbonControl)
End Sub

'Callback for button10 onAction
Sub cb10(control As IRibbonControl)
End Sub

'Callback for button11 onAction
Sub cb11(control As IRibbonControl)
End Sub

'Callback for button12 onAction
Sub cb12(control As IRibbonControl)
End Sub

'Callback for button13 onAction
Sub cb13(control As IRibbonControl)
End Sub

'Callback for button14 onAction
Sub cb14(control As IRibbonControl)
End Sub

'Callback for button15 onAction
Sub cb15(control As IRibbonControl)
End Sub

'Callback for button16 onAction
Sub cb16(control As IRibbonControl)
End Sub

'Callback for button17 onAction
Sub cb17(control As IRibbonControl)
End Sub

'Callback for button18 onAction
Sub cb18(control As IRibbonControl)
End Sub

'Callback for toggleButton getLabel
Sub getLabel(control As IRibbonControl, ByRef returnedVal)
End Sub

'Callback for toggleButton getImage
Sub getImage(control As IRibbonControl, ByRef returnedVal)
End Sub

'Callback for toggleButton onAction
Sub tb(control As IRibbonControl, pressed As Boolean)
End Sub

'Callback for button19 onAction
Sub cb19(control As IRibbonControl)
End Sub

'Callback for button20 onAction
Sub cb20(control As IRibbonControl)
End Sub

'Callback for dialogBoxLauncher onAction
Sub cb23(control As IRibbonControl)
End Sub

OKJSJSF

今天发现小程序还有一个错，改了。在银行工具行政服务中心，单击通讯录listview最末条记录时提示出错35600，index out of bounds。

OKJSJSF

出问题了刚发现：如果EXCEL工作簿中没有用户窗体，宏加载后能正常工作。如果工作簿是宏工作簿，里面已有用户窗体，如非模式用户窗体，当加载了我自制的加载宏后，原工作簿就无法保存录入的数据了。在加载宏中有一个任意字段记录单的功能“全行数据一览无余”，用于在一个窗体中显示太多字段的工作表的一条记录的全部数据，可以在该窗体中修改或添加数据，虽然操作时可以提示保存成功，但实际未保存。不知为何？

OKJSJSF

OKJSJSF 发表于 2021-3-31 07:53
小程序增加了一个任意多字段可见行记录单的功能。增加一簿多表合并透视用SQL命令文本自动生成。
2021/05/1 ...

对记录单增加A4纸打印边界指示与标题显示，增加单元格选区中删除全部数字、字母或汉字功能。20210619最新链接: https://pan.baidu.com/s/1r4GKRIAHN1eSvz2HQsAmgQ 提取码: s3re 复制这段内容后打开百度网盘手机App，操作更方便哦

OKJSJSF

小程序增加了最近练习的18位身份证号校验功能，删除了二个银行专用功能，按钮顺序重排了一下。链接: https://pan.baidu.com/s/10se3-jp8xHZDYqD9ZejvsQ?pwd=5z7g 提取码: 5z7g 复制这段内容后打开百度网盘手机App，操作更方便哦

OKJSJSF

我的小程序，删除了其中数据录入时自动换行的功能，因为数据区域插入表即可实现这个功能，平时用得少没发现。我把这个切换按钮的功能改为8位数变日期或日期变8位数的功能，有时用得着，比写公式方便一点。链接: https://pan.baidu.com/s/1RXnTJBvugRrdeBu32QqsTQ 提取码: msy5 复制这段内容后打开百度网盘手机App，操作更方便哦