摘要： Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub test()If Cells(Selection.row(), Col_Name).Value <> "" Then ID=ToGet 阅读全文

摘要： '1 ex exchange to how many curFunction GetExchangeRate(ex As String, cur As String) As String On Error GoTo Err Dim url, oHttp, responseText, result, 阅读全文

摘要： 不同的类型常量比较结果：数值<文本<逻辑值FALSE<逻辑值TRUE（错误编码不参与比较，直接返回错误编码） 阅读全文

摘要： 1）[黄色][>=90]"优秀";[绿色][>=60]"合格";[红色]"不合格" 2）[DBNum1][$-804]G/通用格式——将数字显示为简体汉字；[DBNum2][$-804]G/通用格式——将数字显示为繁体汉字；[DBNum3][$-804]G/通用格式——数字不变，加上简体汉字单位； 阅读全文

摘要： Option Explicit '变量显式声明Option Compare Binary '大小写不同Option Base 0 '数组首个元素编号为0 '【函数模板】Function MyTemplate() As Boolean '我的函数模板 '函数开始 Debug.Print Debug.P 阅读全文