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

by puriwutpokin
Fri Sep 22, 2017 4:47 pm
Forum: Excel
Topic: ขอสูตรดึงข้อมูลจากชีทหนึ่งมาแสดงอีกชีทหนึ่ง ตามเงื่อนไขที่กำหนด
Replies: 4
Views: 47

Re: ขอสูตรดึงข้อมูลจากชีทหนึ่งมาแสดงอีกชีทหนึ่ง ตามเงื่อนไขที่กำหนด

ใน​2003 ปรับเป็น​ที่B7=IF(ROWS($B$7:$B7)>COUNTIF(all!$G$7:$G$159,REPLACE($K$4,1,8,""))​,"",INDEX(all!B$7:B$159,SMALL(IF(all!$G$7:$G$159=REPLACE($K$4,1,8,""),ROW(all!$G$7:$G$159)-ROW(all!$G$7)+1),ROWS($B$7:$B7))))​ แล้วกด Ctrl+Shift+Enter คัดลอกไปทางขวาและลงล่างครับ
by puriwutpokin
Fri Sep 22, 2017 2:13 pm
Forum: Excel
Topic: ขอสูตรดึงข้อมูลจากชีทหนึ่งมาแสดงอีกชีทหนึ่ง ตามเงื่อนไขที่กำหนด
Replies: 4
Views: 47

Re: ขอสูตรดึงข้อมูลจากชีทหนึ่งมาแสดงอีกชีทหนึ่ง ตามเงื่อนไขที่กำหนด

ที่ B7=IFERROR(INDEX(all!B$7:B$159,SMALL(IF(all!$G$7:$G$159=REPLACE($K$4,1,8,""),ROW(all!$G$7:$G$159)-ROW(all!$G$7)+1),ROWS($B$7:$B7))),"") แล้วกด Ctrl+Shift+Enter คัดลอกไปทางขวาและลงล่างครับ
by puriwutpokin
Fri Sep 22, 2017 1:58 pm
Forum: Excel
Topic: การลบข้อมูลในเซลล์แบบมีเงื่อนไข
Replies: 3
Views: 28

Re: การลบข้อมูลในเซลล์แบบมีเงื่อนไข

ปรับเป็น

Code: Select all

Sub clear()
For Each Cell In Range("A1:C10")
If Cell.Value <> "ห" Then Cell.ClearContents
Next Cell
End Sub
by puriwutpokin
Tue Sep 19, 2017 3:50 pm
Forum: Excel
Topic: นำยอดtotalจากทุกชีทมารวมไว้ในชีทเดียวแบบเรียงลำดับลงมาเรื่อยๆ
Replies: 9
Views: 163

Re: นำยอดtotalจากทุกชีทมารวมไว้ในชีทเดียวแบบเรียงลำดับลงมาเรื่อยๆ

ปรับเป็น Sub Button2_Click() Dim sh As Worksheet Worksheets("รวมสรุปยอด").Range("b4:g31").ClearContents For Each sh In Worksheets If sh.Name <> "รวมสรุปยอด" Then With Worksheets("รวมสรุปยอด") .Range("b4").Offset(Application.CountA(.Range("b4:b&q...
by puriwutpokin
Mon Sep 18, 2017 10:24 pm
Forum: Excel
Topic: นำยอดtotalจากทุกชีทมารวมไว้ในชีทเดียวแบบเรียงลำดับลงมาเรื่อยๆ
Replies: 9
Views: 163

Re: นำยอดtotalจากทุกชีทมารวมไว้ในชีทเดียวแบบเรียงลำดับลงมาเรื่อยๆ

ปรับเป็น Sub Button2_Click() Dim sh As Worksheet Worksheets("รวมสรุปยอด").Range("b4:g31").ClearContents For Each sh In Worksheets If sh.Name <> "รวมสรุปยอด" Then With Worksheets("รวมสรุปยอด") .Range("b4:g4").Offset(Application.CountA(.Range("b4:...
by puriwutpokin
Mon Sep 18, 2017 12:09 am
Forum: Excel
Topic: นำยอดtotalจากทุกชีทมารวมไว้ในชีทเดียวแบบเรียงลำดับลงมาเรื่อยๆ
Replies: 9
Views: 163

Re: นำยอดtotalจากทุกชีทมารวมไว้ในชีทเดียวแบบเรียงลำดับลงมาเรื่อยๆ

ใช่ให้ค่าแรกอยู่ที่ A3 หรือเปล่าถ้าใช่ปรับเป็น Sub Button2_Click() Dim sh As Worksheet Worksheets("รวมสรุปยอด").Range("a2:a1000").ClearContents For Each sh In Worksheets If sh.Name <> "รวมสรุปยอด" Then With Worksheets("รวมสรุปยอด") .Range("a3").Offse...
by puriwutpokin
Thu Sep 14, 2017 7:54 pm
Forum: Excel
Topic: ถามสูตร if ค่ะ
Replies: 1
Views: 57

Re: ถามสูตร if ค่ะ

=if(a1<10,1,if(a1=10,2,3))
by puriwutpokin
Tue Sep 12, 2017 8:04 pm
Forum: Excel
Topic: การหาผลรวมจากตารางที่มีหลายเงื่อนไข
Replies: 1
Views: 62

Re: การหาผลรวมจากตารางที่มีหลายเงื่อนไข

ที่ Sheet"ByWeek" ที่ C6=SUMIFS(INDEX(Plan!$C$2:$BV$33,0,MATCH(A6,Plan!$C$1:$BV$1,0)),Plan!$B$2:$B$33,">="&$C$2,Plan!$B$2:$B$33,"<="&$C$3) ที่ D6=SUMIFS(INDEX(Plan!$C$2:$BV$33,0,MATCH(A6,Plan!$C$1:$BV$1,0)),Plan!$A$2:$A$33,"="&$D$3) ทั้งหมดคัดลอกลง...
by puriwutpokin
Sat Sep 09, 2017 5:59 pm
Forum: Excel
Topic: การออกเลขบัตรประจำตัวข้าราชการ
Replies: 3
Views: 68

Re: การออกเลขบัตรประจำตัวข้าราชการ

ที่a1=41&TEXT(ROWS(A$1:A1),"0000")&"-04154/"&TEXT(ROWS(A$1:A1),"0000") copyลงครับ
by puriwutpokin
Wed Sep 06, 2017 5:52 pm
Forum: Excel
Topic: การคำนวณจำนวนวัน
Replies: 2
Views: 57

Re: การคำนวณจำนวนวัน

เป็นที่วันที่ฟอร์แมทอันบนเป็น​คศ​2016​แต่แสดงให้เห็นเป็นพศ​ 2559 ส่วนอันล่าง เป็น​ คศ​ ​ตามที่เห็นครับ​การคำนวณใน​excel ควรกำหนดให้ทั้งตัวปีเป็น​ คศ​ ​อย่าฟอร์แมทเป็น​ พศ​ ครับ
by puriwutpokin
Fri Sep 01, 2017 9:53 pm
Forum: Excel
Topic: สูตรจัดเรียงColumn ใหม่
Replies: 1
Views: 55

Re: สูตรจัดเรียงColumn ใหม่

ที่ F2=IFERROR(INDEX($A$2:$C$7,SMALL(IF($A$1:$C$1=F$1,ROW($A$2:$A$7)-ROW($A$2)+1),ROWS($F$2:F2)),MATCH(F$1,$A$1:$C$1,0)),"") แล้วกด Shift+Ctrl+Enter copy ไปทางขวาและล่างครับ
by puriwutpokin
Fri Sep 01, 2017 9:42 pm
Forum: Excel
Topic: จัดเรียงข้อมูล จาก หลาย Column มารวมอยู่ในคอลัมเดียว
Replies: 5
Views: 111

Re: จัดเรียงข้อมูล จาก หลาย Column มารวมอยู่ในคอลัมเดียว

อาจต้องใช้vba ลองเขียนมาตามกฏข้อ5ครับ
ติดขัดค่อยมาถามใหม่ครับ
by puriwutpokin
Fri Sep 01, 2017 8:30 pm
Forum: Excel
Topic: จัดเรียงข้อมูล จาก หลาย Column มารวมอยู่ในคอลัมเดียว
Replies: 5
Views: 111

Re: จัดเรียงข้อมูล จาก หลาย Column มารวมอยู่ในคอลัมเดียว

ลองดูครับ ที่ชีท1 H1=IF(ROWS(H$1:H1)>COUNTA($A$3:$F$14),"",OFFSET($A$3,MOD(ROW(A1)-1,COUNTA($A$3:$A$14)),FLOOR(ROW(A1)-1,COUNTA($A$3:$A$14))/COUNTA($A$3:$A$14))) คัดลอกไปจนเป็นค่าว่าง
by puriwutpokin
Thu Aug 31, 2017 9:13 pm
Forum: Excel
Topic: สอบถามเรื่องการ MATCH ข้อมูล
Replies: 11
Views: 339

Re: สอบถามเรื่องการ MATCH ข้อมูล

ที่ Sheet "ยอดทั้งหมด" ที่ V2=IFERROR(INDEX(สเตสเม้น!$D$3:$D$2949,MATCH(1,IF(สเตสเม้น!$C$3:$C$2949=$E2,IF(สเตสเม้น!$H$3:$H$2949=$O2,IF(สเตสเม้น!$H$3:$H$2949=$O2,1))),0)),"No MATCH") Ctrl+Shift+Enter > Copy ลงด้านล่าง
by puriwutpokin
Thu Aug 31, 2017 7:20 pm
Forum: Excel
Topic: อยากสอบถามเกี่ยวกับ code vba ครับ
Replies: 2
Views: 82

Re: อยากสอบถามเกี่ยวกับ code vba ครับ

ปรับเป็น Sub Entry(ByVal v As String) Dim ar() As String Dim r As Range Dim i, lr As Integer i = 1 lr = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row Set r = Range("B2:B" & lr) For Each r In r ReDim Preserve ar(i) As String ar(i) = r.Value i = i + 1 Next r ' For i = ...
by puriwutpokin
Thu Aug 31, 2017 2:43 pm
Forum: Excel
Topic: ขอความช่วยเหลือด่วนค่ะ
Replies: 2
Views: 67

Re: ขอความช่วยเหลือด่วนค่ะ

ช่วยแก้ไขหัวข้อการโพสให้สื่อถึงปัญหาด้วยครับ
แบบนี้หรือเปล่าครับลองดูที่ C1=SUMIF(D$1:D$20,A1,E$1:E$20) คัดลอกลงครับ
by puriwutpokin
Thu Aug 31, 2017 11:51 am
Forum: Excel
Topic: นำเข้าข้อมูลมาแสดงหลายคอลั่มน์
Replies: 21
Views: 315

Re: นำเข้าข้อมูลมาแสดงหลายคอลั่มน์

การที่มีการบวกตัวเลข +0 เพื่อทำให้ตัวที่ไปบวกมีค่าเป็น ตัวเลข ถ้าตัวที่จะไปบวกไม่ใช่ตัวเลขแต่เป็นตัวอักษร ค่าที่บวกเขาไปก็จะ
Error ครับ

Go to advanced search