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

Go to advanced search

by astalavista
Mon Dec 03, 2018 9:04 am
Forum: Excel
Topic: หาสิทธิ์วันลาพักร้อนโดยใช้อัตราถัวเฉลี่ยในปีแรกที่ได้รับสิทธิ์
Replies: 17
Views: 6196

Re: หาสิทธิ์วันลาพักร้อนโดยใช้อัตราถัวเฉลี่ยในปีแรกที่ได้รับสิทธิ์

ไฟล์จาก #7 เข้าใจว่าดู แถวจากอายุงานว่ากี่ปี(นับถึงปีใหม่ปีนั้น ๆ) แล้วดู คอลัมน์จากเดือนที่เข้างาน
ลองปรับ I26=OFFSET($B$11,MATCH(YEAR(NOW())-YEAR(E26),$N$11:$N$21)-1,MATCH(TEXT(E26,"ดดด"),$B$10:$M$10,0)-1)
by astalavista
Fri Nov 30, 2018 5:11 pm
Forum: Excel
Topic: ต้องการ Copy ข้อมูล Real time บน Excel มาลงในต่าง sheet แบบอัตโนมัติ
Replies: 6
Views: 2029

Re: ต้องการ Copy ข้อมูล Real time บน Excel มาลงในต่าง sheet แบบอัตโนมัติ

เครื่องผมใช้ RTD ไม่ได้ :oops: :oops:
ลองปรับเป็นแบบนี้ดูครับ

Private Sub Worksheet_Calculate()
capturerow = 2

currow = Range("A65536").End(xlUp).Row
If Format(Cells(currow, 1), "HH:MM") <> Format(Cells(capturerow, 1), "HH:MM") Then
Cells(currow + 1, 1) = Cells(capturerow, 1)
Cells(currow ...
by astalavista
Fri Nov 30, 2018 12:18 pm
Forum: Excel
Topic: รบกวนสอบถาม เรื่องสูตร Excel ครับ
Replies: 4
Views: 1055

Re: รบกวนสอบถาม เรื่องสูตร Excel ครับ

ลอง
R2=$P2/SUMPRODUCT(ISODD(COLUMN($D2:$O2))*$D2:$O2*ISEVEN(COLUMN($C2:$N2))*($C2:$N2>0))*100
ดูครับ
*** Countก่อนประถม ไม่นำมาคิดรวมใช่ไหมครับ
by astalavista
Thu Nov 29, 2018 11:11 am
Forum: Excel
Topic: ปรึกษาการใช้ Macro เพื่อสั่ง Text to Column แต่ไม่ต้องการให้มีป๊อบอัพให้ทับข้อมูลเดิม
Replies: 2
Views: 893

Re: ปรึกษาการใช้ Macro เพื่อสั่ง Text to Column แต่ไม่ต้องการให้มีป๊อบอัพให้ทับข้อมูลเดิม

ลองเพิ่ม

Code: Select all

Application.DisplayAlerts = False
ไว้ก่อนทำ Text to column
และเพิ่ม

Code: Select all

Application.DisplayAlerts = True
ไว้หลังทำ Text to column ดูครับ
by astalavista
Thu Nov 29, 2018 11:04 am
Forum: Excel
Topic: สูตรการ random ข้อมูลใน cell
Replies: 2
Views: 847

Re: สูตรการ random ข้อมูลใน cell

เนื่องจาก function Index เริ่มนับอันแรกเป็น 1 ไม่ได้นับจาก row จริง ครับ
ลองเปลี่ยนเป็น =INDEX($F$5:$F$52,RANDBETWEEN(1,48))
หรือ =INDEX($F$1:$F$52,RANDBETWEEN(5,52))
by astalavista
Wed Nov 28, 2018 10:50 am
Forum: Excel
Topic: สอบถามเรื่องการ connect sql ด้วย vba ครับ
Replies: 8
Views: 1761

Re: สอบถามเรื่องการ connect sql ด้วย vba ครับ

ลองเพิ่ม

Code: Select all

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
ไว้ส่วนบนของ function
และ

Code: Select all

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
ไว้ตอนก่อนออกจาก function ดูครับ
by astalavista
Wed Nov 21, 2018 3:46 pm
Forum: Excel
Topic: การเปลี่ยนสกุลเงินต่างประเทศ
Replies: 5
Views: 1064

Re: การเปลี่ยนสกุลเงินต่างประเทศ

ลองปรับเป็น

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRange As Range
Dim iFormat As String
If Not Application.Intersect(Target, Range("C6:C10000")) Is Nothing Then
For Each iRange In Target.Rows
Select Case Range("C" & iRange.Row)
Case "J": iFormat = "\#,##0;\-#,##0"
Case "T ...
by astalavista
Tue Nov 20, 2018 4:13 pm
Forum: Excel
Topic: แก้ไขข้อมูลที่มีอยู่แล้ว ผ่าน userForm
Replies: 28
Views: 8483

Re: แก้ไขข้อมูลที่มีอยู่แล้ว ผ่าน userForm

จาก code ผมเข้าใจว่าตอนค้นหามีการปิดไฟล์หลังจากค้นหาไปแล้ว จากคำสั่ง wb.Close False ดังนั้นตอนบันทึกน่าจะต้องเปิดไฟล์ใหม่นะครับ
by astalavista
Tue Nov 20, 2018 1:31 pm
Forum: Excel
Topic: รบกวนช่วยดู VBA ให้ทีครับ
Replies: 1
Views: 619

Re: รบกวนช่วยดู VBA ให้ทีครับ

ลองเปลี่ยน จาก xlAscending เป็น xlDescending ดูครับ
by astalavista
Tue Nov 20, 2018 11:43 am
Forum: Excel
Topic: การเปลี่ยนสกุลเงินต่างประเทศ
Replies: 5
Views: 1064

Re: การเปลี่ยนสกุลเงินต่างประเทศ

ลองปรับเป็น

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Long
Dim iFormat As String
iRow = Target.Row
If Target.Column = 3 And iRow >= 6 Then 'Column=3 (column C) iRow>=6 (start row)
Select Case Range("C" & iRow)
Case "J": iFormat = "\#,##0;\-#,##0"
Case "T": iFormat ...
by astalavista
Mon Nov 19, 2018 5:23 pm
Forum: Excel
Topic: หาค่าจากเลขโค้ดที่มีรหัสไม่เท่ากัน
Replies: 2
Views: 737

Re: หาค่าจากเลขโค้ดที่มีรหัสไม่เท่ากัน

ลองที่ D2=IFERROR(VLOOKUP(LEFT(A2,4),'ICD10'!B:C,2,0),VLOOKUP(LEFT(A2,3),'ICD10'!B:C,2,0)) ดูครับ
by astalavista
Thu Nov 15, 2018 2:43 pm
Forum: Excel
Topic: การเขียน code VBA
Replies: 2
Views: 658

Re: การเขียน code VBA

น่าจะเกิดจาก Exit Sub ครับทำให้ออกจาก sub เลยไม่ทำคำสั่งข้างล่างต่อ ลองเปลี่ยนเป็น จาก Exit Sub เป็น Exit Do ครับ
by astalavista
Tue Nov 13, 2018 2:37 pm
Forum: Excel
Topic: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ
Replies: 11
Views: 3001

Re: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

ลองปรับที่
sub ComboBox1_Change()
จาก

Code: Select all

i = Application.Match(Me.ComboBox1.Value, sh.Range("B:B"), 0)
เป็น

Code: Select all

i = Me.ComboBox1.ListIndex + 3
และ sub CommandButton1_Click()
จาก

Code: Select all

n = Application.Match(Me.ComboBox1.Value, sh.Range("B:B"), 0)
เป็น

Code: Select all

n = Me.ComboBox1.ListIndex + 3
by astalavista
Wed Nov 07, 2018 4:15 pm
Forum: Excel
Topic: กำหนด SetFocus เข้าตัวเองไม่ได้
Replies: 5
Views: 1059

Re: กำหนด SetFocus เข้าตัวเองไม่ได้

Keycode ใน sub นี้ น่าจะหมายถึงรหัส ASCII ของ keyboard ที่กดลงไปครับ โดย 0 = null
ลองเปิด google แล้ว search ว่า ascii เพื่อดูข้อมูลเพิ่มเติมครับ :D :D
by astalavista
Wed Nov 07, 2018 4:05 pm
Forum: Excel
Topic: กำหนด SetFocus เข้าตัวเองไม่ได้
Replies: 5
Views: 1059

Re: กำหนด SetFocus เข้าตัวเองไม่ได้

ลองเพิ่ม KeyCode = 0 เพื่อเคลียการกด enter
เข้าไปหลังบรรทัด MsgBox ดูครับ
by astalavista
Mon Nov 05, 2018 3:55 pm
Forum: Excel
Topic: รบกวนสอบถามหน่อยครับ การแยกแบงค์
Replies: 1
Views: 446

Re: รบกวนสอบถามหน่อยครับ การแยกแบงค์

ลอง ที่ F3=IF(MOD(FLOOR(B3,10),20),INT(($B3-SUMPRODUCT($C$2:E$2,$C3:E3))/F$2),0) Copy ลงครับ
by astalavista
Fri Nov 02, 2018 3:47 pm
Forum: Excel
Topic: ทำรายงานสินค้าคงเหลือ
Replies: 6
Views: 1334

Re: ทำรายงานสินค้าคงเหลือ

ขออภัยครับ อย่างนั้นรอท่านอื่นช่วยตอบครับ :flw: :flw: :flw:
by astalavista
Fri Nov 02, 2018 2:09 pm
Forum: Excel
Topic: ทำรายงานสินค้าคงเหลือ
Replies: 6
Views: 1334

Re: ทำรายงานสินค้าคงเหลือ

ลองเปลี่ยนตรง

Code: Select all

With Sheets("Data3")
เป็น

Code: Select all

With Sheets(Sheets("REPORT").Range("J3").Text)
ดูครับ
by astalavista
Fri Nov 02, 2018 2:06 pm
Forum: Excel
Topic: สอบถามสูตรรวมจำนวนมีเงื่อนไขที่กำหนด
Replies: 2
Views: 871

Re: สอบถามสูตรรวมจำนวนมีเงื่อนไขที่กำหนด

ลอง D2=(MATCH($A$2:$A$12,$A$2:$A$12,0)=ROW(A2)-ROW($A$1))*SUMIF($A$2:$A$12,$A$2:$A$12,$D$2:$D$12) copy ลงครับ
by astalavista
Fri Nov 02, 2018 11:27 am
Forum: Excel
Topic: ขอความช้วยเหลื่อในการสร้างสูตรจากตัวแปรหลายตัวแปรหน่อยครับ
Replies: 2
Views: 644

Re: ขอความช้วยเหลื่อในการสร้างสูตรจากตัวแปรหลายตัวแปรหน่อยครับ

B16=SUMPRODUCT(INDEX($B$9:$F$11,,MATCH($A16,$B$8:$F$8,0)),INDEX($B$2:$F$4,,MATCH(B$15,$B$1:$F$1,0)))
โดย ข้อมูลชุดที่ 1 และ ข้อมูลชุดที่ 2 จะต้องมี จำนวน FG เท่ากัน และเรียงลำดับเหมือนกันครับ

Go to advanced search