: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 800 matches

by วังวู ช่ง
Sat Dec 19, 2020 8:50 pm
Forum: Excel
Topic: ปัญหา Excel ใน google drive
Replies: 4
Views: 666

ปัญหา Excel ใน google drive

รบกวนท่านที่รู้ครับ
ผมติดปัญหาเรื่องที่ไฟล์ excel เมื่อบันทึกไปใน google drive เมื่อเราเปีดใน google drive จะมีปัญหาเรื่องสูตร์ครับ คำนวนใน Link google drive ไม่ได้ครับ
by วังวู ช่ง
Tue Dec 01, 2020 2:41 pm
Forum: Excel
Topic: VBA ในการ HideRows
Replies: 9
Views: 1003

Re: VBA ในการ HideRows

logic wrote: Tue Dec 01, 2020 8:49 am น่าจะแบบนี้นะครับ

Code: Select all

'...
For Each r In Range("l8:l121")
        If r = "" and r.offset(0,5) = "" Then
'...
ใช้ครับ แบบนี้เลยครับ ขอบคุณมากๆครับ :D :D :thup: :thup: :cp: :cp:
by วังวู ช่ง
Tue Dec 01, 2020 6:09 am
Forum: Excel
Topic: VBA ในการ HideRows
Replies: 9
Views: 1003

Re: VBA ในการ HideRows

รบกวนถามต่อครับ ถ้าเราวางเงื่อนไขอีกว่า ถ้า L8:L121 และ Q8:Q121 มีค่าเป็นว่างให้ hide ครับ ไม่ว่างก็อไม่ hide จะปรับ code นี้อย่างไรครับ Sub HideRows() Dim r As Range For Each r In Range("l8:q121") If r = "" Then r.EntireRow.Hidden = True End If Next r End Sub
by วังวู ช่ง
Thu Nov 26, 2020 9:04 pm
Forum: Excel
Topic: การเทียบสองข้อมูล ตัวเล็ก และ ตัวใหญ่
Replies: 2
Views: 474

Re: การเทียบสองข้อมูล ตัวเล็ก และ ตัวใหญ่

puriwutpokin wrote: Thu Nov 26, 2020 8:52 pm c1=EXACT(A1,B1)
ได้ตามต้องการเลยครับ ขอบคุณมากครับ :D :thup: :cp:
by วังวู ช่ง
Thu Nov 26, 2020 8:42 pm
Forum: Excel
Topic: การเทียบสองข้อมูล ตัวเล็ก และ ตัวใหญ่
Replies: 2
Views: 474

การเทียบสองข้อมูล ตัวเล็ก และ ตัวใหญ่

รบกวนท่านที่รู้ด้วยครับ ผมอยากเทียบใน Column A และ B ตัวอักษรภาษาอังกฤ ในนี้มีตัวพีมพ์ใหญ่ และ ตัวพีมพ์เล็กครับ ถ้าเหมือนกันให้ออก TRUE ถ้าไม่เหมือนกันให้ออก FALSE จะใช้สูตรอย่างไรครับ
by วังวู ช่ง
Thu Nov 26, 2020 8:31 pm
Forum: Excel
Topic: การเรียงลำดับด้วย VBA
Replies: 4
Views: 958

Re: การเรียงลำดับด้วย VBA

ปรับเป็น Sub Macro1() Dim i As Integer Dim cell As Range, rng As Range Set rng = Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row) i = 1 For Each cell In rng If cell <> "" Then cell.Offset(, -1).Value = Application.CountA(Range("b1:b" & i)) Else cell.Offset(, ...
by วังวู ช่ง
Thu Nov 26, 2020 6:24 pm
Forum: Excel
Topic: การทำไฮไลท์ใน excel
Replies: 3
Views: 596

Re: การทำไฮไลท์ใน excel

แต่ว่าทำได้แล้วครับท่านจารย์
ขอบคุณมากๆครับ
by วังวู ช่ง
Thu Nov 26, 2020 6:16 pm
Forum: Excel
Topic: การทำไฮไลท์ใน excel
Replies: 3
Views: 596

Re: การทำไฮไลท์ใน excel

snasui wrote: Sun Nov 15, 2020 7:52 pm :D ลองทำไฟล์ตัวอย่างเลียนแบบภาพแล้วแนบมาด้วยจะได้สะดวกในการช่วยทดลองของเพื่อนสมาชิกครับ
ออ ครับ เขาส่งมาให้แบบนี้เองครับอาจารย์
by วังวู ช่ง
Thu Nov 26, 2020 6:14 pm
Forum: Excel
Topic: การเรียงลำดับด้วย VBA
Replies: 4
Views: 958

Re: การเรียงลำดับด้วย VBA

ตัวอย่างโค้ดครับ 'Other code... Set rng = Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row) i = 1 For Each cell In rng cell.Offset(, -1).Value = i 'Other code... Sub Macro1() Dim i As Integer Dim cell As Range, rng As Range Set rng = Range("b1:b" & Cells(Rows.Count, 2)....
by วังวู ช่ง
Tue Nov 24, 2020 7:29 pm
Forum: Excel
Topic: การเรียงลำดับด้วย VBA
Replies: 4
Views: 958

การเรียงลำดับด้วย VBA

รบกวนท่านที่รู้ครับ ผมอยากเรียงลำดับด้วย VBA ด้วย code ล่างนี้ครับ Sub Macro1() Dim i As Integer Dim cell As Range, rng As Range Set rng = Range("A1:A10") i = 1 For Each cell In rng cell.Value = i i = i + 1 Next cell End Sub แต่ต้องการคือว่า เมื่อเราคีย์ใน column B ใน Column A ให้ออกลำดับแ...
by วังวู ช่ง
Sun Nov 15, 2020 4:27 pm
Forum: Excel
Topic: การทำไฮไลท์ใน excel
Replies: 3
Views: 596

การทำไฮไลท์ใน excel

รบกวนทุกท่านช่วยแนะวิธีทำไฮไลท์ใน excel ครับ
ดั่งรูปที่ส่งมานี้ครับ 1-สุดท้าย ให้สีเปลี่ยนเหมือนในรูปครับ
by วังวู ช่ง
Mon Nov 02, 2020 8:53 pm
Forum: Excel
Topic: VBA ในการ HideRows
Replies: 9
Views: 1003

Re: VBA ในการ HideRows

ปรับตามนี้ครับ Sub HideRows() Sheets("Database").Select Dim r As Range For Each r In Range("I4:I4031") If r <> Sheets("Pol").Range("B1").Value Then r.EntireRow.Hidden = True End If Next r End Sub ขอบคุณมากครับท่าน ได้ตามต้องการเลยครับ :D :thup: :cp: :cp:
by วังวู ช่ง
Mon Nov 02, 2020 4:17 pm
Forum: Excel
Topic: VBA ในการ HideRows
Replies: 9
Views: 1003

Re: VBA ในการ HideRows

parakorn wrote: Mon Nov 02, 2020 3:43 pm ลองตัดไฟล์เป็นตัวอย่างให้เพื่อนๆลองทดสอบดูครับ
by วังวู ช่ง
Mon Nov 02, 2020 3:23 pm
Forum: Excel
Topic: VBA ในการ HideRows
Replies: 9
Views: 1003

Re: VBA ในการ HideRows

parakorn wrote: Mon Nov 02, 2020 2:08 pm ลองปรับตามนี้ครับ
=Pol!R[1]C[-1] เป็น =Pol!R1C2
ยังไม่ได้ครับ
by วังวู ช่ง
Mon Nov 02, 2020 12:51 pm
Forum: Excel
Topic: VBA ในการ HideRows
Replies: 9
Views: 1003

VBA ในการ HideRows

รบกวนท่านที่รู้ครับ ผมต้องการ Hide แถวด้วย VBA ที่มาพร้อมนี้ครับ ความต้องการคือว่า ถ้า I4:I4031 ใน sheet Database ไม่เท่ากับ B1 ใน sheet Pol ให้ Hide ครับ จะปรับ VBA อย่างไรครับ Sub HideRows() Sheets("Database").Select Dim r As Range For Each r In Range("I4:I4031") If r <> "...
by วังวู ช่ง
Wed Oct 14, 2020 1:23 pm
Forum: Excel
Topic: ปัญหา #VALUE! ในสูตร SUMPRODUCT
Replies: 2
Views: 472

Re: ปัญหา #VALUE! ในสูตร SUMPRODUCT

puriwutpokin wrote: Tue Oct 13, 2020 3:45 pm ลองแนบไฟล์​มาทดสอบดูครับ
ออ ได้แล้วครับ
เนื่องจากในข้อมูล Database ออกเป็น #VALUE! เมื่อใช้ SUMPRODUCT เลยออกมา #VALUE! ครับผม
แก้ไขได้แล้วครับ ขอบคุณมากครับ
1
2
3
4
5
6
7
8
#VALUE!
10
=SUMPRODUCT(--(S10:S19<8))
ข้อมูลแบบนี้ดึงออกมาจะออกเป็น #VALUE!
by วังวู ช่ง
Tue Oct 13, 2020 11:48 am
Forum: Excel
Topic: ปัญหา #VALUE! ในสูตร SUMPRODUCT
Replies: 2
Views: 472

ปัญหา #VALUE! ในสูตร SUMPRODUCT

อยากรบกวนว่าผ่านมาผมใช้ office 365, 2016 ไม่มีปัญหาเรื่องสูตร SUMPRODUCT เมื่อวานนี้เองครับ office หมดอายุ ผมเลยตั้งใหม่เป็น office 2019 ในสูตร SUMPRODUCT ที่เคยใช้ผ่านมาดีๆ ออกมาเป็น #VALUE! หมดเลย เพราะอะไร และ จะแก้ไขอย่างไรครับ รบกวนด้วยครับ
by วังวู ช่ง
Fri Sep 25, 2020 11:38 am
Forum: Excel
Topic: การบันทึกค่าsheet1 แล้วให้ข้อมูลไปเรียงต่อกันที่ sheet2 ค่ะ
Replies: 7
Views: 1108

Re: การบันทึกค่าsheet1 แล้วให้ข้อมูลไปเรียงต่อกันที่ sheet2 ค่ะ

snasui wrote: Thu Sep 24, 2020 7:54 pm :D การทำเช่นนั้นต้องอาศัยการเขียน VBA เข้ามาช่วยครับ

ดูตัวอย่างได้จาก VDO นี้ครับ http://snasui.com/wordpress/record-data-to-database/
อาจารย์ครับ ผมลองมาทำ แต่ทำไมไม่ได้ครับ
by วังวู ช่ง
Fri Sep 25, 2020 10:28 am
Forum: Excel
Topic: การบันทึกค่าsheet1 แล้วให้ข้อมูลไปเรียงต่อกันที่ sheet2 ค่ะ
Replies: 7
Views: 1108

Re: การบันทึกค่าsheet1 แล้วให้ข้อมูลไปเรียงต่อกันที่ sheet2 ค่ะ

snasui wrote: Thu Sep 24, 2020 7:54 pm :D การทำเช่นนั้นต้องอาศัยการเขียน VBA เข้ามาช่วยครับ

ดูตัวอย่างได้จาก VDO นี้ครับ http://snasui.com/wordpress/record-data-to-database/
:D :D :D :thup: :thup: :thup: :cp: :cp: :cp:
ผ่านมาใช้วิธี coppy เห็นคลิปนี้ดีมากครับ :cp: :cp: :cp:
by วังวู ช่ง
Fri Sep 25, 2020 10:16 am
Forum: Excel
Topic: การใช้ Ctrl+r เพื่อเรียก Module
Replies: 1
Views: 344

การใช้ Ctrl+r เพื่อเรียก Module

ใน Module1 เรามี Code Sub HideRows() Application.Calculation = xlCalculationManual ActiveSheet.Unprotect Password:="123456" Dim r As Range For Each r In Range("c14:c1513") If r = 0 Then r.EntireRow.Hidden = True End If Next r ActiveSheet.Protect Password:="123456" Appli...