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

Go to advanced search

by tupthai
Thu May 12, 2016 8:36 pm
Forum: Excel
Topic: Condition OR และเป็น ARRAY พอจะมีสูตรไหมคะ
Replies: 5
Views: 1503

Re: Condition OR และเป็น ARRAY พอจะมีสูตรไหมคะ

ลองดูครับเป็นสูตร array
=INDEX($H$1:$H$3,SMALL(IF(A1=$E$1:$G$3,ROW($H$1:$H$3)),1))
by tupthai
Thu May 12, 2016 8:00 pm
Forum: Excel
Topic: Condition OR และเป็น ARRAY พอจะมีสูตรไหมคะ
Replies: 5
Views: 1503

Re: Condition OR และเป็น ARRAY พอจะมีสูตรไหมคะ

ลองใช้สูตรธรรมดาครับ
=IF(COUNT(MATCH(A1,E1:G1,0)),H1,"")
by tupthai
Thu Nov 06, 2014 6:06 pm
Forum: Excel
Topic: ขอผู้รู้ช่วยแก้ไขสูตร นับตัวอักษรภาษาอังกฤษให้ด้วยคะ
Replies: 2
Views: 930

Re: ขอผู้รู้ช่วยแก้ไขสูตร นับตัวอักษรภาษาอังกฤษให้ด้วยคะ

D2=SUM(--(C2=MID($A$2:$A$6,TRANSPOSE(ROW($1:$10)),1)))
กด ctrl+shift+enter
copy ลงด้านล่างครับ
by tupthai
Mon Oct 20, 2014 7:37 pm
Forum: Excel
Topic: หาข้อมูลช่อสุดท้ายมาแสดงยอด
Replies: 2
Views: 1160

Re: หาข้อมูลช่อสุดท้ายมาแสดงยอด

ที่ H3 พิมพ์สูตร =LOOKUP(2,1/($B3:$G3>0),$B3:$G3)
Enter > copy ลงด้านล่างครับ


http://snasui.blogspot.com/2009/12/blog-post.html
by tupthai
Mon Oct 20, 2014 7:32 pm
Forum: Excel
Topic: หาวันสุดท้ายของการซื้อสินค้าแต่ละ lot
Replies: 2
Views: 1036

Re: หาวันสุดท้ายของการซื้อสินค้าแต่ละ lot

:o ขอโทษทีครับใส่สูตรผิด
ขอแก้เป็น =LOOKUP(2,1/(B3=$B$3:$B$12),$A$3:$A$12)
by tupthai
Sun Oct 19, 2014 12:36 am
Forum: Excel
Topic: หาวันสุดท้ายของการซื้อสินค้าแต่ละ lot
Replies: 2
Views: 1036

Re: หาวันสุดท้ายของการซื้อสินค้าแต่ละ lot

ที่ D3 พิมพ์สูตร =LOOKUP(2,1/(B3=$B$3:$B$12),$D$3:$D$12)
Enter > copy ลงด้านล่าง

http://snasui.blogspot.com/2009/12/blog-post.html
by tupthai
Sun Oct 12, 2014 1:26 am
Forum: Excel
Topic: เริ่มเขียน VBA ใน Excel
Replies: 12
Views: 2323

Re: เริ่มเขียน VBA ใน Excel

ลองทดสอบดูครับ Sub tesr() xx = DatePart("yyyy", Date) With Range("a:a") Set c = .Find(xx, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do i = i + 1 c.EntireRow.Copy Sheets("Sheet2").Cells(1 & i) Set c = .FindNext(c) Loop While Not c Is Nothing...
by tupthai
Fri Oct 10, 2014 11:33 am
Forum: Excel
Topic: แปลงวินาทีให้อยู่ในรูปแบบ hh:mm:ss ได้อย่างไร
Replies: 3
Views: 5216

Re: แปลงวินาทีให้อยู่ในรูปแบบ hh:mm:ss ได้อย่างไร

สมมติข้อมูลอยู่ที่ A1
ที่cell ใดๆพิมพ์สูตร =TIME(,,A1)
แล้วกำหนด format cells เป็น hh:mm:ss
by tupthai
Mon Apr 28, 2014 3:38 pm
Forum: Excel
Topic: Coppy sheet พร้อมกับ Insert picture รูปเก่ายังติดมา macro
Replies: 3
Views: 1169

Re: Coppy sheet พร้อมกับ Insert picture รูปเก่ายังติดมา macr

ลองเปลี่ยนจาก

Code: Select all

ActiveSheet.Copy Workbooks("Book1.xlsm").Worksheets("test") ' coppy pattern
เป็น

Code: Select all

Sheets("test").Copy After:=Sheets(Worksheets.Count)
by tupthai
Sat Apr 26, 2014 3:39 pm
Forum: Excel
Topic: อยากทราบวิธีการคำนวนข้าม sheet VBA
Replies: 24
Views: 4543

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Code: Select all

If Not c Is Nothing Then
    'หาเจอ
 Else  
    'หาไม่เจอ
 End If
by tupthai
Sat Apr 26, 2014 1:33 pm
Forum: Excel
Topic: อยากทราบวิธีการคำนวนข้าม sheet VBA
Replies: 24
Views: 4543

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

ค่าที่ได้จาก textbox ไม่ใช่ตัวเลขแต่เป็น string
ลองใช้ MsgBox TypeName(tb2.Value) ทดสอบดูครับ
เปลี่ยนเป็น integer ก่อนดังนี้ครับ

Code: Select all

ElseIf CInt(tb2.Value) > c.Offset(0, 2).Value Then
by tupthai
Sat Apr 26, 2014 11:37 am
Forum: Excel
Topic: อยากทราบวิธีการคำนวนข้าม sheet VBA
Replies: 24
Views: 4543

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Private Sub CommandButton1_Click() Sheet7.Activate lastrow = Cells(Rows.Count, 3).End(xlUp).Row With Range("c1:c" & lastrow) Set c = .Find(TextBox1.Text, LookIn:=xlValues) If Not c Is Nothing Then c.Offset(0, 2).Value = c.Offset(0, 2).Value - tb2.Value End If End With End Sub
by tupthai
Sat Apr 26, 2014 8:16 am
Forum: Excel
Topic: อยากทราบวิธีการคำนวนข้าม sheet VBA
Replies: 24
Views: 4543

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

:D ความเป็นไปได้ รายการ aaa จะมีแค่ 1 รายการหรือหลายรายการครับ
by tupthai
Fri Apr 25, 2014 7:09 pm
Forum: Excel
Topic: อยากทราบวิธีการคำนวนข้าม sheet VBA
Replies: 24
Views: 4543

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

:D ถ้าต้องการต่อจากแถวสุดท้าย ของชีท 7
ใช้

Code: Select all

Cells(lastrow+1, 5) = gty - tb2.Value
by tupthai
Fri Apr 25, 2014 6:59 pm
Forum: Excel
Topic: อยากทราบวิธีการคำนวนข้าม sheet VBA
Replies: 24
Views: 4543

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

ต้องการไว้ชีทไหน แถวไหนครับ
by tupthai
Fri Apr 25, 2014 5:35 pm
Forum: Excel
Topic: อยากทราบวิธีการคำนวนข้าม sheet VBA
Replies: 24
Views: 4543

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

ลองดูในไฟล์แนบครับ
by tupthai
Fri Apr 25, 2014 5:13 pm
Forum: Excel
Topic: อยากทราบวิธีการคำนวนข้าม sheet VBA
Replies: 24
Views: 4543

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

:o ลองอีกทีครับ Private Sub CommandButton1_Click() Sheet7.Activate lastrow = Cells(Rows.Count, 3).End(xlUp).Row With Range("c1:c" & lastrow) Set c = .Find(TextBox1.Text, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do qty = qty + c.Offset(0, 2).Value Set c = .Fin...
by tupthai
Fri Apr 25, 2014 3:55 pm
Forum: Excel
Topic: อยากทราบวิธีการคำนวนข้าม sheet VBA
Replies: 24
Views: 4543

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

:D เป็นตัวอย่างหาสต็อกคงเหลือครับ http://msdn.microsoft.com/en-us/library/aa195730%28v=office.11%29.aspx Private Sub CommandButton1_Click() With Worksheets(7).Range("c1:c" & Cells(Rows.Count, 3).End(xlUp).Row) Set c = .Find(TextBox1.Text, LookIn:=xlValues) If Not c Is Nothing Then firs...
by tupthai
Sun Apr 20, 2014 10:36 am
Forum: Excel
Topic: ใช้ multiple match จับคู่ข้อมูลหลายเงื่อนไข
Replies: 24
Views: 12265

Re: ใช้ multiple match จับคู่ข้อมูลหลายเงื่อนไข

:D ลองทดสอบดูครับ 1.ที่ชีท 2 เนื่องจากคอลัมน์ N วันที่เป็นข้อความนำไปคำนวณไม่ได้จึงใช้คอลัมน์ W ใส่วันที่แทน ที่ W2=DATE(RIGHT(N2,4),MID(N2,4,2),LEFT(N2,2)) enter >copy ลงด้านล่าง ที่ชีท 1 ก็ทำเหมือนกันได้นำวันทีไปไว้ที่ คอลัมน์ U ใช้สูตรเดียวกัน 2.ที่ V2 =IF(SUMPRODUCT(--IF(P2=ABS(sheet1!$P$2:$P$20...
by tupthai
Sat Apr 19, 2014 10:46 pm
Forum: Excel
Topic: ใช้ multiple match จับคู่ข้อมูลหลายเงื่อนไข
Replies: 24
Views: 12265

Re: ใช้ multiple match จับคู่ข้อมูลหลายเงื่อนไข

=SMALL(array, k) ค่า k ที่ต้องการหา คือลำดับที่ 1.2.3.....เป็นต้นไป สูตรที่นำไปว่างแถวแรกคือ แถวที่ 2 ถ้าใช้แค่ =row() จะได้ค่าเท่ากับ 2 แต่เราต้องการเริ่มที่ 1 จึงลบออกออก 1 จึงใช้สูตร =SMALL(array, row()-1) =IFERROR(INDEX( sheet1!$N$1:$N$24 ,SMALL(IF(ABS($P$2:$P$24)=ABS(sheet1!$P$2:$P$24),IF($T$2:...

Go to advanced search