webmastor的专栏http://www.anymoe.com

原创 Ubuntu appsmith

Docker 下 Appsmith 安装配置_docker 安装 appsmith_JAVA·Ｄ·WangJing的博客-优快云博客

原创 Excel VBA 对文件 重命名

Sub rename()With Application.ActiveSheetbasePath = Application.ActiveWorkbook.Pathi = 1Do While (.Cells(i, 1) <> "")strFileName = basePath & "\" & .Cells(i, 1) & ".pdf"If Dir(strFileName, 16) <> Empty Then Name strFileNa...

原创 Excel 生成随机字符串

=CHAR(RANDBETWEEN(65,90))A~Z

原创 Excel生成guid【转】

Excel生成guid1、Excel生成guid，uuid 格式：600d65bc-948a-1260-2217-fd8dfeebb1cd=LOWER(CONCATENATE(DEC2HEX(RANDBETWEEN(0,POWER(16,8)),8),-,DEC2HEX(RANDBETWEEN(0,POWER(16,4)),4),-,4,DEC2HEX(RANDBETWEEN(0,POWER(16,3)),3),-,DEC2HEX(RANDBETWEEN(8,11)),DEC2HEX(RANDBE..

原创 Excel 数据导入SqlServer 遇到GUID字段的导入问题

Excel导入到SqlServer时，如果SqlServer 表里有GUID字段，导入过程总是出现转换错误。此时需要将Excel表里面GUID字符串用大括号括起来，就可以正常转换了。

原创 Excel Vba 文件移动到新位置，并重命名文件

'表格第1列为企业盲号，第二列为产品盲号，第三列是源文件地址，第4类用于存放生成的文件地址，第1行为标题行Sub CopyStdFiles() Dim outPutFolder As String Dim filePath As String Dim companyFolder As String Dim productId As String Dim companyId As String Dim sourceFilePath As String...

原创 Excel Vba 单元格内容拼接函数，类似PHONETIC，但是添加分隔符

参数： Code：查询的内容 Zone：查询的区域 ColumnIndex：指定返回列的序号 Splitor：行分隔符 '连接字符串，类似PHONETIC，但是可以添加分隔符FunctionConnectString(ZoneAsrange,SplitorAsString)DimcolumnCountAsLong,rowsCountAsLongDimresultStrAsStringDimiAsInteger...

原创 Excel Vba 查询拼接函数 只返回指定的一列

参数： Code：查询的内容 Zone：查询的区域 ColumnIndex：指定返回列的序号 Splitor：行分隔符 '根据Code编码字符串，在Zone区域的第1列中查找匹配项，如果值等于Code添加指定列数据到返回内容里，返回所有的符合项。FunctionCollectMatchInfoColumn(CodeAsrange,ZoneAsrange,ColumnIndexAsInteger,SplitorAsString)Dim...

原创 Excel Vba 查询拼接函数

'根据Code编码字符串，在Zone区域的第1列中查找匹配项，如果值等于Code添加到返回内容里，返回所有的符合项。SplitorRow查找到的行分隔符，SplitorRow查到数据列之间的分隔符参数： Code：查询的内容 Zone：查询的区域 Splitor：行分隔符 SplitorRow：列分隔符 FunctionCollectMatchInfo2(CodeAsrange,ZoneAsrange,SplitorAsString,Splito...

原创 Excel Vba 得到本文件目录下所有文件路径，写入当前工作表

Sub GetFiles() Application.ScreenUpdating = False Set fso = CreateObject("scripting.filesystemobject") Set ff = fso.getfolder(ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改 ActiveSheet.UsedRange.ClearContents a = 2 Dim...

原创 Excel Vba 纵向合并相同内容的连续单元格

Private Sub MergeSelectonCellsVerticalByContent()Dim a%, b%Dim n As Longn = Selection.Rows.Count '选中区域的行数a = Selection.Row '选中区域的起始行b = Selection.Column '选中区域的起始列Application.DisplayAlerts = False '禁用警告提示For i = a + n - 1 To a + 1 Step -1 '从选中区域的最后一个

原创 Excel Vba 双匹配查询，类似Vlookup，能匹配2个关键字

'双匹配查询，和VLookUp函数类似，不同的是可以匹配2个字段KeyCell匹配数据的第一列，MatchCell 匹配数据的第MatchIndex 列，如果2个都相等则返回数据区域第ReturnIndex列的值'KeyCell：第一列匹配的单元格'MatchCell:第二个匹配项目，匹配第MatchIndex列'Zone :数据区域'MatchIndex:第二项匹配的列序号'ReturnIndex:返回值的列序号Function VlookMatch(KeyCell As Range, Mat

原创 Excel VBA 字符串加工，去除字符串中非数字及非字母字符

Function GetPureName(filename As String)Dim i As Integer Dim s, RstStr As String Dim Bol As Boolean For i = 1 To Len(filename) s = Mid(filename, i, 1) If (s Like "[0-9a-zA-Z]") Then RstStr = RstStr & s End If Next ...

原创 通讯宝(Anymoe.com)