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

Search found 802 matches

by suka
Thu Sep 07, 2017 10:29 am
Forum: Excel
Topic: VBA ปรับโค้ดให้ไปชีทที่ต้องการค่ะ
Replies: 2
Views: 140

Re: VBA ปรับโค้ดให้ไปชีทที่ต้องการค่ะ

:thup: ขอบคุณค่ะอาจารย์ ได้ตรงตามต้องการแล้วค่ะ
by suka
Wed Sep 06, 2017 8:03 pm
Forum: Excel
Topic: VBA ปรับโค้ดให้ไปชีทที่ต้องการค่ะ
Replies: 2
Views: 140

VBA ปรับโค้ดให้ไปชีทที่ต้องการค่ะ

เรียนอาจารย์และท่านผู้รู้ช่วยปรับโค้ดค่ะ ตัวอย่างไฟล์แนบมีตารางข้อมูลเซลล์ B3:I19 ที่ชีท Sheet1 ใช้โค้ดด้านล่างนี้ ต้องการปรับโค้ดเมื่อคลิกที่เซลล์ใด ๆ ที่อยู่นอกกรอบข้อมูลเซลล์ B3:I19 ชีทSheet1 เช่นคลิกที่คอลัมน์ K:R ก็ให้ไปวิ่งที่ Sheet2 เซลล์ F10 ค่ะ โค้ดด้านล่างติดเมื่อคลิกเซลล์ใดก็วิ่งไปที่ชีท ...
by suka
Mon Aug 21, 2017 8:52 am
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Re: Code จากคลิป Search data from multiple sheets ค่ะ

:tt: ย้อนมาดูโค้ดอีกรอบเข้าใจแล้วค่ะ เป็นเพราะไม่ได้แก้โด้ดนี้ค่ะ

Code: Select all

With Sheets("รายงาน")
        If i > 0 Then
            .Range("a3").Resize(i, 8).Value = arr
        End If
End With


:thup: ขอบคุณอาจารย์มาก ๆ ค่ะ
by suka
Sun Aug 20, 2017 4:32 pm
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Re: Code จากคลิป Search data from multiple sheets ค่ะ

Code ล่าสุดที่อาจารย์ปรับให้สามารถใช้ได้ดีตรงตามต้องการแล้วค่ะ จากรูปแนบภาพล่างค่ะภาพที่ 2 ที่ชีท "รายงาน" ขยับ "ลำดับที่" มาวางที่คอลัมน์ B ได้รายงานตรงตามต้องการแล้วค่ะ แต่ยังมีข้อสงสัยขออนุญาตแนบรูปและไฟล์ถามเพิ่มเติมเพื่อจะได้ทำความเข้าใจได้ถูกต้องค่ะ รูปแนบรูปบนภาพที่ 1 ชีท ...
by suka
Sat Aug 19, 2017 11:24 am
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Re: Code จากคลิป Search data from multiple sheets ค่ะ

แนบไฟล์ล่าสุดค่ะอาจารย์
by suka
Sat Aug 19, 2017 10:49 am
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Re: Code จากคลิป Search data from multiple sheets ค่ะ

ข้อ 1 ได้เพิ่มโค้ดด้านล่างเข้ามาใช้ได้แล้วค่ะ Range("F3:F" & Range("H5000").End(xlUp).Row).Formula = "=IF(H3="""","""",SUM(H3-G3))" Range("f3:f" & Range("a5000").End(xlUp).Row).Select Selection.Copy Sel...
by suka
Sat Aug 19, 2017 9:48 am
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Re: Code จากคลิป Search data from multiple sheets ค่ะ

:thup: ขอบคุณอาจารย์มาก ๆ เลยค่ะ ได้ตรงตามที่ต้องการและสามารถเรียกดูรายงานได้รวดเร็วมากค่ะ :cp: ขอรบกวนให้ช่วยอีก 2 ข้อนะคะ ( 1 ) โค้ดบรรทัดนี้ควรปรับอย่างไรเพื่อให้นำข้อมูลวางแบบ Value ไปที่ชืทรายงานเซลล์ F3 เรียงลงมาเท่าจำนวนข้อมูลที่มีค่ะ Range("F3:F" & Range("H5000").End(...
by suka
Fri Aug 18, 2017 8:48 pm
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Re: Code จากคลิป Search data from multiple sheets ค่ะ

ค่ะอาจารย์ ต้องการจะตรวจสอบค่าจากชีท "ค้นหา" เซลล์ A3:B3 ค่ะ เนื่องจากที่เซลล์ A3:B3 มีสูตร =IFERROR(">="&(IF($I$3<>"",$I$3,"")&IF($J$3<>"","/"&$J$3,"")&IF($K$3<>"","/"&$K$3,""))+0...
by suka
Thu Aug 17, 2017 11:36 am
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Re: Code จากคลิป Search data from multiple sheets ค่ะ

รูปบนลืมใส่ End If ค่ะ เอารูปออกไม่ได้ค่ะ พอใส่ End If แล้วฟ้อง Error ตามรูปภาพล่างค่ะ
by suka
Thu Aug 17, 2017 11:17 am
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Re: Code จากคลิป Search data from multiple sheets ค่ะ

อาจารย์คะ ได้ลองปรับเพิ่มโค้ดนี้เข้าไปที่โค้ด SearchMultipleSheets แล้ว Run Code Error ฟ้องตามรูปแนบค่ะ ไม่ทราบควรปรับอย่างไรค่ะ With Sheets("รายงาน") Set s = Sheets("ค้นหา").Range("a4") For Each s In Sheets("ค้นหา").Range("a4").Value If s.Value >= S...
by suka
Wed Aug 16, 2017 10:15 pm
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Re: Code จากคลิป Search data from multiple sheets ค่ะ

อาจารย์คะ ที่ชีท "รายงาน" ต้องการให้แสดงรายงานตามค่าที่เลือกระบุเงื่อนไขที่ชีท "ค้นหา" ค่ะ เช่นตัวอย่างในไฟล์แนบเลือกวันที่เริ่ม 1/8/2017 - 2/8/2017 ค่ะ โค้ดยังติดที่เลือกได้แค่วันที่เริ่มต้นค่ะ Set s = Sheets("ค้นหา").Range("a4") ใช้ได้แค่โค้ดบรรทัดด้านบนนี้ค...
by suka
Wed Aug 16, 2017 7:58 pm
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Re: Code จากคลิป Search data from multiple sheets ค่ะ

รบกวนอาจารย์และเพื่อน ๆ ช่วยเรื่องปรับโค้ดค่ะ ตัวอย่างไฟล์ต้องการใช้โค้ด AdvancedFilterInv ร่วมกับโค้ด SearchMultipleSheets เมื่อนำโค้ด AdvancedFilterInv ไปใช้ร่วมกับโค้ด SearchMultipleSheets ที่ SearchMultipleSheets ติดตรง If r.Offset(0, 1).Value2 = s.Value2 Then โค้ดนี้ค่ะถูกระบายสีเหลืองค่ะ ไม่ทร...
by suka
Mon Aug 14, 2017 10:52 am
Forum: Excel
Topic: ต้องการล๊อกเซลล์ให้ไม่สามารถแก้ไขได้
Replies: 6
Views: 228

Re: ต้องการล๊อกเซลล์ให้ไม่สามารถแก้ไขได้

ต้อง Unprotect sheet ก่อนค่ะ ค่อยเติมสีปรับตัวอักษรตามต้องการเสร็จแล้ว Protection ค่ัะ
by suka
Fri Jul 28, 2017 9:43 am
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Re: Code จากคลิป Search data from multiple sheets ค่ะ

:thup: ปรับใช้โค้ดด้านล่างนี้นำโค้ดของอาจารย์ปรับให้และนำโค้ดของคุณ DhitiBank ใส่เข้ามาใช้ได้ผลตรงตามต้องการแล้วค่ะ ขอบพระคุณทั้งสองท่านมาก ๆ ค่ะ Sub SearchMultipleSheets() Dim arr(999, 6) As Variant, r As Range Dim ws As Worksheet, i As Integer, s As Range With Sheets(1) Set s = .Range("c1&quo...
by suka
Thu Jul 27, 2017 11:30 am
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Re: Code จากคลิป Search data from multiple sheets ค่ะ

ปรับ Code เป็นด้านล่างนี้แล้วเมื่อ Run Code ฟ้องระบายสีเหลืองที่ If r.Offset(0, 5).Value <> r.Offset(-1, 5).Value Then ไม่ทราบว่าควรปรับแก้อย่างไรดีคะ Sub SearchMultipleSheets() Dim arr(999, 6) As Variant, r As Range Dim ws As Worksheet, i As Integer, s As String With Sheets(1) s = .Range("c1&q...
by suka
Wed Jul 26, 2017 7:36 pm
Forum: Excel
Topic: Code จากคลิป Search data from multiple sheets ค่ะ
Replies: 23
Views: 637

Code จากคลิป Search data from multiple sheets ค่ะ

เรียนอาจารย์ค่ะ โค้ดด้านล่างนี้นำมาจากโค้ดในคลิป Search data from multiple sheets ลิงค์นี้ค่ะ https://youtu.be/Jada6hWMJSc ที่ชีท Sheet1เซลล์ C1 ต้องการ Search ด้วยวันที่ให้โค้ดดึงข้อมูลมาแสดงให้เหมือนตัวอย่างในชีท "ตัวอย่างที่ต้องการ" จากตัวอย่างในไฟล์แนบค่ะ ไม่ทราบควรปรับอย่างไรค่ะ Sub S...
by suka
Sat Jul 15, 2017 4:36 pm
Forum: Excel
Topic: สูตรดึงค่าคงเหลือตามรหัสแยกสถานที่ค่ะ
Replies: 9
Views: 190

Re: สูตรดึงค่าคงเหลือตามรหัสแยกสถานที่ค่ะ

:D ตัวอย่างสูตรที่ L11 ครับ =SUMIFS($E$6:$E$14,$A$6:$A$14,"<="&$G11,$B$6:$B$14,$H11,$D$6:$D$14,$J11,$C$6:$C$14,"รับเข้า")-SUMIFS($E$6:$E$14,$A$6:$A$14,"<="&$G11,$B$6:$B$14,$H11,$D$6:$D$14,$J11,$C$6:$C$14,"จ่ายออก")+K11*IF(I11="...
by suka
Sat Jul 15, 2017 4:17 pm
Forum: Excel
Topic: สูตรดึงค่าคงเหลือตามรหัสแยกสถานที่ค่ะ
Replies: 9
Views: 190

Re: สูตรดึงค่าคงเหลือตามรหัสแยกสถานที่ค่ะ

อาจารย์คะ หาผลรวมของสถานที่ K 14 คอลัมน์ A6 = 4 ก.ค.60 C6 = รับเข้า E6 = +375 A10 = 7 ก.ค.60 C10 = จ่ายออก E10 = -200 ตัวอย่าง 375 - 200 = 175 ไม่รวมค่าในเซลล์ E11 เนื่องจากวันที่ในเซลล์ A11 มากกว่าวันที่ในเซลล์ G10 ค่ัะ 175 + 15 นำค่าจาก K10 มาบวกกันค่าในเซลล์ L10 = 190 ค่ะ ที่ L10 ค่ะ สูตรควรปรับอ...
by suka
Sat Jul 15, 2017 12:19 pm
Forum: Excel
Topic: สูตรดึงค่าคงเหลือตามรหัสแยกสถานที่ค่ะ
Replies: 9
Views: 190

Re: สูตรดึงค่าคงเหลือตามรหัสแยกสถานที่ค่ะ

เซลล์ L6 ปรับสูตรเป็น =IFERROR(IF(ISBLANK($J6)," ",LOOKUP(9.99999999999999E+307,CHOOSE({1,2},0,LOOKUP(2,1/((Form!$D$6:$D$15=$J6)*(Form!$A$6:$A$15<=$G6)*(Form!$B$6:$B$15=$H6)),Form!$E$6:$E$15)))+$K6*IF($I6="จ่ายออก",-1,1)),"") ยังติดไม่ทราบวิธีเอา 9.99999999999999E+307 อ...

Go to advanced search