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

รบกวนช่วยดู code

ฟอรัมถาม-ตอบปัญหาการใช้งาน Macro และ VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

รบกวนช่วยดู code

#1

Post by rich37 »

รบกวนช่วยดู code ให้หน่อยครับว่ามันผิดตรงไหน หากกดปุ่มเพิ่มข้อมูลโดยที่ไม่เติมข้อความใน textbox หลังจากกดตกลงเพื่อปิดข้อความเตือน หากกด ปุ่มปิด หรือ x ชีตที่ซ่อนไว้จะแสดงขึ้นมา ตามไฟล์แนบครับ

Code: Select all

Private Sub CommandButton1_Click()
        Application.ScreenUpdating = False
Dim iname As String
        iname = TextBox1
        Sheets("BBBack").Visible = True
    Sheets("BBBack").Select
With [a65535].Offset.End(xlUp)
.Offset(0, 0) = iname
End With
If Trim(TextBox1.Value) = "" Then
    TextBox1.SetFocus
    MsgBox "ãÊèª×èÍáÅйÒÁÊ¡ØÅ¡è͹"
    Exit Sub
End If
TextBox1.Value = ""
TextBox1.SetFocus
    ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.Save
Unload Me
End Sub
Attachments
ครบนัด.xlsm
(101.96 KiB) Downloaded 14 times
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: รบกวนช่วยดู code

#2

Post by snasui »

:D ตัวอย่างการปรับ Code ครับ

Code: Select all

'--Other code
If Trim(TextBox1.Value) = "" Then
    TextBox1.SetFocus
    ActiveWindow.SelectedSheets.Visible = False
    MsgBox "ใส่ชื่อและนามสกุลก่อน"
    Exit Sub
End If
'--Other code
Top
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: รบกวนช่วยดู code

#3

Post by rich37 »

snasui wrote::D ตัวอย่างการปรับ Code ครับ
ขอบคุณมากครับผม ใช้งานได้ดีแล้ว ไม่มีปัญหา
Top
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: รบกวนช่วยดู code

#4

Post by rich37 »

มีปัญหาตามมาอีกครั้งหลังจากที่กดเพิ่มข้อมูลโดยใส่ข้อมูลแล้ว ชีตที่ซ่อนไว้กลับแสดงออกมา
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: รบกวนช่วยดู code

#5

Post by snasui »

:D ผมทดสอบแล้วไม่พบว่ามีปัญหาเช่นนั้น ลองแนบไฟล์ล่าสุดที่ได้ปรับ Code ด้านบนแล้วมาดูกันครับ
Top
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: รบกวนช่วยดู code

#6

Post by rich37 »

snasui wrote::D ผมทดสอบแล้วไม่พบว่ามีปัญหาเช่นนั้น ลองแนบไฟล์ล่าสุดที่ได้ปรับ Code ด้านบนแล้วมาดูกันครับ
Code ตามนี้ครับ และไฟล์ที่ซ่อนจะแสดงออกมา โดยที่ใช้คำสั่ง xlsheetVeryHidden ด้วยครับ

Code: Select all

Private Sub CommandButton1_Click()
        Application.ScreenUpdating = False
Dim iname As String
        iname = TextBox1
        Sheets("BBBack").Visible = True
    Sheets("BBBack").Select
With [a65535].Offset.End(xlUp)
.Offset(1, 0) = iname
End With
If Trim(TextBox1.Value) = "" Then
    TextBox1.SetFocus
    ActiveWindow.SelectedSheets.Visible = False
    MsgBox "ใส่ชื่อและนามสกุลก่อน"
    Exit Sub
End If
TextBox1.Value = ""
TextBox1.SetFocus
    ActiveWorkbook.Save
Unload Me
End Sub
Attachments
ครบนัด (1).xlsm
(102.21 KiB) Downloaded 15 times
Top
User avatar
puriwutpokin
Guru
Guru
Posts: 3801
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: รบกวนช่วยดู code

#7

Post by puriwutpokin »

ใส่

Code: Select all

Sheets("BBBack").Visible = False
หลัง

Code: Select all

End With
ดูว่าใช่ไหมครับ
:shock: :roll: :D
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: รบกวนช่วยดู code

#8

Post by snasui »

:D Code ที่ผมโพสต์ตอบไปคือใส่เพิ่มเข้าไป ไม่ได้ให้ย้ายบรรทัดหรือลบ Code ที่มีอยู่เดิมทิ้งไปครับ

เดิมมี Code ActiveWindow.SelectedSheets.Visible = False อยู่ใต้บรรทัด TextBox1.SetForcus ก็ให้เก็บไว้เช่นเดิมครับ
Top
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: รบกวนช่วยดู code

#9

Post by rich37 »

puriwutpokin wrote:ใส่

Code: Select all

Sheets("BBBack").Visible = False
หลัง

Code: Select all

End With
ดูว่าใช่ไหมครับ
ขอบคุณครับ จะเอาไปลองดูครับ
snasui wrote::D Code ที่ผมโพสต์ตอบไปคือใส่เพิ่มเข้าไป ไม่ได้ให้ย้ายบรรทัดหรือลบ Code ที่มีอยู่เดิมทิ้งไปครับ

เดิมมี Code ActiveWindow.SelectedSheets.Visible = False อยู่ใต้บรรทัด TextBox1.SetForcus ก็ให้เก็บไว้เช่นเดิมครับ
ขอบคุณครับ ลองทำแล้วได้เลยครับแต่ชีทที่ใช้คำสั่ง xlsheetVeryHidden หลังจากรัน Code มันกลายเป็น xlsheetVisible ครับ จะแก้แบบไหนครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: รบกวนช่วยดู code

#10

Post by snasui »

:D สั่งให้ซ่อนแบบ VeryHidden ใหม่ครับ ตัวอย่างครับ http://stackoverflow.com/questions/8532 ... t-with-vba
Top
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: รบกวนช่วยดู code

#11

Post by rich37 »

snasui wrote::D สั่งให้ซ่อนแบบ VeryHidden ใหม่ครับ ตัวอย่างครับ http://stackoverflow.com/questions/8532 ... t-with-vba
ใส่ Code นี้เข้าไป ชีต Check Date กลับถูกซ่อนไปไม่รู้ว่าใส่ผิดตรงไหนอีกแล้วครับ

Code: Select all

Private Sub CommandButton1_Click()
        Application.ScreenUpdating = False
Dim iname As String
        iname = TextBox1
        Sheets("BBBack").Visible = True
    Sheets("BBBack").Select
With [a65535].Offset.End(xlUp)
.Offset(1, 0) = iname
End With
Sheets("BBBack").Visible = False
If Trim(TextBox1.Value) = "" Then
    TextBox1.SetFocus
    ActiveWindow.SelectedSheets.Visible = False
    MsgBox "ใส่ชื่อและนามสกุลก่อน"
    Exit Sub
End If
TextBox1.Value = ""
TextBox1.SetFocus
ActiveWindow.SelectedSheets.Visible = False
Sheets("BBBack").Visible = xlSheetVeryHidden
ActiveWorkbook.Save
Unload Me
End Sub
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: รบกวนช่วยดู code

#12

Post by snasui »

:D ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
    Dim iname As String
    Application.ScreenUpdating = False
    iname = TextBox1
    Sheets("BBBack").Visible = True
    Sheets("BBBack").Select
    With [a65535].Offset.End(xlUp)
        .Offset(1, 0) = iname
    End With
    If Trim(TextBox1.Value) = "" Then
        TextBox1.SetFocus
        Sheets("BBBack").Visible = xlSheetVeryHidden
        MsgBox "ใส่ชื่อและนามสกุลก่อน"
        Exit Sub
    End If
    Sheets("BBBack").Visible = xlSheetVeryHidden
    ActiveWorkbook.Save
    Unload Me
End Sub
Top
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: รบกวนช่วยดู code

#13

Post by rich37 »

snasui wrote::D ตัวอย่างการปรับ Code ครับ
ขอบคุณครับ ใช้งานได้แล้ว :D
มีอีก 1 เรื่องที่ลองทำแล้วยังไม่สำเร็จ คือ การให้ Msgbox แสดงในเงื่อนไขที่ว่า หากชีต Data เซลส์ L3:L203 มีคำว่า "ครบกำหนด" ( จะไม่ขึ้นทั้งหมด ตามนี้ L3 =IF(ISBLANK(K3),"",IF(K3<TODAY(),"เกินกำหนด",IF(K3<=TODAY(),"ครบกำหนด","ยังไม่ถึงกำหนด"))) )รบกวนช่วยเรื่องนี้ด้วยครับ

Code: Select all

Sub Msgbox_show()
    If Range("L3:L203").Value = "ครบกำหนด" Then
    MsgBox "ครบกำหนดแล้ว"
    End If
End Sub
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: รบกวนช่วยดู code

#14

Post by snasui »

:D การตรวจสอบคำว่า "ครบกำหนด" ตรวจทุกเซลล์หรือเพียงเซลล์ใดเซลล์หนึ่งครับ

ควรแนบไฟล์ประกอบคำถามทุกครั้งเพื่อความสะดวกในการตอบของเพื่อนสมาชิกครับ
Top
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: รบกวนช่วยดู code

#15

Post by rich37 »

snasui wrote::D การตรวจสอบคำว่า "ครบกำหนด" ตรวจทุกเซลล์หรือเพียงเซลล์ใดเซลล์หนึ่งครับ

ควรแนบไฟล์ประกอบคำถามทุกครั้งเพื่อความสะดวกในการตอบของเพื่อนสมาชิกครับ
ตั้งแต่เซลส์ L3 ถึง L203 ครับว่าเซลส์ใด มีคำว่า "ครบกำหนด" ซึ่งจำนวนจะไม่แน่นอนว่ามีกี่เซลส์ ( มาจากวันที่ในเซลส์ K ครับ )
Attachments
ครบนัด (1) (1).xlsm
(103.15 KiB) Downloaded 13 times
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: รบกวนช่วยดู code

#16

Post by snasui »

rich37 wrote:
snasui wrote::D ตัวอย่างการปรับ Code ครับ
ขอบคุณครับ ใช้งานได้แล้ว :D
มีอีก 1 เรื่องที่ลองทำแล้วยังไม่สำเร็จ คือ การให้ Msgbox แสดงในเงื่อนไขที่ว่า หากชีต Data เซลส์ L3:L203 มีคำว่า "ครบกำหนด" ( จะไม่ขึ้นทั้งหมด ตามนี้ L3 =IF(ISBLANK(K3),"",IF(K3<TODAY(),"เกินกำหนด",IF(K3<=TODAY(),"ครบกำหนด","ยังไม่ถึงกำหนด"))) )รบกวนช่วยเรื่องนี้ด้วยครับ

Code: Select all

Sub Msgbox_show()
    If Range("L3:L203").Value = "ครบกำหนด" Then
    MsgBox "ครบกำหนดแล้ว"
    End If
End Sub
:D Code ด้านบนนี้อยู่ใน Module ใดของไฟล์ที่แนบมาล่าสุดครับ :?:
Top
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: รบกวนช่วยดู code

#17

Post by rich37 »

snasui wrote:
rich37 wrote:
snasui wrote::D ตัวอย่างการปรับ Code ครับ
ขอบคุณครับ ใช้งานได้แล้ว :D
มีอีก 1 เรื่องที่ลองทำแล้วยังไม่สำเร็จ คือ การให้ Msgbox แสดงในเงื่อนไขที่ว่า หากชีต Data เซลส์ L3:L203 มีคำว่า "ครบกำหนด" ( จะไม่ขึ้นทั้งหมด ตามนี้ L3 =IF(ISBLANK(K3),"",IF(K3<TODAY(),"เกินกำหนด",IF(K3<=TODAY(),"ครบกำหนด","ยังไม่ถึงกำหนด"))) )รบกวนช่วยเรื่องนี้ด้วยครับ

Code: Select all

Sub Msgbox_show()
    If Range("L3:L203").Value = "ครบกำหนด" Then
    MsgBox "ครบกำหนดแล้ว"
    End If
End Sub
:D Code ด้านบนนี้อยู่ใน Module ใดของไฟล์ที่แนบมาล่าสุดครับ :?:
ยังไม่ได้เอาใส่ไปใน Module ครับผมแค่ทดสอบรันดูมันไม่ได้ครับ
Attachments
Untitled.png
Untitled.png (76.72 KiB) Viewed 261 times
Last edited by rich37 on Mon Feb 13, 2017 9:39 am, edited 1 time in total.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: รบกวนช่วยดู code

#18

Post by snasui »

:D ที่โพสต์ไปนั้นเป็นคำถาม กรุณาอ่านใหม่ช้า ๆ และตอบมาตามที่ถามครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: รบกวนช่วยดู code

#19

Post by snasui »

:D ใส่มาให้เรียบร้อยแล้วแนบไฟล์มาใหม่ ทำตัวอย่างข้อมูลมาด้วยว่าข้อมูลจะมีลักษณะเป็นอย่างไร และหากข้อมูลเป็นเช่นนั้น ผลของ Code นั้นจะแสดงผลอย่างไร จะได้สะดวกในการทำความเข้าใจครับ
Top
rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: รบกวนช่วยดู code

#20

Post by rich37 »

snasui wrote::D ใส่มาให้เรียบร้อยแล้วแนบไฟล์มาใหม่ ทำตัวอย่างข้อมูลมาด้วยว่าข้อมูลจะมีลักษณะเป็นอย่างไร และหากข้อมูลเป็นเช่นนั้น ผลของ Code นั้นจะแสดงผลอย่างไร จะได้สะดวกในการทำความเข้าใจครับ
ผมเอาใส่ใน Module แล้วรันเกิด error ตามรูปประกอบครับ ข้อมูลจะมีลักษณะดังชีตData ครับ และหากข้อมูลในเซลส์ L3 ถึง L203 มีคำว่า "ครบกำหนด" โดยข้อมูลจะอ้างจากเซลส์ K3 ถึง K203 สูตรที่ L3 =IF(ISBLANK(K3),"",IF(K3<TODAY(),"เกินกำหนด",IF(K3<=TODAY(),"ครบกำหนด","ยังไม่ถึงกำหนด")))ก็ให้ Code ทำงาน แสดง Msgbox "ครบกำหนดแล้ว" ครับ
Attachments
Untitled.png
Untitled.png (76.72 KiB) Viewed 256 times
ครบนัด (1) (1).xlsm
(94.33 KiB) Downloaded 16 times
Top
Post Reply

Return to “Excel Macro & VBA”