Excel Forum

ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/

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

http://snasui.com/viewtopic.php?t=11253

Page 1 of 2

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

Posted: Sun Feb 12, 2017 2:24 am
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

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

Posted: Sun Feb 12, 2017 5:11 am
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

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

Posted: Sun Feb 12, 2017 8:19 am
by rich37
snasui wrote::D ตัวอย่างการปรับ Code ครับ
ขอบคุณมากครับผม ใช้งานได้ดีแล้ว ไม่มีปัญหา

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

Posted: Sun Feb 12, 2017 3:35 pm
by rich37
มีปัญหาตามมาอีกครั้งหลังจากที่กดเพิ่มข้อมูลโดยใส่ข้อมูลแล้ว ชีตที่ซ่อนไว้กลับแสดงออกมา

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

Posted: Sun Feb 12, 2017 6:30 pm
by snasui
:D ผมทดสอบแล้วไม่พบว่ามีปัญหาเช่นนั้น ลองแนบไฟล์ล่าสุดที่ได้ปรับ Code ด้านบนแล้วมาดูกันครับ

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

Posted: Sun Feb 12, 2017 7:03 pm
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

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

Posted: Sun Feb 12, 2017 7:50 pm
by puriwutpokin
ใส่

Code: Select all

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

Code: Select all

End With
ดูว่าใช่ไหมครับ

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

Posted: Sun Feb 12, 2017 9:29 pm
by snasui
:D Code ที่ผมโพสต์ตอบไปคือใส่เพิ่มเข้าไป ไม่ได้ให้ย้ายบรรทัดหรือลบ Code ที่มีอยู่เดิมทิ้งไปครับ

เดิมมี Code ActiveWindow.SelectedSheets.Visible = False อยู่ใต้บรรทัด TextBox1.SetForcus ก็ให้เก็บไว้เช่นเดิมครับ

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

Posted: Sun Feb 12, 2017 9:55 pm
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 ครับ จะแก้แบบไหนครับ

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

Posted: Sun Feb 12, 2017 10:28 pm
by snasui
:D สั่งให้ซ่อนแบบ VeryHidden ใหม่ครับ ตัวอย่างครับ http://stackoverflow.com/questions/8532 ... t-with-vba

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

Posted: Sun Feb 12, 2017 11:43 pm
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

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

Posted: Mon Feb 13, 2017 6:02 am
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

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

Posted: Mon Feb 13, 2017 9:05 am
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

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

Posted: Mon Feb 13, 2017 9:19 am
by snasui
:D การตรวจสอบคำว่า "ครบกำหนด" ตรวจทุกเซลล์หรือเพียงเซลล์ใดเซลล์หนึ่งครับ

ควรแนบไฟล์ประกอบคำถามทุกครั้งเพื่อความสะดวกในการตอบของเพื่อนสมาชิกครับ

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

Posted: Mon Feb 13, 2017 9:25 am
by rich37
snasui wrote::D การตรวจสอบคำว่า "ครบกำหนด" ตรวจทุกเซลล์หรือเพียงเซลล์ใดเซลล์หนึ่งครับ

ควรแนบไฟล์ประกอบคำถามทุกครั้งเพื่อความสะดวกในการตอบของเพื่อนสมาชิกครับ
ตั้งแต่เซลส์ L3 ถึง L203 ครับว่าเซลส์ใด มีคำว่า "ครบกำหนด" ซึ่งจำนวนจะไม่แน่นอนว่ามีกี่เซลส์ ( มาจากวันที่ในเซลส์ K ครับ )

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

Posted: Mon Feb 13, 2017 9:30 am
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 ใดของไฟล์ที่แนบมาล่าสุดครับ :?:

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

Posted: Mon Feb 13, 2017 9:34 am
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 ครับผมแค่ทดสอบรันดูมันไม่ได้ครับ

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

Posted: Mon Feb 13, 2017 9:35 am
by snasui
:D ที่โพสต์ไปนั้นเป็นคำถาม กรุณาอ่านใหม่ช้า ๆ และตอบมาตามที่ถามครับ

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

Posted: Mon Feb 13, 2017 9:41 am
by snasui
:D ใส่มาให้เรียบร้อยแล้วแนบไฟล์มาใหม่ ทำตัวอย่างข้อมูลมาด้วยว่าข้อมูลจะมีลักษณะเป็นอย่างไร และหากข้อมูลเป็นเช่นนั้น ผลของ Code นั้นจะแสดงผลอย่างไร จะได้สะดวกในการทำความเข้าใจครับ

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

Posted: Mon Feb 13, 2017 9:54 am
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 "ครบกำหนดแล้ว" ครับ
All times are UTC+07:00
Page 1 of 2

Powered by phpBB® Forum Software © phpBB Limited