: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

Search found 177 matches

by kio2002
Sun Nov 06, 2016 5:28 pm
Forum: Excel
Topic: รันตัวเลข ถึงแถวตามเงื่อนไขที่กำหนด
Replies: 10
Views: 1700

Re: รันตัวเลข ถึงแถวตามเงื่อนไขที่กำหนด

ผมปรับcodeให้เริ่มรันเลข1 ที่เซลล์A13 มันไม่ยอมรันเลข1ให้ มันรันเป็นเลข13เลยซะงั้น
Range("a13", Range("a" & Rows.Count).End(xlUp).Offset(-1, 0)).Select

และอยากให้รันใน sheet ที่กำหนดเช่น sheet1

รบกวนช่วยปรับให้อีกทีครับ
by kio2002
Sat Nov 05, 2016 7:10 pm
Forum: Excel
Topic: รันตัวเลข ถึงแถวตามเงื่อนไขที่กำหนด
Replies: 10
Views: 1700

รันตัวเลข ถึงแถวตามเงื่อนไขที่กำหนด

สวัสดีสมาชิกทุกท่านครับ พอดีผมจะสร้างปุ่มคลิกแล้วรันตัวเลข ให้ถึงแถวตามเงื่อนไขที่กำหนด โดยจะให้รันเรียง 1,2,3,4,....ลงไปเรื่อยๆครับ สิ่งที่ต้องการคือ เมื่อคลิกปุ่ม รันตัวเลข อยากให้โปรแกรมหาคำว่า stop ที่อยู่ใน column A แล้วให้รันตัวเลขถึงแถวที่อยู่บนคำว่า stop เช่นในไฟล์ที่แนบมา คำว่า stop จะอยู่แ...
by kio2002
Sat Nov 05, 2016 6:49 pm
Forum: Excel
Topic: ขอวิธีสร้าง drop down
Replies: 3
Views: 1075

Re: ขอวิธีสร้าง drop down

ขอบคุณครับ พอมีวิธีปรับตัวหนังสือใน drop down ให้อยู่กึ่งกลางไหมครับ
by kio2002
Sat Nov 05, 2016 2:27 pm
Forum: Excel
Topic: ขอวิธีสร้าง drop down
Replies: 3
Views: 1075

ขอวิธีสร้าง drop down

เรียนสมาชิกทุกท่านครับ
ขอวิธีสร้าง drop down แบบดังรูป
และขอวิธีใช้งานด้วยครับ
by kio2002
Fri Nov 04, 2016 8:25 pm
Forum: Excel
Topic: คลิกที่เซลล์A1แล้วเซลล์B1เติมสีพื้นหลังอัตโนมัติ
Replies: 8
Views: 1834

Re: คลิกที่เซลล์A1แล้วเซลล์B1เติมสีพื้นหลังอัตโนมัติ

สุดยอดไปเลย code ตรงตามที่การแล้วครับ
ขอบคุณคนควน และสมาชิกทุกๆคนนะครับ
เว็บนี้มีประโยชน์อย่างมากเลย
by kio2002
Fri Nov 04, 2016 7:41 pm
Forum: Excel
Topic: เราสามารถกำหนด Textbox1 ให้เปลี่ยนภาษาเองได้หรือไม่ครับ
Replies: 8
Views: 3048

Re: เราสามารถกำหนด Textbox1 ให้เปลี่ยนภาษาเองได้หรือไม่ครับ

คุณ akranan อ่านกฏข้อ5ด้วยนะครับ

5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ
by kio2002
Thu Nov 03, 2016 7:34 pm
Forum: Excel
Topic: คลิกที่เซลล์A1แล้วเซลล์B1เติมสีพื้นหลังอัตโนมัติ
Replies: 8
Views: 1834

Re: คลิกที่เซลล์A1แล้วเซลล์B1เติมสีพื้นหลังอัตโนมัติ

codeใช้ได้ตรงตามที่ต้องการเลยครับ ถ้าหากจะทำเช่นนี้หลายๆเซลล์ สมมุติทำตั้งแต่ระหว่างเซลล์ A1:A50 จะต้องเขียนcodeชุดนี้ทุกเซลล์ไปเรื่อยๆจนถึง50ชุดไหมครับ If Target.Address = Range("A1").Address Then Range("B1").Interior.Color = 255 Else Range("B1").Interior.Color = xlNon...
by kio2002
Thu Nov 03, 2016 4:11 pm
Forum: Excel
Topic: คลิกที่เซลล์A1แล้วเซลล์B1เติมสีพื้นหลังอัตโนมัติ
Replies: 8
Views: 1834

Re: คลิกที่เซลล์A1แล้วเซลล์B1เติมสีพื้นหลังอัตโนมัติ

นำcodeของคุณpuriwutpokinไปใช้แล้วตรงตามที่ต้องการแล้วครับ

แต่จะปรับcodeตรงนี้เพิ่มเติมครับ
โดยที่ไม่ต้องสนใจว่าเซลล์A1จะมีค่าอะไรก็ตาม แค่คลิกที่เซลล์A1 แล้วก็เติมสีอัตโนมัติที่เซลล์B1เลย
If Target.Address = Range("A1").Address And Range("A1").select
by kio2002
Thu Nov 03, 2016 12:32 pm
Forum: Excel
Topic: คลิกที่เซลล์A1แล้วเซลล์B1เติมสีพื้นหลังอัตโนมัติ
Replies: 8
Views: 1834

Re: คลิกที่เซลล์A1แล้วเซลล์B1เติมสีพื้นหลังอัตโนมัติ

:D ตัวอย่าง Code ครับ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = Range("A1").Address And Range("A1").Value = "" Then Range("B1").Interior.Color = 255 End If End Sub เซลล์B1เติมสีให้อัตโนมัติตามต้องการแล้วครับ แต่ยังติดตรง...
by kio2002
Wed Nov 02, 2016 8:18 pm
Forum: Excel
Topic: คลิกที่เซลล์A1แล้วเซลล์B1เติมสีพื้นหลังอัตโนมัติ
Replies: 8
Views: 1834

คลิกที่เซลล์A1แล้วเซลล์B1เติมสีพื้นหลังอัตโนมัติ

เรียนสมาชิกทุกท่านครับ ขอเล่าความต้องการก่อนนะครับ พอดีผมต้องการให้เซลล์B1เติมสีอัตโนมัติ เมื่อใช้เมาส์คลิกที่เซลล์A1 โดยกำหนดให้เซลล์A1มีค่าว่าง เซลล์B1ถึงจะเติมสีพื้นหลัง และถ้าหากไม่ได้คลิกที่เซลล์A1(คลิกเลือกที่เซลล์อื่น) เซลล์B1ไม่ต้องเติมสี ปัญหาที่ติดตอนนี้คือ เวลาใช้เมาส์คลิกที่เซลล์A1แล้วB1...
by kio2002
Sun Oct 09, 2016 6:22 pm
Forum: Excel
Topic: 2 บวกอะไร? = 9 (สูตรไหนดีครับ)
Replies: 6
Views: 1379

Re: 2 บวกอะไร? = 9 (สูตรไหนดีครับ)

honghiran wrote:ปัญหาคือ หากมีชุดข้อมูล หลายอัน จะใช้สูตรนี้ไม่ได้ครับ
เช่น 2 + ? = 9 ใช้สูตร d1-a1 ได้ 7 OK
แต่ 9 + ? = 2 ใช้สูตร d1-a1 ได้ -7 NoK
ลองใช้ ABS เข้ามาช่วยดูครับ หากไม่ต้องการให้ติดลบ ตามที่คนควนแนะนำครับ
by kio2002
Wed Oct 05, 2016 9:14 pm
Forum: Excel
Topic: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)
Replies: 13
Views: 6751

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

ผมได้ตามที่ต้องการแล้วครับ ขอบคุณคนควนและสมาชิกมากๆครับ
VBA นี้ซับซ้อนมากๆเลยครับ ผมก็พยายามเรียนรู้ด้วยตัวเอง มีหลายๆอย่างที่ยังไม่เข้าใจ อาจจะถามเยอะหน่อย

ผมลองเปลี่ยนเป็น SheetChange ตามที่แนะนำ แต่ยังไม่ได้ผล ผมจึงลบ Sheet ออก แล้วเหลือแค่ Change
by kio2002
Wed Oct 05, 2016 7:43 pm
Forum: Excel
Topic: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)
Replies: 13
Views: 6751

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

เรียนคนควนครับ ผมลองเขียน code ตามที่แนะนำมาแล้วครับ ผลที่ได้คือ พอใส่เลข1 แล้วต้องไปคลิกเลือกที่เซลล์ D5 msgbox มันถึงจะเด้งขึ้นมา(ปกติแล้วเซลล์D5จะไม่ได้ใส่เลขอะไร) แต่ผมอยากให้ msgbox มันเด้งขึ้นมาหลังจากเราใส่เลข1 แล้ว enter หรือเมื่อคลิกเลือกที่เซลล์อื่น ไม่ทราบว่าต้องปรับ code ตรงไหนเพิ่มครับ ...
by kio2002
Tue Oct 04, 2016 9:30 pm
Forum: Excel
Topic: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)
Replies: 13
Views: 6751

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

เรียนคนควนครับ ผมลองเขียน code และทดลอง run แมโคร แล้วครับ หากใส่ค่า1ที่เซลล์ D5 แล้ว msgbox จะขึ้นมาแจ้งเตือน แต่ติดตรงที่ว่าจะทำยังไงให้ msgbox ขึ้นมาแจ้งเตือนอัตโนมัติครับ เวลาที่เราใส่ค่า1ที่เซลล์D5 รบกวนช่วยปรับ code ให้หน่อยครับ ผมเขียน Procedure ถูกแล้วใช่ไหมครับ code อยู่ที่ worksheet1 ครับ ...
by kio2002
Wed Sep 21, 2016 9:56 pm
Forum: Excel
Topic: สอบถามสูตรการเปลี่ยนสีเซลล์ครับ
Replies: 1
Views: 455

สอบถามสูตรการเปลี่ยนสีเซลล์ครับ

เรียนทุกท่านครับ
สอบถามสูตรการเปลี่ยนสีเซลล์ครับ

ผมขอยกตัวอย่างซักข้อนะครับ
ที่sheet1
สมมุติผมใส่ตัวเลขในเซลล์ d6(เลขอะไรก็ได้) แล้วอยากให้เซลล์c6 เป็นสีเขียว
จะเขียนสูตรยังไงดีครับ พอดีไม่เคยทำ ต้องรบกวนขอสูตรหน่อยครับ

ขอบคุณมากครับ
by kio2002
Wed Sep 21, 2016 9:12 pm
Forum: Excel
Topic: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)
Replies: 13
Views: 6751

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

ปรับเป็น Code ตามไฟล์แนบครับ Private Sub CommandButton1_Click() r = 4 Do r = r + 1 Loop Until Cells(r, 4) <> "" Cells(r, 4).Select MsgBox "ªèͧ D" & Cells(r, 1) + 4 & " ÁÕ¢éÍÁÙÅ", vbCritical End Sub ต้องขออภัยครับ พอดีผมอธิบายไม่หมด และแนบไฟล์ผิด ผมอยากให้ Msgb...
by kio2002
Wed Sep 21, 2016 8:54 pm
Forum: Excel
Topic: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)
Replies: 13
Views: 6751

Re: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

:D อ่าน MsgBox ใน Code แล้วเข้าใจว่าอธิบายมาไม่ถูกต้อง ช่วยยืนยันใหม่ว่า กรณีมีค่าใดที่ไม่เป็นค่าว่างหรือเท่ากับ 0 แล้วให้แจ้่งเตือน หากเป็นเช่นนี้ตามไฟล์ตัวอย่างจะแจ้งเตือนทุกค่า เพราะไม่มีเซลล์ใดจาก D5 เป็นต้นไปเป็นเซลล์ว่าง การเขียนชื่อ Procedure ห้ามเว้นวรรค ครับ ครับ กรณีมีค่าใดใน cell d5 ที่ไ...
by kio2002
Wed Sep 21, 2016 8:12 pm
Forum: Excel
Topic: ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)
Replies: 13
Views: 6751

ให้กล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนด(vba)

เรียน ทุกท่านครับ ผมสร้าง code ไว้ที่ module3 โดยต้องการให้ หาก cell d5 มีค่าใดๆ ที่ไม่ใช่ 0 หรือค่าว่างเปล่า ผมอยากให้มีกล่องข้อความขึ้นมาแจ้งเตือนครับ แต่ผมลองแล้ว code มัน error ครับ หรือมีวิธีอื่นที่ไม่ต้องใช้ vba สามารถแนะนำมาได้นะครับ รบกวนทุกท่านช่วยดูให้หน่อยครับ ขอบคุณครับ Sub MsgBox shows(...
by kio2002
Sat Sep 17, 2016 8:39 am
Forum: Excel
Topic: กำหนดพื้นที่การพิมพ์ แล้ว RoundedRectangle1 ที่สร้างไว้ถูกซ่อน
Replies: 8
Views: 1776

Re: กำหนดพื้นที่การพิมพ์ แล้ว RoundedRectangle1 ที่สร้างไว้ถูกซ่อน

:D ยังไม่กระจ่างกับคำถามครับ RoundedRectangle1 คือปุ่มกดหรือ Object ใด หากเป็นปุ่มกด ไม่ได้ชื่อ RoundedRectangle1 แต่ชื่อ สี่เหลี่ยมผืนผ้า 1 หากต้องการจะให้พิมพ์ปุ่มกดออกมาด้วยจะต้องลากปุ่มกดเข้ามาไว้ในพื้นที่การพิมพ์ครับ กรณีไม่ได้คำตอบหรือยังไม่เข้าใจ ให้จับภาพสิ่งที่ต้องการมาดูอีกรอบครับ ขออภัยค...
by kio2002
Fri Sep 16, 2016 9:32 pm
Forum: Excel
Topic: กำหนดพื้นที่การพิมพ์ แล้ว RoundedRectangle1 ที่สร้างไว้ถูกซ่อน
Replies: 8
Views: 1776

Re: กำหนดพื้นที่การพิมพ์ แล้ว RoundedRectangle1 ที่สร้างไว้ถูกซ่อน

:D ปกติการ Print เราจะทำการกำหนด Print Area เสียก่อนโดย คลุมข้อมูลที่ต้องการ Print > เข้าเมนู Page Layout > Print Area จากนั้นค่อยกำหนดตามที่ผมโพสต์ไว้ตามด้านบนครับ หากจะกำหนดพื้นที่การพิมพ์แบบ Auto ก็สามารถทำได้ด้วย VBA ซึ่งต้องเขียนมาเองก่อนพร้อมแจ้งมาด้วยว่าอยู่ใน Module ไหน ชื่อว่าอะไร ติดขัดบร...