snasui.com ยินดีต้อนรับ
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งานสูตรและฟังก์ชัน Excel
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
cartoonnet
Member
Posts: 57 Joined: Mon Jul 01, 2013 2:18 pm
Location: Paraguay
Excel Ver: 365
Contact:
#1
Post
by cartoonnet » Thu Feb 11, 2021 8:25 pm
คือผมทำ Drop down หลายชั้นที่เงื่อนไขเชื่อมโยงกัน
เวลาเราทำการเปลี่ยน ดรอบดาว อันแรก ดรอบดาวน์อันที่เหลือจะยังไม่เปลี่ยนทันทีจนกว่าเราจะไปคลิ๊กครับ
คือต้องการให้เปลียนเลยหรือเป็นช่องว่างก่อนก็ได้ครับ ป้องกันคลิ๊กผิดพลาด
ขอบคุณครับ
You do not have the required permissions to view the files attached to this post.
puriwutpokin
Guru
Posts: 3801 Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365
#2
Post
by puriwutpokin » Thu Feb 11, 2021 8:31 pm
การทำแบบนั้นต้องใช้ VBA มาช่วยครับ ลองเขียนมาก่อนหรือบันทึก Macro ดูครับติดตรงไหนมาถามกันต่อครับ
cartoonnet
Member
Posts: 57 Joined: Mon Jul 01, 2013 2:18 pm
Location: Paraguay
Excel Ver: 365
Contact:
#3
Post
by cartoonnet » Thu Feb 11, 2021 8:51 pm
puriwutpokin wrote: Thu Feb 11, 2021 8:31 pm
การทำแบบนั้นต้องใช้ VBA มาช่วยครับ ลองเขียนมาก่อนหรือบันทึก Macro ดูครับติดตรงไหนมาถามกันต่อครับ
ประมาณนี้หรือเปล่าครับ ลองเขียนดูแต่ก็ยัง งงๆครับ
Sub Test1234()
Dim data As String
Range("B1").Select
data = Range("B1").Value
If data = "data in B1" Then
ActiveCell.Value = "B1 data changed"
Else
MsgBox "Data is OK."
End If
End Sub
cartoonnet
Member
Posts: 57 Joined: Mon Jul 01, 2013 2:18 pm
Location: Paraguay
Excel Ver: 365
Contact:
#4
Post
by cartoonnet » Thu Feb 11, 2021 9:20 pm
ผมเขียน ได้มาแบบนี้ครับ
Sub Test1234()
If Range("B1").Select Then
Range("B2:B9").Value = ""
End If
End Sub
คือถ้ามีการเปลี่ยน B1
ให้ลบข้อมูล B2 - b9
ผลคือมันลบครับแต่ลบครั้งเดียว พอเปลี่ยนอีกก็ไม่ลบแล้ว
Last edited by
cartoonnet on Thu Feb 11, 2021 9:25 pm, edited 1 time in total.
snasui
Site Admin
Posts: 31253 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#5
Post
by snasui » Thu Feb 11, 2021 9:21 pm
แนบไฟล์ตัวอย่างมาด้วยจะได้สะดวกกับการตอบของเพื่อนสมาชิก
กรณีเป็น Code กรุณาเขียนแนบมาในไฟล์ด้วยครับ
สำหรับการวาง Code ในกล่องความเห็นควรให้แสดงเป็น Code ดูวิธีการได้จากกฎการใช้บอร์ดข้อ 5 ด้านบนครับ
cartoonnet
Member
Posts: 57 Joined: Mon Jul 01, 2013 2:18 pm
Location: Paraguay
Excel Ver: 365
Contact:
#6
Post
by cartoonnet » Thu Feb 11, 2021 9:32 pm
snasui wrote: Thu Feb 11, 2021 9:21 pm
แนบไฟล์ตัวอย่างมาด้วยจะได้สะดวกกับการตอบของเพื่อนสมาชิก
กรณีเป็น Code กรุณาเขียนแนบมาในไฟล์ด้วยครับ
สำหรับการวาง Code ในกล่องความเห็นควรให้แสดงเป็น Code ดูวิธีการได้จากกฎการใช้บอร์ดข้อ 5 ด้านบนครับ
ขอบคุณมากครับ
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 31253 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#7
Post
by snasui » Thu Feb 11, 2021 9:44 pm
ไฟล์แนบไม่สอดคล้องกับประเด็นปัญหา กรุณาสร้างตัวอย่างมาใหม่ให้เป็นลักษณะของ Dropdown List แบบสัมพันธ์กัน
เป็นไปได้ว่าสามารถเขียนเป็น Condition Formatting เพื่อเติมสีทับ Dropdown ตัวย่อยเอาไว้ก่อนหากว่าตัวหลักที่เลือกก่อนหน้าไม่ใช่ตัวหลักของค่าปัจจุบัน ซึ่งผู้ใช้จะสังเกตได้ว่าจำเป็นต้องเลือกค่านั้นใหม่ครับ
cartoonnet
Member
Posts: 57 Joined: Mon Jul 01, 2013 2:18 pm
Location: Paraguay
Excel Ver: 365
Contact:
#8
Post
by cartoonnet » Thu Feb 11, 2021 9:46 pm
snasui wrote: Thu Feb 11, 2021 9:44 pm
ไฟล์แนบไม่สอดคล้องกับประเด็นปัญหา กรุณาสร้างตัวอย่างมาใหม่ให้เป็นลักษณะของ Dropdown List แบบสัมพันธ์กัน
เป็นไปได้ว่าสามารถเขียนเป็น Condition Formatting เพื่อเติมสีทับ Dropdown ตัวย่อยเอาไว้ก่อนหากว่าตัวหลักที่เลือกก่อนหน้าไม่ใช่ตัวหลักของค่าปัจจุบันครับ
ไฟล์ต้นฉบับขนาดมันใหญ่ไปครับ เดียวผมหาทางลบก่อนนะครับ
cartoonnet
Member
Posts: 57 Joined: Mon Jul 01, 2013 2:18 pm
Location: Paraguay
Excel Ver: 365
Contact:
#9
Post
by cartoonnet » Thu Feb 11, 2021 9:50 pm
snasui wrote: Thu Feb 11, 2021 9:44 pm
ไฟล์แนบไม่สอดคล้องกับประเด็นปัญหา กรุณาสร้างตัวอย่างมาใหม่ให้เป็นลักษณะของ Dropdown List แบบสัมพันธ์กัน
เป็นไปได้ว่าสามารถเขียนเป็น Condition Formatting เพื่อเติมสีทับ Dropdown ตัวย่อยเอาไว้ก่อนหากว่าตัวหลักที่เลือกก่อนหน้าไม่ใช่ตัวหลักของค่าปัจจุบัน ซึ่งก็ผู้ใช้จะสังเกตได้ว่าจำเป็นต้องเลือกค่านั้นใหม่ครับ
ลบออกแล้วครับ
You do not have the required permissions to view the files attached to this post.
cartoonnet
Member
Posts: 57 Joined: Mon Jul 01, 2013 2:18 pm
Location: Paraguay
Excel Ver: 365
Contact:
#10
Post
by cartoonnet » Thu Feb 11, 2021 10:08 pm
คือผมน่าจะเขียนคำสั่งถูกแล้วครับแต่ มันต้องคอยกดปุ่ม Run เองตลอดครับ
Sub M221()
If Range("B1").Activate Then
Range("B2:B9").Value = ""
End If
End Sub
คือผมเขียนว่า ถ้า B1มีการใช้งาน ให้ลบ B2 - B9
มันลบครับแต่ผมต้องกดปุ่ม RUN เองมันไม่รันอัตโนมัติให้ตอนที่มีการใช้ B1ครับ
คือผมเรียกใช้งานไม่เป็นครับเพิ่งเคยเขียน VBA
snasui
Site Admin
Posts: 31253 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#11
Post
by snasui » Thu Feb 11, 2021 10:47 pm
เขียนสูตรใน Conditional Formatting เป็นด้านล่างครับ
=ISNA(MATCH(B2,H2:H1000,0))
ใส่สีพื้นให้เป็นสีเดียวกับตัวอักษร ตามภาพด้านล่างครับ
You do not have the required permissions to view the files attached to this post.
cartoonnet
Member
Posts: 57 Joined: Mon Jul 01, 2013 2:18 pm
Location: Paraguay
Excel Ver: 365
Contact:
#12
Post
by cartoonnet » Thu Feb 11, 2021 10:52 pm
snasui wrote: Thu Feb 11, 2021 10:47 pm
เขียนสูตรใน Conditional Formatting เป็นด้านล่างครับ
=ISNA(MATCH(B2,H2:H1000,0))
ใส่สีพื้นให้เป็นสีเดียวกับตัวอักษร ตามภาพด้านล่างครับ
ทำได้แล้วครับขอบคุณมากครับ