การสร้าง DTPicker ไม่ให้ AutoSiz และอยากให้ Focus ตามที่เราต

[Supfile2529]

การสร้าง DTPicker ไม่ให้ AutoSiz และอยากให้ Focus ตามที่เราต้องการ

1.การสร้าง DTPicker Date เราจะทำยังไงให้ DTPicker เวลาที่เราเปิด File excel(File Run Program) ตัวนี้ขึ้นมาใหม่
เราอยากให้ขนาด ของ DTPicker (Height) ได้ตามที่เราต้องการ หรือเป็นค่าเก่าที่เรา Set ไว้ ตอนก่อนหน้านี้
2.ผมกำลังจะสร้าง Sheet ให้สามารถ Key Data ใน TextBox1 และ Focus ไปอีก TextBox2 หลังจากที่เรากด Enter (เป็นการสร้างใน Sheet น่ะครับ ไม่ได้สร้างที่ Form เราจะสร้าง Focus ได้ไหมครับ.)

Code ผมยังไม่ได้ทำน่ะครับ คือกำลังออกแบบหน้าตา เลยอยากให้ช่วยเรื่อง DTPicker น่ะครับ

ขอให้อาจารย์และทุกท่านช่วยด้วยครับ
ขอบคุณมาก ๆ ครับ.

[bank9597]

ที่ถามมานั้น ต้องใช้ VBA ช่วยทั้งนั้นเลยครับ ลองหาวิธีและเขียนโค๊ดมาดูก่อนแล้วกันครับ เดี๋ยวอาจารย์คนควนและคนอื่นๆจะเข้ามาช่วยดูให้ครับ

[Supfile2529]

ที่ถามมานั้น ต้องใช้ VBA ช่วยทั้งนั้นเลยครับ ลองหาวิธีและเขียนโค๊ดมาดูก่อนแล้วกันครับ เดี๋ยวอาจารย์คนควนและคนอื่นๆจะเข้ามาช่วยดูให้ครับ

อ่อครับ ขอบคุณครับ กำลังเขียน Code VBA อยู่ครับ
ขอบคุณมาก ๆ ครับ.

[Supfile2529]

ถ้าเราต้องการให้ Focus ตรงที่เราต้องการ ต้องทำอย่างไรครับ

Code ตัวอย่างที่ผมเขียนไปแล้ว คือต้องการให้ Focus ตามที่เราต้องการ

Code: Select all

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        StrValue = Me.TextBox1.Value
        Call ChLenAll(StrValue)
        If BlChAll = False Then
            MsgBox ("¡ÃسÒãÊèá¤èµÑÇàÅ¢à·èÒ¹Ñé¹..."), vbInformation + vbOKOnly
            Me.TextBox1.Value = ""
            Me.TextBox1.SetFocus
            Exit Sub
        End If
        Call ChCellPaste(Me.TextBox1.Name)
        Sheets("Main Form").Range("C" & IntSetCell) = Me.TextBox1.Value
        Me.TextBox2.SetFocus
    End If
End Sub

อธิบาย
1. ผมคีย์ตัวเลข และถ้าผมกดคีย์ตัวอักษรลงไปแล้ว กด Enter = Keycode 13 แล้วผมก็ให้ โปรแกรม mid ตำแหน่งเพื่อหา ตัวอักษร
2. ถ้าเจอค่า Boolean ที่ผมตั้งจะ BlChAll = False และจะ Show MSGBOX "กรุณาตัวเลข***"
3. แล้ว Set TextBox1.value=""
4. แล้วให้คง Focus ไว้ที่ TextBox1

แต่นี้ Focus มัน Auto เอง ทั้งที่ผมก็ตั้ง Set Focus TextBox1.SetFocus
ปัญหาอยู่ที่การ Focus อย่างเดียวครับ อยากให้เพื่อน ๆ และอาจารย์ช่วยไขปัญหานี้ให้ด้วยครับ
ขอบคุณครับ

[Supfile2529]

หรือว่าผมต้อง Set ค่า TabIndex ด้วยหรือเปล่าครับ
แต่ผมเข้าใจว่าค่า TabIndex เป็นค่าที่ได้รับจากการ กด Tab อย่าง
หรือมันเป็นค่าที่ Set Auto ตอนที่เราสร้าง


โอเคครับ ทำได้แล้วครับ

ถ้าติดตรงไหนอีกจะมาถามอีกน่ะครับ ขอบคุณมาก ๆ ครับ.