摘要:
Private Sub TextBox1_AfterUpdate() TextBox1.Text = Format(CDate(TextBox1.Text), "yyyy/m/d") End Sub Private Sub TextBox1_AfterUpdate() On Error GoTo I 阅读全文
posted @ 2022-12-08 19:06
vba是最好的语言
阅读(672)
评论(0)
推荐(0)
摘要:
Sub font_sty(Rng As Range) Rng.Select Selection.Font.Bold = True With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeCol 阅读全文
posted @ 2022-12-08 13:48
vba是最好的语言
阅读(1078)
评论(0)
推荐(0)
浙公网安备 33010602011771号