随笔分类 -  VBA

摘要：unction product_alphabet(num As Integer) Dim alphabet As String Dim S As Integer Dim str As Integer Dim C As String S = Int(Rnd() * 24 + 1) C = Mid("A0B1C2D3E4F5G6H7I8J9KLMNOPQRSTUVWXYZ", S, 2) product_alphabet = CEnd FunctionFunction product_mac(str As String) Dim i As Integ... 阅读全文

摘要：ASC(text)将字符串中的全角（双字节）英文字母更改为半角（单字节）字符。CHAR(number)返回对应于数字代码的字符。CLEAN(text)删除文本中不能打印的字符。CODE(text)返回文字串中第一个字符的数字代码。返回的代码对应于计算机当前使用的字符集。CONCATENATE (text1,text2,...)将若干文字串合并到一个文字串中。DOLLAR 或 RMB(number,decimals)依照货币格式将小数四舍五入到指定的位数并转换成文字。EXACT(text1,text2)该函数测试两个字符串是否完全相同。函数 EXACT 能区分大小写，但忽略格式上的差异。FIND 阅读全文