Page 1 of 1
การสร้าง DTPicker ไม่ให้ AutoSiz และอยากให้ Focus ตามที่เราต
Posted: Thu Nov 15, 2012 9:15 am
by 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 น่ะครับ
ขอให้อาจารย์และทุกท่านช่วยด้วยครับ
ขอบคุณมาก ๆ ครับ.
Re: การสร้าง DTPicker ไม่ให้ AutoSiz และอยากให้ Focus ตามที่
Posted: Thu Nov 15, 2012 10:30 am
by bank9597
ที่ถามมานั้น ต้องใช้ VBA ช่วยทั้งนั้นเลยครับ ลองหาวิธีและเขียนโค๊ดมาดูก่อนแล้วกันครับ เดี๋ยวอาจารย์คนควนและคนอื่นๆจะเข้ามาช่วยดูให้ครับ
Re: การสร้าง DTPicker ไม่ให้ AutoSiz และอยากให้ Focus ตามที่
Posted: Thu Nov 15, 2012 10:35 am
by Supfile2529
bank9597 wrote: ที่ถามมานั้น ต้องใช้ VBA ช่วยทั้งนั้นเลยครับ ลองหาวิธีและเขียนโค๊ดมาดูก่อนแล้วกันครับ เดี๋ยวอาจารย์คนควนและคนอื่นๆจะเข้ามาช่วยดูให้ครับ
อ่อครับ ขอบคุณครับ กำลังเขียน Code VBA อยู่ครับ
ขอบคุณมาก ๆ ครับ.
Re: การสร้าง DTPicker ไม่ให้ AutoSiz และอยากให้ Focus .
Posted: Fri Nov 16, 2012 8:46 am
by 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 อย่างเดียวครับ อยากให้เพื่อน ๆ และอาจารย์ช่วยไขปัญหานี้ให้ด้วยครับ
ขอบคุณครับ
Re: การสร้าง DTPicker ไม่ให้ AutoSiz และอยากให้ Focus ตามที่
Posted: Fri Nov 16, 2012 9:16 am
by Supfile2529
หรือว่าผมต้อง Set ค่า TabIndex ด้วยหรือเปล่าครับ
แต่ผมเข้าใจว่าค่า TabIndex เป็นค่าที่ได้รับจากการ กด Tab อย่าง
หรือมันเป็นค่าที่ Set Auto ตอนที่เราสร้าง
โอเคครับ ทำได้แล้วครับ
ถ้าติดตรงไหนอีกจะมาถามอีกน่ะครับ ขอบคุณมาก ๆ ครับ.