- 博客(14)
- 资源 (6)
- 收藏
- 关注
原创 Ubuntu appsmith
Docker 下 Appsmith 安装配置_docker 安装 appsmith_JAVA·D·WangJing的博客-CSDN博客
2023-11-01 15:20:05
87
1
原创 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...
2021-06-19 23:31:33
1786
原创 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..
2021-06-11 12:40:00
2439
1
原创 Excel 数据导入SqlServer 遇到GUID字段的导入问题
Excel导入到SqlServer时,如果SqlServer 表里有GUID字段,导入过程总是出现转换错误。此时需要将Excel表里面GUID字符串用大括号括起来,就可以正常转换了。
2021-06-06 13:08:35
695
原创 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...
2021-06-04 16:31:19
1663
原创 Excel Vba 单元格内容拼接函数,类似PHONETIC,但是添加分隔符
参数: Code:查询的内容 Zone:查询的区域 ColumnIndex:指定返回列的序号 Splitor:行分隔符 '连接字符串,类似PHONETIC,但是可以添加分隔符FunctionConnectString(ZoneAsrange,SplitorAsString)DimcolumnCountAsLong,rowsCountAsLongDimresultStrAsStringDimiAsInteger...
2021-06-04 14:54:20
2152
原创 Excel Vba 查询拼接函数 只返回指定的一列
参数: Code:查询的内容 Zone:查询的区域 ColumnIndex:指定返回列的序号 Splitor:行分隔符 '根据Code编码字符串,在Zone区域的第1列中查找匹配项,如果值等于Code添加指定列数据到返回内容里,返回所有的符合项。FunctionCollectMatchInfoColumn(CodeAsrange,ZoneAsrange,ColumnIndexAsInteger,SplitorAsString)Dim...
2021-06-04 14:52:49
410
原创 Excel Vba 查询拼接函数
'根据Code编码字符串,在Zone区域的第1列中查找匹配项,如果值等于Code添加到返回内容里,返回所有的符合项。SplitorRow查找到的行分隔符,SplitorRow查到数据列之间的分隔符参数: Code:查询的内容 Zone:查询的区域 Splitor:行分隔符 SplitorRow:列分隔符 FunctionCollectMatchInfo2(CodeAsrange,ZoneAsrange,SplitorAsString,Splito...
2021-06-04 14:51:49
725
原创 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...
2021-06-04 14:48:37
1490
原创 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 '从选中区域的最后一个
2021-06-04 14:47:19
717
原创 Excel Vba 双匹配查询,类似Vlookup,能匹配2个关键字
'双匹配查询,和VLookUp函数类似,不同的是可以匹配2个字段KeyCell匹配数据的第一列,MatchCell 匹配数据的第MatchIndex 列,如果2个都相等则返回数据区域第ReturnIndex列的值'KeyCell:第一列匹配的单元格'MatchCell:第二个匹配项目,匹配第MatchIndex列'Zone :数据区域'MatchIndex:第二项匹配的列序号'ReturnIndex:返回值的列序号Function VlookMatch(KeyCell As Range, Mat
2021-06-04 14:46:20
3484
原创 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 ...
2021-06-04 14:44:49
2192
PP.Microsoft.Visio.2013.Business.Process.Diagramming.and.Validation
2016-06-10
开发Microsoft Visio解决方案 中文 pdf电子书
2016-06-05
HTMLAsText V1.11英文绿色版(网页转文本工具 剔除网页中的HTML标记).rar
2010-05-16
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人