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

by pong2532
Fri May 19, 2017 7:53 pm
Forum: Excel
Topic: ขอความช่วยเหลือ Code VB เพื่อป้องกันการลบข้อมูล
Replies: 3
Views: 932

Re: ขอความช่วยเหลือ Code VB เพื่อป้องกันการลบข้อมูล

ปรับโค๊ดตามนี้ครับ Application.EnableEvents = False On Error Resume Next Sheets("student").Select ActiveSheet.Unprotect If Err <> 0 Then MsgBox "รหัสผ่านไม่ถูกต้อง โปรดติดต่อผู้พัฒนาโปรแกรม" Exit Sub End If If Sheets("Student").ProtectContents = False Then If MsgBox(&qu...
by pong2532
Wed May 17, 2017 1:52 pm
Forum: Excel
Topic: อยากแยกแต่ละ sheet ใน excel ประมาณ 30 sheet ออกเป็นแต่ละไฟล์ ครับ โดยที่แยก มาแล้ว สูตรMacro เดิม ยังสามารถใช้ได้ อยู่
Replies: 9
Views: 1793

Re: อยากแยกแต่ละ sheet ใน excel ประมาณ 30 sheet ออกเป็นแต่ละไฟล์ ครับ โดยที่แยก มาแล้ว สูตรMacro เดิม ยังสามารถใช้ได้ อย

1.Export Module1 ไปเก็บไว้ก่อน 2.แทรก Code Import Module1.bas ตัวอย่าง Code ครับ Sub test() Dim n As Integer For n = 1 To Sheets.Count - 1 Windows("ใช้ตามชื่อไฟล์.xlsm").Activate ActiveSheet.Select ActiveSheet.Move Application.VBE.ActiveVBProject.VBComponents.import "C:\test\Module1.b...
by pong2532
Fri May 12, 2017 7:43 pm
Forum: Excel
Topic: สอบถามการเปิด Excel 2 หน้าต่างพร้อมกัน
Replies: 2
Views: 8580

Re: สอบถามการเปิด Excel 2 หน้าต่างพร้อมกัน

1.เปิดไฟล์ที่เราต้องการเปิดขึ้นมา
2.เปิดไฟล์ excel เปล่าๆขึ้นมาอีกอัน โดยเลือกจาก all program menu
3. จะได้หน้าจอสองหน้าจอแล้ว
4.ลากไฟล์ที่เราต้องการเปิดอีกไฟล์ มาบนหน้าต่าง ไฟล์ excel เปล่าที่เราเปิดขึ้นมาไว้
5.จะสามารถทำงานได้ สองหน้าจอ แยกกันแล้วครับ
จะเอากี่จอก็ได้ครับ
by pong2532
Thu Apr 20, 2017 9:01 am
Forum: Excel
Topic: ต้องการล๊อกไฟล์ และ การทำ Sort
Replies: 3
Views: 1230

Re: ต้องการล๊อกไฟล์ และ การทำ Sort

ดูที่ไฟล์แนบครับ มีวิธีทำที่ Sheet 2
by pong2532
Wed Apr 19, 2017 4:45 pm
Forum: Excel
Topic: ต้องการล๊อกไฟล์ และ การทำ Sort
Replies: 3
Views: 1230

Re: ต้องการล๊อกไฟล์ และ การทำ Sort

1 ทำการปลดล๊อคเซลล์ทั้งหมดก่อนโดยการเลือกเซลล์ทั้งหมด (กดตรงมุมซ้ายบน A1) 2 click ขวา >Format cells>Protection เอาเครื่องหมายตรง Locked ออกให้ว่าง กด ok 3 คลุมคอลั่มที่ต้องการล็อค(G ถึงแถว i ) 4 click ขวา >Format cells>Protection ตรง Locked กด Checkbox กด OK 5ตรงแท็ป Review ทำตามรูปครับหรือจะใส่รหัส...
by pong2532
Wed Apr 19, 2017 4:12 pm
Forum: Excel
Topic: ขอสุตรใส่จุดทศนิยมครับ
Replies: 6
Views: 1272

Re: ขอสุตรใส่จุดทศนิยมครับ

ที่ B2 = A1/100 ครับ
สูตรเดียวกันเลยครับ เป็นการหารค่าจำนวนเต็ม หารด้วย100 จะได้ทศนิยม 2 ตำแหน่งครับ
by pong2532
Tue Apr 11, 2017 5:03 pm
Forum: Excel
Topic: สอบถามการข้าม Range Sheet VBA//ปัญหาเพิ่ม Column ไม่ได้//การใส่เลขนับจำนวนข้อมูลครับ
Replies: 3
Views: 905

Re: สอบถามการข้าม Range Sheet VBA//ปัญหาเพิ่ม Column ไม่ได้//การใส่เลขนับจำนวนข้อมูลครับ

ขอตอบในฐานะผู้ที่เคยใช้งานนะครับ ข้อ1 Private Sub UserForm_Initialize() Dim say As Integer Application.ScreenUpdating = False say = WorksheetFunction.CountA(Worksheets("Data_All_Sale").Range("B:B")) ListBox2.RowSource = "Data_All_Sale!B6:M" & say ListBox2.ColumnCoun...
by pong2532
Mon Apr 10, 2017 1:11 pm
Forum: Excel
Topic: ต้องการแปลงวันที่
Replies: 4
Views: 692

Re: ต้องการแปลงวันที่

ที่ B2 =DATE(RIGHT(A2,2),MID(A2,3,2),LEFT(A2,2)) คัดลอกลงล่างครับ
by pong2532
Fri Apr 07, 2017 3:24 pm
Forum: Excel
Topic: VBA หาค่าสูงสุด
Replies: 2
Views: 1180

Re: VBA หาค่าสูงสุด

โค๊ดครับ r = 7 Range(Range("i" & r), Range("i" & r).End(xlDown)).Select max = Application.max(Sheets(ActiveSheet.Name).Range(Selection.Address)) Do Until tempBook.Sheets("ÃÒ§ҹ1").Range("i" & r) = "" If tempBook.Sheets("ÃÒ§ҹ1"...
by pong2532
Thu Apr 06, 2017 6:01 pm
Forum: Excel
Topic: สอบถามการใช้สูตรครับ
Replies: 2
Views: 631

Re: สอบถามการใช้สูตรครับ

ที่S7 =IF(Q7="","",IF(R7="","",P7+Q7-R7))
คัดลอกวางที่ REMAINS ถัดไปด้วยครับ
by pong2532
Thu Mar 30, 2017 8:50 am
Forum: Excel
Topic: ต้องการกระจายคะแนนในช่องคะแนนย่อยครับ
Replies: 4
Views: 2039

Re: ต้องการกระจายคะแนนในช่องคะแนนย่อยครับ

'ที่ B5 =IF((D5*20/$D$4)<=12,RANDBETWEEN(5,6),IF((D5*20/$D$4)<=13,RANDBETWEEN(6,7),IF((D5*20/$D$4)<=15,RANDBETWEEN(7,8),IF((D5*20/$D$4)<=17,RANDBETWEEN(8,9),IF((D5*20/$D$4)<=20,RANDBETWEEN(9,10)))))) 'ที่ C5 =(D5*20/$D$4)-B5 ลากลงล่างครับ เป็นสูตรสุ่มตัวเลข จะเปลี่ยนทุกครั้งที่มีการคำนวณหรือเปลี่ยนแ...
by pong2532
Wed Mar 29, 2017 11:11 am
Forum: Excel
Topic: แก้ไขเพิ่มเติมสูตร LOOKUP ในกรณีที่"ช่องว่าง" ให้แสดงเป็น "0"
Replies: 5
Views: 964

Re: แก้ไขเพิ่มเติมสูตร LOOKUP ในกรณีที่"ช่องว่าง" ให้แสดงเป็น "0"

ที่็H6=IF(E6>0,LOOKUP(E6,{0,3.2,3.4,3.6,3.8,4},{-0.4,-0.2,"",0.2,0.3,0.4}),"0") ที่ I6=IF(F6>0,LOOKUP(F6,{0,8.25,8.35,8.5,8.7},{-0.4,-0.2,"",0.3,0.6}),"0") ที่ J6=IF(G6>0,LOOKUP(G6,{0,201,301,401,501,701,1001},{0.5,0.3,0.2,0,-0.2,-0.3,-0.5}),"0") คลุ...
by pong2532
Thu Mar 16, 2017 6:22 pm
Forum: Excel
Topic: ขอสูตรตัดเกรดค่ะ
Replies: 4
Views: 935

Re: ขอสูตรตัดเกรดค่ะ

สูตร IF ครับ
ที่ c11=IF(B11<0.8,"F",IF(B11<0.85,"E",IF(B11<0.9,"D",IF(B11<0.95,"C",IF(B11<1,"B","A"))))) copy ลงล่างครับ
by pong2532
Wed Mar 15, 2017 1:35 pm
Forum: Excel
Topic: เลือกสูตรโดยไม่ใช้เมาส์คลิ๊ก
Replies: 2
Views: 788

Re: เลือกสูตรโดยไม่ใช้เมาส์คลิ๊ก

Yamazato wrote:กด Tab ครับ และใช้ ลูกศรขึ้น หรือ ลง เพื่อเลือกฟังก์ชั่น
ขอคุณมากครับ