:!: โปรดทราบ Image
    1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
    2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
      1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
      2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
    3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
    4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
    5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ ==> กำหนดขนาดตัวอักษรใน Browser Image

ขอวิธีแสดง วันที่ ใน UserForm ครับ

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟลที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
candidshot
Member
Member
Posts: 7
Joined: Wed Jun 13, 2012 3:58 pm

ขอวิธีแสดง วันที่ ใน UserForm ครับ

#1

Postby candidshot » Wed Jan 11, 2017 11:00 pm

1.อยากให้เวลาเรียกใช้ Userform ขึ้นมาแล้ว ในช่อง วันที่ มีค่า วันที่ตั้งต้นเป็นวัน/เดือน/ปี ปัจจุบันครับ และ สามารถแก้ไขวันที่ได้ด้วยครับ
2.กรณีที่ใส่ข้อมูลไม่ครบ แล้วมี ข้อความขึ้นเตือน "fill missing" หลังกด ok
- 2.1 ไม่ให้ ล้างข้อมูลที่ใส่ไว้ก่อนหน้า
- 2.2 และไม่ให้ข้อมูลที่ไม่ครบ กรอกลงที่ปลายทาง ของเวิร์คชีทที่ตั้งไว้



ขอรบกวนทุกท่านด้วยครับ
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 21305
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: ขอวิธีแสดง วันที่ ใน UserForm ครับ

#2

Postby snasui » Thu Jan 12, 2017 7:01 am

:D การใช้ VBA ต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดตรงไหนค่อยถามกันต่อครับ

สำหรับการแสดงวันที่ในลักษณะที่ถามมานั้นสามารถใช้ ComboBox เข้ามาช่วย ลองศึกษาได้ตาม Link นี้ครับ :arrow: ComboBox

candidshot
Member
Member
Posts: 7
Joined: Wed Jun 13, 2012 3:58 pm

Re: ขอวิธีแสดง วันที่ ใน UserForm ครับ

#3

Postby candidshot » Thu Jan 12, 2017 11:23 am

ชอบคุณคุณ คนควน ครับ
combobox คือกดเลือกเอาใช่ไหมครับ ผมต้องการให้มันแสดงเลยตอนที่เปิดฟอร์มขึ้นมา ไม่ทราบว่าสามารถทำได้ไหมครับ


ขอบคุณครับ

ป.ล. code อยู่ด้านล่างครับ



Code: Select all

Dim intRows As Integer
Dim dDate As Date



Private Sub Cblist_Change()

End Sub



Private Sub Cmb2_Click()
                   
                    CbList.Text = ""
                        TbDate.Text = ""
                        TbRc.Text = ""
                        TbStk.Text = ""
                        TbSO.Text = ""
                       TbSh.Text = ""
                       
End Sub
Private Sub Cmb3_Click()
                    Windows(1).Activate
                    ActiveWorkbook.SaveAs Filename:= _
                    "D:\BackpackGiant\BPGA_JOB1cp.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
                    ActiveWorkbook.Close

End Sub

Private Sub Cmb1_Click()

                         'Check Blank TextBox.
                          If CbList.Value = blank Then MsgBox "Fill in missing data.?"
                         If TbDate.Text = blank Then MsgBox "Fill in missing data.?"
                         'If TbRc.Text = blank Then MsgBox "Fill in missing data.?"
                          'If TbStk.Text = blank Then MsgBox "Fill in missing data.?"
                          'If TbSO.Text = blank Then MsgBox "Fill in missing data.?"
                           'If TbSh.Text = blank Then MsgBox "Fill in missing data.?"
                intRows = LastRow + 1
               
               
                        Cells(intRows, 1).Value = TbDate.Text
                        Cells(intRows, 2).Value = CbList.Value
                        Cells(intRows, 3).Value = TbRc.Text
                        Cells(intRows, 4).Value = TbSO.Text
                        Cells(intRows, 5).Value = TbStk.Text
                       Cells(intRows, 6).Value = TbSh.Text
                       
                       
                         
                         
   
                        intRows = intRows + 1
                       TbDate.Text = ""
                        CbList.Value = ""
                        TbRc.Text = ""
                        TbSO.Text = ""
                        TbStk.Text = ""
                       TbSh.Text = ""
                       
                     
                       
End Sub





Private Sub TbDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
     
            'Dim dDate As Date
            today = Date
            'dDate = DateSerial(Year(Date), Month(Date), Day(Date))
            TbDate.Value = Format(TbDate.Value, "dd/mm/yyyy")
            dDate = TbDate.Value
            TbDate.Value = Date
End Sub

User avatar
snasui
Site Admin
Site Admin
Posts: 21305
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: ขอวิธีแสดง วันที่ ใน UserForm ครับ

#4

Postby snasui » Thu Jan 12, 2017 6:04 pm

:D ตัวอย่างการใส่ Code ใน TextBox tbDate ตามด้านล่างครับ

Code: Select all

Private Sub UserForm_Initialize()
    Me.TbDate.Value = Application.Text(Date, "mm/dd/yyyy")
End Sub


สำหรับ Code ด้านล่างเป็นการตรวจสอบเมื่อ TbDate มีการ Update ซึ่งจะถูกตรวจสอบทุกอักขระที่คีย์แม้แต่การลบให้เป็นค่าว่าง จึงไม่เหมาะที่จะนำมาใช้สำหรับการจัดการค่าในช่อง TbDate เพราะจะควบคุมลำบาก แต่ควรใช้ปุ่มอื่นเช่น ปุ่ม Done เข้ามาตรวจสอบแทน ยกตัวอย่างเช่น หากคีย์ไม่เป็นวันที่จะฟ้องให้คีย์ใหม่ เช่นนี้เป็นต้น

Code: Select all

Private Sub TbDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    'Dim dDate As Date
    today = Date
    'dDate = DateSerial(Year(Date), Month(Date), Day(Date))
    TbDate.Value = Format(TbDate.Value, "dd/mm/yyyy")
    dDate = TbDate.Value
    TbDate.Value = Date
End Sub

candidshot
Member
Member
Posts: 7
Joined: Wed Jun 13, 2012 3:58 pm

Re: ขอวิธีแสดง วันที่ ใน UserForm ครับ

#5

Postby candidshot » Thu Jan 12, 2017 10:11 pm

snasui wrote::D ตัวอย่างการใส่ Code ใน TextBox tbDate ตามด้านล่างครับ

Code: Select all

Private Sub UserForm_Initialize()
    Me.TbDate.Value = Application.Text(Date, "mm/dd/yyyy")
End Sub






ขอบคุณครับ ได้อย่างที่ต้องการเลยครับ แต่ว่าหลังผมกด ตกลง(done) เพื่อ กรอกข้อมูล ไปในครั้งแรก วันที่ก็หายไปเลยครับ ให้มันค้างไว้จนจบเลยได้ไหมครับ

candidshot
Member
Member
Posts: 7
Joined: Wed Jun 13, 2012 3:58 pm

Re: ขอวิธีแสดง วันที่ ใน UserForm ครับ

#6

Postby candidshot » Thu Jan 12, 2017 10:13 pm

สำหรับ Code ด้านล่างเป็นการตรวจสอบเมื่อ TbDate มีการ Update ซึ่งจะถูกตรวจสอบทุกอักขระที่คีย์แม้แต่การลบให้เป็นค่าว่าง จึงไม่เหมาะที่จะนำมาใช้สำหรับการจัดการค่าในช่อง TbDate เพราะจะควบคุมลำบาก แต่ควรใช้ปุ่มอื่นเช่น ปุ่ม Done เข้ามาตรวจสอบแทน ยกตัวอย่างเช่น หากคีย์ไม่เป็นวันที่จะฟ้องให้คีย์ใหม่ เช่นนี้เป็นต้น

Code: Select all

Private Sub TbDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    'Dim dDate As Date
    today = Date
    'dDate = DateSerial(Year(Date), Month(Date), Day(Date))
    TbDate.Value = Format(TbDate.Value, "dd/mm/yyyy")
    dDate = TbDate.Value
    TbDate.Value = Date
End Sub
[/quote]


วิธีใช้ปุ่มอื่น พอแนะนำได้ไหมครับ ขอบคุณครับ

User avatar
snasui
Site Admin
Site Admin
Posts: 21305
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: ขอวิธีแสดง วันที่ ใน UserForm ครับ

#7

Postby snasui » Thu Jan 12, 2017 10:25 pm

:D ผมยกตัวอย่างไว้แล้วว่าใช้ปุ่มไหน พร้อมทั้งแนวทางว่าตรวจสอบในลักษณะใด ลองเขียนมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

User avatar
snasui
Site Admin
Site Admin
Posts: 21305
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: ขอวิธีแสดง วันที่ ใน UserForm ครับ

#8

Postby snasui » Thu Jan 12, 2017 11:45 pm

snasui wrote:ขอบคุณครับ ได้อย่างที่ต้องการเลยครับ แต่ว่าหลังผมกด ตกลง(done) เพื่อ กรอกข้อมูล ไปในครั้งแรก วันที่ก็หายไปเลยครับ ให้มันค้างไว้จนจบเลยได้ไหมครับ


:D ใน Sub Cmb1_Click() ลบบรรทัดนี้ทิ้งไปครับ TbDate.Text = ""

candidshot
Member
Member
Posts: 7
Joined: Wed Jun 13, 2012 3:58 pm

Re: ขอวิธีแสดง วันที่ ใน UserForm ครับ

#9

Postby candidshot » Tue Jan 24, 2017 7:47 pm

snasui wrote:
snasui wrote:ขอบคุณครับ ได้อย่างที่ต้องการเลยครับ แต่ว่าหลังผมกด ตกลง(done) เพื่อ กรอกข้อมูล ไปในครั้งแรก วันที่ก็หายไปเลยครับ ให้มันค้างไว้จนจบเลยได้ไหมครับ


:D ใน Sub Cmb1_Click() ลบบรรทัดนี้ทิ้งไปครับ TbDate.Text = ""




ขอบคุณครับ

candidshot
Member
Member
Posts: 7
Joined: Wed Jun 13, 2012 3:58 pm

Re: ขอวิธีแสดง วันที่ ใน UserForm ครับ

#10

Postby candidshot » Tue Jan 24, 2017 7:51 pm

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


อยากทราบวิธีแก้ไขครับ ไม่ให้เกิดเหตุการณ์ ทั้ง 2 เหตุการณ์ ครับ

User avatar
snasui
Site Admin
Site Admin
Posts: 21305
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: ขอวิธีแสดง วันที่ ใน UserForm ครับ

#11

Postby snasui » Tue Jan 24, 2017 8:18 pm

:D ควรจะมีการ Validate หมายถึงตรวจสอบความสมบูรณ์ของข้อมูลที่จำเป็นว่าถูกต้องและมีครบทุกช่อง หากมีไม่ครบทุกช่อง หรือ มีครบแต่ไม่อยู่ในรูปแบบที่กำหนดจะต้องไม่วางลงไปในพื้นที่เป้าหมาย สำหรับการ Validate ให้ลองเขียนมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

candidshot
Member
Member
Posts: 7
Joined: Wed Jun 13, 2012 3:58 pm

Re: ขอวิธีแสดง วันที่ ใน UserForm ครับ

#12

Postby candidshot » Thu Feb 16, 2017 6:24 pm

snasui wrote::D ควรจะมีการ Validate หมายถึงตรวจสอบความสมบูรณ์ของข้อมูลที่จำเป็นว่าถูกต้องและมีครบทุกช่อง หากมีไม่ครบทุกช่อง หรือ มีครบแต่ไม่อยู่ในรูปแบบที่กำหนดจะต้องไม่วางลงไปในพื้นที่เป้าหมาย สำหรับการ Validate ให้ลองเขียนมาเองก่อน ติดแล้วค่อยถามกันต่อครับ


ขอบคุณครับ


Return to “Excel”

Who is online

Users browsing this forum: puriwutpokin and 38 guests