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

by parakorn
Tue Nov 01, 2022 2:17 pm
Forum: Excel
Topic: ต้องการนับจำนวนแต่ละเดือน
Replies: 21
Views: 1620

Re: ต้องการนับจำนวนแต่ละเดือน

เผอิญของผมลืมแจ้งว่าต้องเพิ่ม Column ช่วยที่ Sheet DATA ที่ J2 =month(B2) enter+copy ลงด้านล่าง หรือ ใช้สูตรของคุณ knine2465 ก็ได้ครับ ผมลองเอามารวมร่างกันเป็น ฺ=SUMPRODUCT(--($A7=Data!$D$2:$D$1199),--($A$4=Data!$G$2:$G$1199),--(B$6=Data!$C$2:$C$1199),--(SUBSTITUTE(INDEX($B$5:B$5,,AGGREGATE(14,6,IF(...
by parakorn
Tue Nov 01, 2022 12:40 pm
Forum: Excel
Topic: ต้องการนับจำนวนแต่ละเดือน
Replies: 21
Views: 1620

Re: ต้องการนับจำนวนแต่ละเดือน

ลองแบบนี้ดูครับ
B7 =COUNTIFS(Data!$C:$C,B$6,Data!$G:$G,$A$4,Data!$D:$D,$A7,Data!$J:$J,--SUBSTITUTE(INDEX($B$5:B$5,,AGGREGATE(14,6,IF($B$5:B$5<>"",COLUMN($B$5:B$5)-COLUMN($B$5)+1),1)),"M",""))
Copy ไปทางขวาและลงด้านล่าง
by parakorn
Tue Nov 01, 2022 5:26 am
Forum: Excel
Topic: Loop Sub Folder
Replies: 6
Views: 627

Re: Loop Sub Folder

:D ตัวอย่างการปรับ Code โดยใน Program ได้เพิ่ม Sheet1 เอาไว้รับข้อมูลและ Add Reference ชื่อ Microsoft ActiveX Data Objects 6.1 Library เข้ามาด้วย Code นี้จะนำข้อมูลจากไฟล์และชีตต้นทางที่เข้าเงื่อนไขทุกบรรทัดมาแสดง หากต้องการจะตัดให้เหลือเท่าที่ต้องการสามารถเขียน Code สำหรับจัดการขึ้นมาต่างหากครับ S...
by parakorn
Tue Nov 01, 2022 5:17 am
Forum: Excel
Topic: สอบถามสูตรกำหนดวันของแต่ละเดือน
Replies: 5
Views: 540

Re: สอบถามสูตรกำหนดวันของแต่ละเดือน

ลองแบบนี้ดูครับ
B4 =IF(B3="","",IF(MONTH(B3+1)<>$D$2,"",B3+1)) Copy Down
by parakorn
Mon Oct 31, 2022 1:21 pm
Forum: Excel
Topic: ต้องการหาชื่อชุมนุมที่นักเรียนเลือกสูงสุด และต่ำสุด มาแสดงต้องใช้สูตรอย่างไรครับ
Replies: 3
Views: 381

Re: ต้องการหาชื่อชุมนุมที่นักเรียนเลือกสูงสุด และต่ำสุด มาแสดงต้องใช้สูตรอย่างไรครับ

E2 =IFERROR(SMALL(IF($C$2:$C$8=MAX($C$2:$C$8,0),$C$2:$C$8),ROWS($E$2:$E2)),"") Copy down D2 =IF(E2="","",INDEX($B$2:$B$8,SMALL(IF($C$2:$C$8=$E2,ROW($B$2:$B$8)-ROW($B$1)),ROWS($D$2:$D2)))) Copy down G2 =IFERROR(SMALL(IF($C$2:$C$8=MIN(IF($C$2:$C$8<>0,$C$2:$C$8)),$C$2:$C$8...
by parakorn
Mon Oct 31, 2022 6:30 am
Forum: Excel
Topic: Loop Sub Folder
Replies: 6
Views: 627

Re: Loop Sub Folder

ได้ล่ะครับอาจารย์ รบกวนสอบถามต่อเลยนะครับ หากต้องการ Loop เข้าไปในแต่ล่ะชีท ของแต่ล่ะไฟล์ โดยไม่ต้องการเปิดไฟล์(ไฟล์มีจำนวนเยอะมากๆ) แล้ว Return Result ออกมาต้องปรับโค้ดประมาณไหนครับ - ในแต่ล่ะไฟล์ ต้องการ Loop เฉพาะ Sheets ที่มีชื่อ 10ตัวแรก = "COST SHEET" - ต้องการ Return ข้อมูลตั้งแต่ A...
by parakorn
Sat Oct 29, 2022 3:52 am
Forum: Excel
Topic: Loop Sub Folder
Replies: 6
Views: 627

Re: Loop Sub Folder

เรียนอาจารย์ครับ ในโฟล์เดอร์สุดท้าย บางโฟล์เดอร์มี 2 โฟล์ที่ต้องการ แต่ตอนนี้มัน Return แค่ไฟล์เดียวครับ ขอบคุณมากครับ Sub sample2() Dim FileSystem As Object Dim HostFolder As String HostFolder = "D:\Detail\wetransfer_2022-1-zip_2022-10-25_1306\" Set FileSystem = CreateObject("Scripti...
by parakorn
Fri Oct 28, 2022 1:11 pm
Forum: Excel
Topic: Loop Sub Folder
Replies: 6
Views: 627

Loop Sub Folder

เรียนอาจารย์ และ เพื่อนๆในบอร์ดครับ เนื่องจากผมต้องการ Loop เข้าไปใน Folder เรื่อยๆ จนกว่าจะเจอไฟล์ Excel ที่มีชื่อขึ้นต้นว่า "FINAL COST" แล้วทำการ Debug ทุกไฟล์ ซึ่งแต่ละ Folder ก็มี Folder ซ้อนเข้าไปเรื่อยๆ แต่ล่ะ Folder ก็มีจำนวนที่ซ้อนเข้าไปไม่เท่ากัน อยากทราบว่าต้องการแก้ไขโค้ดอย่างไ...
by parakorn
Wed Aug 03, 2022 6:57 pm
Forum: Excel
Topic: ขอคำแนะนำ CodeVB ดัก error การนำเข้าข้อมูล
Replies: 6
Views: 465

Re: ขอคำแนะนำ CodeVB ดัก error การนำเข้าข้อมูล

ผมลอง Run ที่เครื่องผมดูไม่ติดปัญหานะครับ
ถ้าดูจากภาพ Code ผ่านในส่วนที่ผมเขียนเพิ่มเติมไปแล้ว
ลองกด Ctrl+G เพื่อเปิดหน้าต่าง Immediate แล้วลอง Debug ด้วยการพิมพ์ ? ตามด้วยสิ่งที่จะลองเช็คดูครับ
เช่น ?wsMaster.name แล้วลองเช็คดูครับว่าตัวแปรนั้นๆ ยังเป็นสิ่งที่ถูกต้องหรือไม่
by parakorn
Wed Aug 03, 2022 4:11 pm
Forum: Excel
Topic: ขอคำแนะนำ CodeVB ดัก error การนำเข้าข้อมูล
Replies: 6
Views: 465

Re: ขอคำแนะนำ CodeVB ดัก error การนำเข้าข้อมูล

ตัวอย่างการปรับโค้ดครับ Sub ImportCSV() Dim fileToOpen As Variant Dim fileFilterPattern As String Dim wsMaster As Worksheet Dim wbTextImport As Workbook Dim Sum As Integer Dim cHead As Integer, tHead As String Dim rHead As Worksheet ' On Error Resume Next Application.ScreenUpdating = False fileFilte...
by parakorn
Tue Aug 02, 2022 4:08 am
Forum: Excel
Topic: สอบถาม Error การส่งอีเมลล์ gmail ผ่าน VB Excel และการแนบไฟล์เป็นรูปภาพให้แสดงในอีเมลล์
Replies: 3
Views: 286

Re: สอบถาม Error การส่งอีเมลล์ gmail ผ่าน VB Excel และการแนบไฟล์เป็นรูปภาพให้แสดงในอีเมลล์

ไม่แน่ใจว่าตอนนี้ทาง Google Block วิธีการส่ง Email ผ่าน VBA หรือยังนะครับ เนื่องจากประมาณเดือนก่อน มีช่องโหว่ Zero Day ที่ใช้ช่องทางในการแนบไฟล์ผ่านตระกูล Microsoft และเนื่องจากต้องใช้เวลา Patch สักพัก หลาย Platform จึงมีการ Block การใช้งาน VBA เพื่อเป็นการป้องกันเบื้องต้นครับ
by parakorn
Wed Jul 27, 2022 5:37 pm
Forum: Excel
Topic: VBA copy and pastespecial
Replies: 7
Views: 478

Re: VBA copy and pastespecial

อีกตัวอย่างครับ :D Sub Order() Dim nrow As Integer Dim lastrow As Long Dim cItem As Long Dim myRange As Range lastrow = Sheets("order").Range("C" & Rows.Count).End(xlUp).row + 1 Set myRange = Sheets("invoice").Range("B15:B24") cItem = Application.Worksheet...
by parakorn
Wed Jul 27, 2022 3:29 pm
Forum: Excel
Topic: VBA copy and pastespecial
Replies: 7
Views: 478

Re: VBA copy and pastespecial

:D แนบเป็นไฟล์ Excel ตัวอย่างครับ ตัดมาแค่บางส่วนก็พอ
การ Coding มันมีตัวแปรหลายอย่าง อาทิเช่น บรรทัดสุดท้าย Column C อยู่ตรงไหน เป็นต้น
ผู้ที่เข้ามาตอบ หรือ ศึกษาต่อ จะได้โหลดไฟล์ Excel มาทดสอบได้โดยง่ายครับ
by parakorn
Mon Jul 25, 2022 11:24 am
Forum: Excel
Topic: ขอความอนุเคราะห์ เช็คสูตรคำนวณวัน
Replies: 4
Views: 610

Re: ขอความอนุเคราะห์ เช็คสูตรคำนวณวัน

อีกวิธีครับ F2 =IFERROR(DAY(IF(VLOOKUP(WEEKDAY(Main!$D$11),{2,"จันทร์";3,"อังคาร";4,"พุธ";5,"พฤหัสบดี";6,"ศุกร์";7,"เสาร์";1,"อาทิตย์"},2,0)=Time!F$1,Main!$D$11,IF(E2=0,0,Time!E2+1))),0)

Enter+Copy ไปทางขวาจนถึง L2
by parakorn
Fri Jun 17, 2022 9:25 am
Forum: Excel
Topic: [VBA]ต้องการให้กด Tab Auto เมื่อพิมพ์คียบอร์ด
Replies: 2
Views: 357

[VBA]ต้องการให้กด Tab Auto เมื่อพิมพ์คียบอร์ด

เรียนทุกท่านครับ เนื่องจากลองสร้างเกม Wordle(ทายคำศัพท์) ใน Excel แล้วอยากให้ใน โซนที่ User ใส่อักษรเพื่อทายคำศัพท์(Sheet1 Cell H6 ถึง L11) active macro alway โดยทุกครั้งที่ User กดใส่ตัวอักษร อยากให้ Application Auto Tab เพื่อขยับไป Cell ทางขวาเพื่อจะได้ใส่ตัวอักษรต่อไปทันทีครับ ถ้าเป็นไปได้อยากให้...
by parakorn
Thu Jun 09, 2022 5:32 pm
Forum: Excel
Topic: เปลี่ยนการแสดงคอลัมน์จากตัวเลขให้เป็น ABCD
Replies: 1
Views: 172

Re: เปลี่ยนการแสดงคอลัมน์จากตัวเลขให้เป็น ABCD

File > Option > Formulars > Working with formulars > เอาติ๊กตรง R1C1 Reference style ออกครับ