เกียวกับ textbox

[yodpao.b]

อยากถามอาจาร์ 2 ข้อครับ
ข้อ1จากรูปด้านล่าง โดยคำสั่งให้คลิกปุ่มหมายเลข 2 ฟอร์มจะขึ้นมาแล้วค่อยกรอกข้อมูลแล้วคอยสั่งให้มันนำกลับไปลงที่ textboxหมายเลข 1
แต่ว่าเป็นไปได้ไหมถ้าให้คลิกที่ช่องหมายเลข 1 แล้วฟอร์มขึ้นมาเลย พอกรอกในฟอร์มเสร็จแล้วคลิก okในฟอร์มย่อย แล้วข้อมูลก็เด้งไปอยู่ในtextboxหมายเลข 1

22222.GIF

โดคที่ได้ทดลองทำดังนี้ (โคด้อยู่ใtextbox)

Code: Select all

Private Sub TextBox111_Change()
Form3_Search1.Show
End Sub

ผลลัพท์คือตรงคีย์ตัวอักษรก่อนฟอร์มย่อยถึงจะปรากฏขึ้นมา พอคีย์ฟอร์มย่อยแล้วคลิก ok เกิด eeror เพราะคำสั่งไปซ้อนกับโดคที่เห็น
พร้อมกันนี้ได้แนบไฟล์อาจาร์ยได้ทดลอง ชื่อ ฟอร์ม Form3_NamePersonnel_AddData

[yodpao.b]

ข้อ2 จากรูปด้านล่าง ช่อง textbox มีไว้สำหรับเลือกแต่ถ้าลืมแล้วคียลงไปโปรแกรมจะค้าง มีวิธีใดบ้างครับที่ไม่ให้คีย์ได้ หรือคีย์เครื่องฟ้องว่าหาไม่พบ

111111.GIF

[bank9597]

ผมลองเปลี่ยนเป็น ComboBox ให้เลือกชื่อโครงการ แล้วก็แสดงข้อมูลอื่นๆขึ้นมา โดยใช้ VLOOKUP

ไม่รู้จะตรงที่ต้องการไหม ส่วนรายละเอียดอื่น ผมยังไม่ดูเลย (งานตัวเองก็ยุ่งมาก อิอิ)

น่าจะปรับใช้ได้น่ะครับ แต่หากจะให้ถูกต้องทั้งหมด ต้องรออาจารย์ตอบให้น่ะครับ รับรองชัวร์ 100 % อิอิ

[yodpao.b]

ขอบคุณครับเปิดดูไม่ได้ครับเครื่องเป็นexcel2003 แต่หน้าสนใจตรงใช้ VLOOKUP ได้ด้วย
ขอเป็น2003ได้ไหมครับคุณbank9597

[bank9597]

ในส่วนของช่องที่แสดงวันที่ ผมยังไม่เปลี่ยน Format ให้น่ะครับ ยังไงลองดูส่วนนี้เองน่ะครับ

[yodpao.b]

ขอบคุณ คุณbank9597 มากครับ
ถึงจะไม่ตรงแบบที่ผมต้องการ
แต่ที่ดีกว่าคือผมสามรถใช้ VLOOKUP ได้แล้วรับรองว่าใช้ประโยชน์ได้หลายอย่าง
เพิ่งรู้ว่าสามารถให้มันทำใน Textbox ได้โดยไม่ต้องไปใส่สูตรใน excel กลับไปกลับมา ขอบคุณจริง
ช่วยแวะมาดูบางนะครับ ปัญหาของผมเยอะเขียนได้ปีกว่าแต่ไม่รู้ความหมายอะไรเลย

[bank9597]

ไม่เป็นไรครับ ต้องยกเครดิตให้อาจารย์ครับ เพราะอาจารย์คือผู้สอนผมอีกทีนึง

ยังไงหากมีปัญหาที่ลึกลงกว่านี้ คงต้องให้อาจารย์ช่วยน่ะครับ ลำพังผมก็ยังไม่ค่อยรู้อะไรเลยครับ

[yodpao.b]

จากรูปที่ลูกศรชี้ใส่ สกอร์บาร์ได้ไหมครับ(ที่มันเลื่อนขึ้นเลื่อนลง)

1.GIF

[yodpao.b]

รบกวนอาจาร์ยช่วยดู คำถาม โพสต์เมื่อ: 10 พ.ย. 2011 14:24
ขอบคุณครับ

[snasui]

Comment นั้นเป็นของคุณ bank9597 ครับ

[bank9597]

ข้อ2 จากรูปด้านล่าง ช่อง textbox มีไว้สำหรับเลือกแต่ถ้าลืมแล้วคียลงไปโปรแกรมจะค้าง มีวิธีใดบ้างครับที่ไม่ให้คีย์ได้ หรือคีย์เครื่องฟ้องว่าหาไม่พบ

ลองทำตามด้านล่างครับ
ให้เปิดฟอร์มดังกล่าวขึ้นมา แล้วคลิกเลือกที่ TextBox แล้วไปที่แถบ Properties ด้านซ้ายมือ ในแถบ Match Required เป็นค่าจาก False เป็น True

แล้วลอง RUN ดู ลองพิมพ์อักษรลงไปใน TextBox มันจะฟ้องทันหากไม่ตรงกับรายการที่ให้เลือก

untitled.JPG

[snasui]

จากรูปที่ลูกศรชี้ใส่ สกอร์บาร์ได้ไหมครับ(ที่มันเลื่อนขึ้นเลื่อนลง)

1.GIF

ลองปรับเลข 2 ใน Code ด้านล่างเป็นเลขใด ๆ ที่ต้องการ ซึ่งเลข 2 หมายถึงเลื่อนได้เป็น 2 เท่าของความกว้างและความสูงเดิม

Code: Select all

Private Sub UserForm_Initialize()
    With Me
        .ScrollBars = fmScrollBarsBoth
        .ScrollHeight = .InsideHeight * 2
        .ScrollWidth = .InsideWidth * 2
    End With
End Sub

[snasui]

อยากถามอาจาร์ 2 ข้อครับ
ข้อ1จากรูปด้านล่าง โดยคำสั่งให้คลิกปุ่มหมายเลข 2 ฟอร์มจะขึ้นมาแล้วค่อยกรอกข้อมูลแล้วคอยสั่งให้มันนำกลับไปลงที่ textboxหมายเลข 1
แต่ว่าเป็นไปได้ไหมถ้าให้คลิกที่ช่องหมายเลข 1 แล้วฟอร์มขึ้นมาเลย พอกรอกในฟอร์มเสร็จแล้วคลิก okในฟอร์มย่อย แล้วข้อมูลก็เด้งไปอยู่ในtextboxหมายเลข 1

22222.GIF

โดคที่ได้ทดลองทำดังนี้ (โคด้อยู่ใtextbox)

Code: Select all

Private Sub TextBox111_Change()
Form3_Search1.Show
End Sub

ผลลัพท์คือตรงคีย์ตัวอักษรก่อนฟอร์มย่อยถึงจะปรากฏขึ้นมา พอคีย์ฟอร์มย่อยแล้วคลิก ok เกิด eeror เพราะคำสั่งไปซ้อนกับโดคที่เห็น
พร้อมกันนี้ได้แนบไฟล์อาจาร์ยได้ทดลอง ชื่อ ฟอร์ม Form3_NamePersonnel_AddData

ลองใช้ Double Click Event แทน Change Event ซึ่งผู้ใช้ต้อง Double Click TextBox ครับ

จาก

Code: Select all

Private Sub TextBox111_Change()
Form3_Search1.Show
End Sub

เปลี่ยนเป็น

Code: Select all

Private Sub TextBox111_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Form3_Search1.Show
End Sub

[yodpao.b]

จากรูปด้านล่าง จะเห็นว่าเมื่อคีย์ในช่องคำจะขึ้นมาหลายคำซึ่งจะใกล้เคียงกัน คีย์จนกว่าจะเจอคำที่ต้องการแล้วค่อยเลือกหรือม่ก็คีย์จนกว่าจะหมดประโยค ผมอาจจะอธิบายไม่ถูกต้องต้องขอโทษด้วย
แต่ความต้องการช่องนั้นคือลัษณะเหมือนการคีย์ในช่อง Username หรือการค้นหาใน googel ครับ
คำถาม
ในVBA สามารถทำได้ไหมและดูได้จากไหน มีตัวอย่างไหมครับ
ขอบคุณครับ

Untitled.gif

[bank9597]

เป็นการทำ Auto Validation ครับ
ลองศึกษาตามไฟล์ที่แนบให้น่ะครับ
ข้อสังเกตมีอยู่ 3 จุดคือ 1. การกำหนด ชื่อ Define-Name เพื่อทำ Data Validation เป็น Drop Down ให้เลือกรายการ
2. การกำหนดโค๊ดในชีท "Form"
3. การทำกำหนดสูตรในชีท "Name"

ลองศึกษาดูครับ วิธีการนี้ สามารถทำได้อย่างที่คุณต้องการ (อาจารย์คอนเฟิร์มแล้วครับ)

Sample_01.xls

[snasui]

ที่คุณ bank9597 เสนอมานั้นเป็นลักษณะของ Validation แต่เท่าที่อ่านดูกรณีของคุณ yodpao.b คิดว่าเป็นคนละรูปแบบครับ ซึ่งต้องใช้ Event เข้ามาเกี่ยวข้อง เมื่อคีย์เพิ่มไปทีละอักขระก็จะหาข้อมูลให้ไปทีละอักขระตามต้องการ แต่น่าเสียดายที่ Event พวกนั้นใช้ไม่ได้กับภาษาไทย ลอง Search คำถามของคุณ Joo ใน Forum นี้เกี่ยวกับเรื่องนี้เพิ่มเติมดูครับ

[bank9597]

งั้นผมถือเอาโอกาสนี้ ศึกษาเรื่องนี้ต่อเลยครับ เพราะยังทำไม่ได้เหมือนกันครับ

ขอบคุณมากครับ

[yodpao.b]

ลอง Search คำถามของคุณ Joo ใน Forum นี้เกี่ยวกับเรื่องนี้เพิ่มเติมดูครับ

ทำอย่างไรครับ

[snasui]

ลองตามนี้ครับ
ที่ขวามือบนของ Forum นี้คลิกที่ Link การค้นหาขั้นสูงซึ่งอยู่ใต้กล่องค้นหา

ที่หน้าจอค้นหา

1. ที่กล่องคีย์เวอร์ดสำหรับค้นหา คีย์ Dropdown หากไม่ทราบสามารถปล่อยว่างได้
2. ที่กล่องค้นหาจากผู้แต่งคีย์ Joo
3. เลื่อนไปด้านล่างสุดของหน้าจอแล้วคลิกค้นหา

[yodpao.b]

ขอบคุณครับ