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

by songsug
Fri Dec 12, 2014 11:53 am
Forum: Excel
Topic: ต้องการให้ Sheet ในแต่ละ Sheet เปลี่ยนเป็นชื่อที่ต้อง
Replies: 5
Views: 1830

Re: ต้องการให้ Sheet ในแต่ละ Sheet เปลี่ยนเป็นชื่อที่ต้อง

ลองเอา Code นี้ไป Run ที่ sheet1 ดูครับ Sub RenameSheets() Row = 3 'เราเริ่มบรรทัดที่ 3 For Each o In Worksheets If Range("C" & Row).Value = "" Then Exit For If o.Name <> "Sheet1" Then o.Name = Range("C" & Row).Value Row = Row + 1 Next End Sub
by songsug
Fri Dec 12, 2014 11:42 am
Forum: Excel
Topic: เปิด code vba ไม่ได้ครับ
Replies: 5
Views: 1572

Re: เปิด code vba ไม่ได้ครับ

โปรแกรมหา Combobox ไม่เจอครับ ดูจากภาพ คุณเขียนอยู่ที่ Sheet2 หรือป่าวครับ ไม่ใช่ Sheet8 ลองเช็คดูครับ
by songsug
Thu Dec 11, 2014 1:25 pm
Forum: Excel
Topic: สูตรหากไม่เข้าเงื่อนไขต้องการให้ว่างค่ะ
Replies: 2
Views: 1035

Re: สูตรหากไม่เข้าเงื่อนไขต้องการให้ว่างค่ะ

ลองสูตรนี้ดูนะครับ
=IF(OR(D3="",G3=""),"",IF(D3=G3,"",F3&" "&G3&"x"&H3&D3))

คัดลอกไปไว้ที่ J3 แล้วคัดลอกลงล่าง
by songsug
Wed Oct 22, 2014 5:36 pm
Forum: Excel
Topic: ลบแถวอัตโนมัติ ตามเงื่อนไขที่ต้องการ
Replies: 3
Views: 3560

Re: ลบแถวอัตโนมัติ ตามเงื่อนไขที่ต้องการ

แบบนี้ได้หรือป่าวครับ ใช้ Code เข้ามาช่วย Sub Test() Dim intRow As Integer intRow = 19 Do While Range("G" & intRow).Value <> "" If (Range("R" & intRow).Value + Range("S" & intRow).Value + Range("T" & intRow).Value) = 0 Then Rows(intRo...
by songsug
Wed Oct 22, 2014 5:14 pm
Forum: Excel
Topic: ลบแถวอัตโนมัติ ตามเงื่อนไขที่ต้องการ
Replies: 3
Views: 3560

Re: ลบแถวอัตโนมัติ ตามเงื่อนไขที่ต้องการ

ถ้าคอล้มน์ว่างๆสักช่อง เอา Stock + BO + Forecast แล้วก็ใช้ autofilter กรองค่าบรรทัดที่เป็น 0 แล้วลบออกก็ได้นี่ครับ
by songsug
Tue Oct 07, 2014 1:27 pm
Forum: Excel
Topic: การเปิดโปรแกรมอื่นด้วย VBA
Replies: 24
Views: 6175

Re: การเปิดโปรแกรมอื่นด้วย VBA

แบบนี้หรือป่าวครับ เปิด TextFile แล้ววน Loop เอามาวาง Private Sub CommandButton1_Click() Dim Handle As Integer, File_Name As String Dim WriteRow As Long, TemArr, OneLine As String Dim intRow As Integer intRow = 1 Handle = FreeFile File_Name = "ทีอยู่ TextFile" Open File_Name For Input As #...
by songsug
Mon Oct 06, 2014 11:55 am
Forum: Excel
Topic: การเปิดโปรแกรมอื่นด้วย VBA
Replies: 24
Views: 6175

Re: การเปิดโปรแกรมอื่นด้วย VBA

แบบสั้นๆครับ เปิดได้ทุกนามสกุลที่ผมใช้อยู่นะ Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) ...
by songsug
Thu May 22, 2014 7:13 pm
Forum: Excel
Topic: ต้องการค้นหาจาก 2 ตัวแปร B6 กับ E6
Replies: 3
Views: 1184

Re: ต้องการค้นหาจาก 2 ตัวแปร B6 กับ E6

ลองสร้าง Field ที่เป็น PK ขึ้นมาใหม่สิครับ โดยเอาสอง Field ที่ต้องการหาเอามารวมกับโดยใช้ & เช่น คุณอยากทราบ ชนิดภัย กับ อำเภอว่ากี่ครั้ง คุณก็เอา Field ชนิดภัย & อำเภอ จะได้ว่า อัคคีภัยบางมะพร้าว ประมาณนี้ เราก็จะได้ PK ใหม่ เอาไว้ใช้ร่วมกับสูตรพื้นฐานเช่น Countif และ Sumif ได้อย่างสบายๆครับ...
by songsug
Tue Jan 21, 2014 3:27 pm
Forum: Jobs
Topic: สำหรับเพื่อนๆ สนใจสมัครงานเกี่ยวกับ Excel ตามนี้เลยนะครับ
Replies: 6
Views: 13996

สำหรับเพื่อนๆ สนใจสมัครงานเกี่ยวกับ Excel ตามนี้เลยนะครับ

Position Excel Development Staff (ด่วน) Functional Area ซ.เพชรเกษม 122 Properties เพศ ช/ญ อายุ 23 ปีขึ้นไป จบการศึกษาระดับปริญญาตรีในสาขาคอมพิวเตอร์หรืออืน ๆ ที่เกี่ยวข้อง ใช้ Mocrosoft Excel ได้เป็นอย่างดี Auto Filter ,PivotTable,สร้างกราฟได้,สูตร Vlookup,สูตร Match , สูตร SUM, สูตร IF ซ้อน IF หรือ...
by songsug
Sat Aug 25, 2012 3:52 pm
Forum: Other
Topic: การเชื่อม Controls Source ไม่แน่นอน
Replies: 3
Views: 2385

Re: การเชื่อม Controls Source ไม่แน่นอน

จากที่อ้างอิงชื่อ Field เปลี่ยนเป็นอ้างอิงลำดับที่ของ Field ได้ไหมครับ เช่น Text1.text = rs.fields(1)
by songsug
Wed Jun 27, 2012 11:25 pm
Forum: Excel
Topic: ส้าง VBA เพื่อ Select ตารางใน Excel จำนวนมากๆ
Replies: 15
Views: 4069

Re: ส้าง VBA เพื่อ Select ตารางใน Excel จำนวนมากๆ

อาจารย์ต้องเปิดห้องสอนภาษาไทยแล้วล่ะผมว่า :lol:
by songsug
Wed Jun 27, 2012 5:24 pm
Forum: Excel
Topic: อยากทราบวิธีเขียนสูตรข้อความที่มีความยาวสูงสุดและน้อยสุด
Replies: 7
Views: 1994

Re: อยากทราบวิธีเขียนสูตรข้อความที่มีความยาวสูงสุดและน้อยสุด

ลองใช้ conditional formatting เข้ามาช่วยครับ
ลองดูตามไฟล์ตัวอย่างนะครับ
ถ้านับจำนวนตัวอักษรได้เท่ากับค่ามากสุด ให้เป็นแถบเหลือง แต่ถ้านับได้เท่ากับน้อยสุดให้สีแดง จากนั้นถ้าไม่ใช่ให้ขึ้นปกติ
by songsug
Wed Jun 27, 2012 5:11 pm
Forum: Excel
Topic: Code VBA แสดงผลได้ไม่ครบทุกเงือนไข
Replies: 5
Views: 1913

Re: Code VBA แสดงผลได้ไม่ครบทุกเงือนไข

ลองดูครับ Sub Test() Dim Score As Integer Score = [C1] If Score > [E7] Then ' มากกว่าเวลามากที่สุด MsgBox "++Champion++ คุณคือผู้ทำเวลาได้ดีที่สุดในขณะนี้" ElseIf Score = [E7] Then 'เท่ากับเวลามากที่สุด MsgBox "ดีมากครับ...คุณทำเวลาได้เท่ากับเวลาที่ดีที่สุดในขณะนี้" ElseIf Score ...
by songsug
Tue Apr 24, 2012 5:32 pm
Forum: Excel
Topic: แปลงวันที่จากข้อความเป็นรูปแบบวันที่
Replies: 9
Views: 3062

Re: แปลงวันที่จากข้อความเป็นรูปแบบวันที่

อาจารย์ผมลองดูวันที่แล้ว เป็น Text ทั้งดุ้นเลยครับ เหมือนดึงมาจากฐานข้อมูลที่มี Format เป็น Varchar เลยครับ ดึง Value ออกมาใช้ไม่ได้เลย เอาแบบนี้ได้ไหม แปลงวันที่ก่อน แล้วค่อยนำสูตรท่านอาจารย์ไปใช้ แปลง Text ของคุณเป็นวันที่ก่อน ที่ D3 พิมพ์ =DATE(RIGHT(C3,4)-543,MATCH((TRIM(MID(C3,MAX(IF(ISERROR(SE...
by songsug
Tue Apr 24, 2012 5:03 pm
Forum: Excel
Topic: แปลงวันที่จากข้อความเป็นรูปแบบวันที่
Replies: 9
Views: 3062

Re: แปลงวันที่จากข้อความเป็นรูปแบบวันที่

หาอายุงาน เรามักจะใช้ Datedif ครับ
หาปี = Datedif(วันที่เริ่ม,Today(),"Y")
หาเดือน = Datedif(วันที่เริ่ม,Today(),"YM")
หาัวัน = Datedif(วันที่เริ่ม,Today(),"MD")
by songsug
Tue Apr 24, 2012 3:27 pm
Forum: Excel
Topic: การคิดเวลารวมและคิดโอทีพนักงาน
Replies: 8
Views: 7633

Re: การคิดเวลารวมและคิดโอทีพนักงาน

ลองสูตรของผมดูนะครับ ผมคำนวนแล้วได้เวลาทั้งสิ้น 136 ชั่วโมง 20 นาที ที่ B8 ใส่ =(SUM(HOUR(IF(ISNUMBER($B$12:$B$42),$B$12:$B$42,0))))+(INT((SUM(MINUTE(IF(ISNUMBER($B$12:$B$42),$B$12:$B$42,0)))/60)))+(((MOD((SUM(MINUTE(IF(ISNUMBER(B12:B42),B12:B42,0)))/60),1)*60))/100) Ctrl + Shift + Enter ผมแยกชั่วโม...
by songsug
Tue Apr 17, 2012 12:15 pm
Forum: Excel
Topic: Multi sheets by user
Replies: 2
Views: 1239

Re: Multi sheets by user

ใช้ userForm เข้ามาช่วยในการ Login สิครับ ซึ่งแต่ละคนก็จะมี User และรหัสผ่านเป็นของตนเอง จากนั้นเราค่อยกำหนดสิทธิ์การใช้งานของแต่ละ user
by songsug
Fri Apr 13, 2012 7:48 pm
Forum: Excel
Topic: รบกวนขอเทคการเรียงข้อมูลใหม่ด้วยครับ
Replies: 3
Views: 1348

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

Transpose ใช้ในกรณีที่เราต้องการวางข้อมูลสลับกับข้อมูลตั้งต้น เช่น คัดลอกมาเป็น Row แล้ววางเป็น Column ครับ หรือ คัดลอกมาเป็นแบบ Column แล้ววางเป็น Row ครับ (สวัสดีวันสงกรานต์ครับ)
by songsug
Fri Apr 13, 2012 9:35 am
Forum: Excel
Topic: คำนวณข้ามไฟล์หาผลรวมข้ามไฟล์แบบมีเงื่อนไข
Replies: 3
Views: 3245

Re: คำนวณข้ามไฟล์หาผลรวมข้ามไฟล์แบบมีเงื่อนไข

ถ้าเป็นแบบน้้นส่วนใหญ่ผมจะนำข้อมูลทั้งหลายไปเก็บไว้ใน Sql server ครับ โดยใช้โปรแกรม Excel เป็นตัวคีย์ข้อมูลเข้าไป ซึ่งกรณีข้อมูลมากจากหลายแหล่งข้อมูล เราก็จะทำไฟล์ให้แต่ละส่วนใช้งาน ซึ่งไฟล์ที่ทำส่วนมาก มักจะทำหน้าตาเดิมๆ เพราะ user ส่วนใหญ่มักกลัวการเปลี่ยนแปลง (โดยเฉพาะคนเก่าคนแก่ กลัวเทคโนโลยี) แ...