ผมไม่รู้ กำหนดค่า min และ max ที่ txt1.txt ค่า min คือ 0001 max คือ 0240 อ่ะช่วยผมด้วย
Option Explicit Dim i As Integer Dim response As Variant
Private Sub Command1_Click() If Trim(Me.Text1.Text) = "" Then MsgBox "Please input cell ID (4digit)", vbQuestion, "Please answer me " Me.Text1.SetFocus
|