:!: โปรดทราบ 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

การใช้ Data Validation กับ combo box(Active X)

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

Re: การใช้ Data Validation กับ combo box(Active X)

#21

Postby sakajohn » Mon Nov 21, 2016 3:44 pm

snasui wrote::D กรณี B2 หรือ B4 สามารถใช้ Or เข้ามาช่วยได้ครับ การอ้างอิงตามลักษณะที่ถามมานั้นเหมือนกันครับ


If Target.Address <> [b2].Address or Target.Address <> [b4].Address Then
Application.EnableEvents = True
Exit Sub
มันไม่ขึ้นเลยครับ
ผมลองเขียน If Target.Address = ("b2") Then
Application.EnableEvents = True
Exit Sub
กลายเป็นว่า ทุกช่องขึ้น combo boxหมด ยกเว้น cell B2 ครับ หรือผมต้องใช้ <> ไม่เท่ากับ เหมือนกันครับ

User avatar
DhitiBank
Gold
Gold
Posts: 1567
Joined: Mon Oct 15, 2012 12:07 am

Re: การใช้ Data Validation กับ combo box(Active X)

#22

Postby DhitiBank » Mon Nov 21, 2016 4:06 pm

ลองปรับจาก or เป็น and ดูครับ

If Target.Address <> [b2].Address And Target.Address <> [b4].Address Then

sakajohn
Member
Member
Posts: 98
Joined: Tue Aug 06, 2013 10:55 am

Re: การใช้ Data Validation กับ combo box(Active X)

#23

Postby sakajohn » Mon Nov 21, 2016 5:07 pm

ผมแนบไฟล์มาให้ดูเลยครับ ไฟล์นี้เป็นไฟล์ต้นฉบับครับ ที่Sheet 1 จะให้ combo box ขึ้นที่ cell C7 และะ C12 ตาม code ที่แนะนำมา ผมก็ใช้ and ปรากฏว่าไม่ได้ครับ มันจะโชว์แต่ที่ Cell C12 แต่นำcodeนี้ไปลองกลับไฟล์อื่น ทำได้ครับ งงมาก

Code: Select all

If Target.Address <> [C7].Address And Target.Address <> [C12].Address Then
    Application.EnableEvents = True
    Exit Sub

ต้องปรับยังไงดีครับ
You do not have the required permissions to view the files attached to this post.

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

Re: การใช้ Data Validation กับ combo box(Active X)

#24

Postby snasui » Mon Nov 21, 2016 7:13 pm

DhitiBank wrote:2016-11-21 15_33_40-Microsoft Visual Basic for Applications - combo box.xlsm [break] - [Sheet1 (Code.png

อาจารย์ครับ range.Validation.Type เป็นการเช็คอะไรครับ ทำไมผมลองคีย์ใน immediate window เพื่อดูค่ากลับแสดงค่าผิดพลาดว่า "Application-defined of Object-defined error" ครับ


:D เดิมที Code นั้นใช้ร่วมกับ Validation ก็เลยเป็นการตรวจสอบว่าเป็น Validation Type ใด เช่น ตัวเลข วันที่ สูตร เป็นต้น ดูเพิ่มเติมที่นี่ครับ :arrow: Validation.Type

สามารถทดสอบโดยการสร้าง Data Validation ไว้ที่เซลล์ใด ๆ แล้วใช้ Immediate Windows เช็คเพื่อดูผลลัพธ์ครับ

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

Re: การใช้ Data Validation กับ combo box(Active X)

#25

Postby snasui » Mon Nov 21, 2016 8:43 pm

:D ลองปรับ Code เป็นด้านล่างครับ

Code: Select all

Private Sub Worksheet_Selectionchange(ByVal Target As Range)
    Dim xStr As String
    Dim xCombox As OLEObject
    Application.EnableEvents = False
    Set xCombox = ActiveSheet.OLEObjects("TempCombo")
    With xCombox
        .ListFillRange = ""
        .LinkedCell = ""
        .Visible = False
        .Top = Target.Top
    End With
    If InStr("$C$7$C$12", Target.Address) = 0 Then
        Application.EnableEvents = True
        Exit Sub
    End If
    xStr = "Sheet1!J2:J51"
    With xCombox
        .Visible = True
        .Left = Target.Left
        .Top = Target.Top
        .Width = Target.Width + 5
        .Height = Target.Height + 5
        .ListFillRange = xStr
        .LinkedCell = Target.Address
    End With
    xCombox.Activate
    Me.TempCombo.DropDown
    Application.EnableEvents = True
End Sub

sakajohn
Member
Member
Posts: 98
Joined: Tue Aug 06, 2013 10:55 am

Re: การใช้ Data Validation กับ combo box(Active X)

#26

Postby sakajohn » Mon Nov 21, 2016 9:40 pm

อาจารย์ครับผมลองปรับ code เพื่อให้เลือกค่าในแต่ละตารางครับ โดย Cell C7 เลือกค่าใน Cell H2:H3 , Cell C12 เลือกค่าใน Cell J2:J51 และ Cell C17 เลือกค่าใน G2:G10

Code: Select all

"Other code"
If InStr("$C$7$C$12$C$17", Target.Address) = 0 Then
        Application.EnableEvents = True
        Exit Sub
    End If
    xStr = "Sheet1!J2:J51"
    With xCombox
        .Visible = True
        .Left = Target.Left
        .Top = Target.Top
        .Width = Target.Width + 5
        .Height = Target.Height + 5
        .ListFillRange = xStr
        .LinkedCell = Target.Address
    End With
    xCombox.Activate
    Me.TempCombo.DropDown
    Application.EnableEvents = True
    If InStr("$C$7", Target.Address) = 0 Then
        Application.EnableEvents = True
        Exit Sub
    End If
    xStr = "Sheet1!H2:H3"
    With xCombox
        .Visible = True
        .Left = Target.Left
        .Top = Target.Top
        .Width = Target.Width + 5
        .Height = Target.Height + 5
        .ListFillRange = xStr
        .LinkedCell = Target.Address
    End With
    xCombox.Activate
    Me.TempCombo.DropDown
    Application.EnableEvents = True
    If InStr("$C$17", Target.Address) = 0 Then
        Application.EnableEvents = True
        Exit Sub
    End If
    xStr = "Sheet1!G2:G10"
    With xCombox
        .Visible = True
        .Left = Target.Left
        .Top = Target.Top
        .Width = Target.Width + 5
        .Height = Target.Height + 5
        .ListFillRange = xStr
        .LinkedCell = Target.Address
    End With
    xCombox.Activate
    Me.TempCombo.DropDown
    Application.EnableEvents = True
End Sub

Cell C7 กับ Cell C12 ไม่มีปัญหาได้ตามที่ต้องการ แต่ Cell C17 ไม่ได้ตามต้องการครับ
You do not have the required permissions to view the files attached to this post.

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

Re: การใช้ Data Validation กับ combo box(Active X)

#27

Postby snasui » Mon Nov 21, 2016 10:15 pm

:D พยายามทำความเข้าใจตัวแปร การเขียน Code ลักษณะนั้นให้เลือกใช้ตัวแปรแทนที่จะเขียนเข้าไปทุกเงื่อนไข

จาก Statement นี้ xStr = "Sheet1!J2:J51"

ให้นำการรตัดสินใจเข้ามาช่วย ยกตัวอย่างเช่นด้านล่างครับ

Code: Select all

If target.address = "$C$7" then
   xStr = "Sheet1!H2:H13"
elseif target.address = "$C$12" then
   xStr = "Sheet1!J2:J51"
elseif target.address = "$C$17" then
   xStr = "Sheet1!G2:G10"
end if

sakajohn
Member
Member
Posts: 98
Joined: Tue Aug 06, 2013 10:55 am

Re: การใช้ Data Validation กับ combo box(Active X)

#28

Postby sakajohn » Mon Nov 21, 2016 10:58 pm

ได้แล้วครับอาจารย์ขอบคุณมากครับ ตรง $C$12" กับ $C$17" ต้องเพิ่ม " เข้าไปข้างหน้าด้วยใช่ไหมครับ

Code: Select all

If target.address = "$C$7" then
   xStr = "Sheet1!H2:H13"
elseif target.address = "$C$12" then
   xStr = "Sheet1!J2:J51"
elseif target.address = "$C$17" then
   xStr = "Sheet1!G2:G10"
end if

sakajohn
Member
Member
Posts: 98
Joined: Tue Aug 06, 2013 10:55 am

Re: การใช้ Data Validation กับ combo box(Active X)

#29

Postby sakajohn » Mon Nov 21, 2016 11:14 pm

อาจารย์ครับ พอเราเลือก Share workbook มันขึ้น error "ไม่สามารถใช้ TOP ของคลาส OLEObject ได้" พอClick End ที่ทำมาก็ใช้ไม่ได้เลยครับ

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

Re: การใช้ Data Validation กับ combo box(Active X)

#30

Postby snasui » Mon Nov 21, 2016 11:42 pm

:D ไฟล์ที่มี VBA มันแชร์ไม่ได้ VBA จะไม่สามารถทำงานได้บนไฟล์แชร์ครับ

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

Re: การใช้ Data Validation กับ combo box(Active X)

#31

Postby snasui » Mon Nov 21, 2016 11:49 pm

sakajohn wrote:ตรง $C$12" กับ $C$17" ต้องเพิ่ม " เข้าไปข้างหน้าด้วยใช่ไหมครับ


:thup: ใช่ครับ ผมคีย์ตกไปครับ

User avatar
DhitiBank
Gold
Gold
Posts: 1567
Joined: Mon Oct 15, 2012 12:07 am

Re: การใช้ Data Validation กับ combo box(Active X)

#32

Postby DhitiBank » Wed Nov 23, 2016 1:42 pm

snasui wrote:
DhitiBank wrote:2016-11-21 15_33_40-Microsoft Visual Basic for Applications - combo box.xlsm [break] - [Sheet1 (Code.png

อาจารย์ครับ range.Validation.Type เป็นการเช็คอะไรครับ ทำไมผมลองคีย์ใน immediate window เพื่อดูค่ากลับแสดงค่าผิดพลาดว่า "Application-defined of Object-defined error" ครับ


:D เดิมที Code นั้นใช้ร่วมกับ Validation ก็เลยเป็นการตรวจสอบว่าเป็น Validation Type ใด เช่น ตัวเลข วันที่ สูตร เป็นต้น ดูเพิ่มเติมที่นี่ครับ :arrow: Validation.Type

สามารถทดสอบโดยการสร้าง Data Validation ไว้ที่เซลล์ใด ๆ แล้วใช้ Immediate Windows เช็คเพื่อดูผลลัพธ์ครับ


ขอบคุณอาจารย์มากครับ :)


Return to “Excel”

Who is online

Users browsing this forum: No registered users and 26 guests