| 共 161 篇文章 |
|
函数作用：一键创建斜线表头。Sub 斜分单元格(sht As Worksheet, row As Integer, col As Integer) 阅5 转0 评0 公众公开 22-12-10 00:11 |
函数作用：利用数组和Substitute来替换某字符。Function ArrReplace(myStr As String) As String 阅4 转0 评0 公众公开 22-12-10 00:09 |
函数作用：阴阳历转换和阴阳历生日。说 明：适用于 1901‐2100 年间 ''示 例:=lunar("2006‐11‐1") 求阳历 2006‐11‐1 日对应的阴历；=solar("2006‐1‐1")求阴历 2006 年正月初一对应的阳历；=lunarbirth("1975‐5‐6")阴历生日:阳历 1975 年 5 月 6 日出生,今年阴历生日时对应的阳历日期... 阅14 转0 评0 公众公开 22-12-10 00:07 |
函数作用：清除字符串中的空格。Public Function ClearBlank(ByVal sData As String) As String 阅2 转0 评0 公众公开 22-12-09 23:58 |
函数作用：在指定列中寻找含有指定字符串的单元格，并将符合条件的单元格标为红色，并将对应的下一列单元格赋值为 1。Sub AdvancedFilter() 阅5 转0 评0 公众公开 22-12-09 23:57 |
函数作用：从n位开始取出字符串中的汉字、英文字母、数字。示 例：=myget(srg,1,3)从第 3 位开始取出中文字符；=myget(srg,2)从第 1 位开始取出英文字母，第 3 个参数省略默认为 1；=myget(srg,,5)从第 5 位开始取出数字，第 2 个参数省略默认为 0；=myget(srg)第 2、3 个参数都省略，默认为从第 1 位取出所有数字 阅4 转0 评0 公众公开 22-12-09 23:56 |
函数作用：更改计算机名称。Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long 阅3 转0 评0 公众公开 22-12-09 23:53 |
函数作用：计算机注销/关机/重启。Public Enum sys；sQuit = 0；sClose = 1；sRestore = 2；End EnumPublic Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long 阅1 转0 评0 公众公开 22-12-09 23:51 |
