Cara membuat tanda kurang otomatis pada textbox di excel

Cara membuat tanda kurang otomatis pada textbox saat input data tanggal pada excel seperti gambar dibawah



Masukkan rumus dibawah ini


Private Sub TextBox4_Change()
If Len(TextBox4.Value) = 2 Then
t = TextBox4.Value
t = t & "-"
TextBox4.Value = t: t = ""
ElseIf Len(TextBox4.Value) = 5 Then
t = TextBox4.Value
t = t & "-"
TextBox4.Value = t: t = ""
End If

End Sub





Share this

Related Posts

Previous
Next Post »