qq_25846269的博客

VBA判断条件锁定EXCEL表格单元格值,可以是多区域单区域,并且做了优化

'本功能可以实现通过判断表格第26列的布尔值来决定是否允许用户修改单元格的值 '不允许修改的逻辑为:保存上一次选中单元格的range和range的value '不允许修改的核心方法是给上一次选中的单元格赋值修改前的值

先添加类模块，命名为 MousePositionMousePosition类模块代码：Option ExplicitPrivate Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Declare PtrSafe Function GetInputState Lib "user32" () As LongPublic WithEvents iApp As ..

先上代码：Function GetStr(ByVal rng As String, str As String, Optional i As Long, Optional s As Boolean) '第一个参数rng 为数据源 '第二个参数str 为正则表达式 '第三个参数i 为正则表达式成功匹配的结果列表中的第几个，从0开始，默认为0即第1个 '第四个参数s 为文本[True]或数字[False]，用于剔除数字中的文本内容，默认...

Excel快速录入工具：效果图：效果图插入一个ListBox:调整成自己喜欢的风格 代码存放在Sht1里：Sht3里插入几个表，改好表头和表名，这就是弹出列表框的数据源，还可以插入新的表，表头和表名保持一致Dim Rngs As RangePrivate Sub Worksheet_SelectionChange(ByV...

效果展示：源数据 结果 三球 3 四球 4 *两球 -2 *九球 -9 平手 0 *平/半 -0/0.5 半球 0.5 半球 0.5 半球 0.5 半球 0.5 半球 0.5 半球 0.5 两球 2 一/球半 1/1.5 平/半 0/0....

将WORD中的表格转换到EXCEL中以下代码在WORD中使用Option ExplicitSub word2Excel() Dim iPath As String, iName As String, i As Long, j As Long Dim iEx As Object Dim iWbk As Object Dim iSht As Object...

废话不说，直接上代码：模块名：iGt模块名也可以是其他任意合法名，这里只是我自己取的名字。Option ExplicitDim okCount As Long, noCount As Long, nCount As Long, nRow As LongDim iSht As Worksheet, iErrSht As WorksheetDim iIRibbonUI As IRi...

此方法能将一列生成任意列的列表：Option Explicit 'Callback for rxCol2Cols onActionSub column2Columns(control As IRibbonControl) Application.ScreenUpdating = False Dim iRow As Long, nCol, nRow As ...