学习日志 全民一起VBA提高篇 第八回 文本字符也是数字，编码函数两界穿梭

学习日志

全民一起VBA提高篇

第八回 文本字符也是数字，编码函数两界穿梭

相关知识点

1、excel工作表中，只能存放1900年以后的日期，所以遇到之前日期，可以先转换为字符串再保存到单元格中。
2、asc() 返回字符对应的编码 如 asc("A")=65
3、chr() 返回数字对应的字符 如 chr(65)="A"
4、chr(13)回车符 chr(10) 换行符

将日期转换为字符串，再赋值给单元格

Option Explicit
Sub dateaddjust1()
Dim i%, j%
j = 0
For i = 4 To 9
If IsDate(Cells(i, 1)) Then
Cells(i, 2) = CStr(dateadd("d", 38, Cells(i, 1)))
Else
Cells(i, 1).Interior.Color = vbRed
j = j + 1
End If
Next i
If j <> 0 Then
MsgBox "请输入正确的日期，格式如1989-03-09"
End If
End Sub

回车符换行符应用

Option Explicit
Sub funnytest()
Dim s$
s = "您好，该功能暂未开放。" & Chr(13) & Chr(10) & "但若您扫二维码发红包，立即可以使用"
MsgBox s
End Sub