摘要: 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)