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

by parakorn
Sat Sep 16, 2017 5:12 pm
Forum: Excel
Topic: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ
Replies: 18
Views: 259

Re: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ

:D ตัวอย่าง Code ครับ Sub Macro1() ' Macro1 Macro Dim strPath As Variant, i As Integer Dim fName As String strPath = Application.GetOpenFilename("Text files(*.txt*),*.txt*", _ Title:="Please select text files.", MultiSelect:=True) If TypeName(strPath) = "Boolean" Then ...
by parakorn
Thu Sep 14, 2017 10:27 am
Forum: Excel
Topic: ขอวิธีลบกล่องข้อความที่มีเยอะ ๆ แบบรวดเร็วครับ
Replies: 2
Views: 80

Re: ขอวิธีลบกล่องข้อความที่มีเยอะ ๆ แบบรวดเร็วครับ

Object มีหลายประเภท ลองลบข้อมูลอื่นๆออก แล้วแนบไฟล์ตัวอย่างมาดูครับ
by parakorn
Thu Sep 14, 2017 9:44 am
Forum: Excel
Topic: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ
Replies: 18
Views: 259

Re: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ

snasui wrote::D ปรับบรรทัด If ที่ใช้เช็คชื่อไฟล์เป็นด้านล่างครับ

If Application.CountIf(.Range("c:c"), VBA.Left(nb.Name, InStrRev(nb.Name, ".") - 1)) Then


Complete แล้วครับ :cp:
by parakorn
Wed Sep 13, 2017 11:57 am
Forum: Excel
Topic: แยกวันโดยการใส่สี
Replies: 1
Views: 69

Re: แยกวันโดยการใส่สี

คลิ๊ก A2 > Home > Conditional Formatting > New Rule > Use Formula to determine > ช่อง Format Value ใส่สูตร
=MOD(COUNTIF($A$2:$A2,1),2) > ปรับ Format ตามต้องการ > OK
แล้ว ใช้ Format Painter ไปวางให้ทั่วตาราง หรือ Copy ไปวาง แบบ Special โดยเลือกเฉพาะ Format ครับ
by parakorn
Wed Sep 13, 2017 12:45 am
Forum: Excel
Topic: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ
Replies: 18
Views: 259

Re: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ

ตรวจชื่อไฟล์ครับ(เข้าใจว่าต้อง นำมา match กับชื่อไฟล์ที่คีย์แล้วคือ column C)
by parakorn
Tue Sep 12, 2017 3:58 pm
Forum: Excel
Topic: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ
Replies: 18
Views: 259

Re: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ

ขอสอบถามเพิ่มเติมต่อเลยนะครับ จาก Code ด้านบน ต้องการจับเงื่อนไขเพิ่มเติมดังนี้ครับ ที่ Sheet Count คือชีทที่วาง Code สำหรับ Import File ซึ่งหาก ไฟล์ที่ Import มีการ Import ซ้ำ (มีชื่อไฟล์ ใน Column C) ต้องการเพิ่ม กล่องโต้ตอบ Yes No เพื่อยืนยันว่าจะ Import หรือไม่ โดยต้องการ Check ทุกๆไฟล์ที่เลือกจ...
by parakorn
Tue Sep 12, 2017 9:20 am
Forum: Excel
Topic: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ
Replies: 18
Views: 259

Re: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ

:D ตัวอย่างการปรับ Code ครับ Sub Macro1() ' Macro1 Macro Dim strPath As Variant, i As Integer Dim fName As String, nb As Workbook Dim tb As Workbook Set tb = ThisWorkbook strPath = Application.GetOpenFilename("Excel files(*.xlsx*),*.xlsx*", _ Title:="Please select text files.", ...
by parakorn
Mon Sep 11, 2017 10:22 am
Forum: Excel
Topic: สอบถาม ต้องการแยกตัวเลขในเซลไปใช้งานครับ
Replies: 4
Views: 57

Re: สอบถาม ต้องการแยกตัวเลขในเซลไปใช้งานครับ

parttime wrote:
parakorn wrote:B3 =INT((A3-ROUNDDOWN(A3,0))*10) Enter+Copy ลงด้านล่าง
C3 =INT(ROUND(A3-ROUNDDOWN(A3,1),4)*100) Enter+Copy ลงด้านล่างครับ



C3 =INT((B3-ROUNDDOWN(B3,0))*10)
D3 =INT(ROUND(B3-ROUNDDOWN(B3,1),4)*100)
ขอบคุณครับ


ดึกแล้ว ง่วงไปหน่อยครับ :lol: :lol:
by parakorn
Mon Sep 11, 2017 12:44 am
Forum: Excel
Topic: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ
Replies: 18
Views: 259

Re: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ

เรียนสอบถามเพิ่มเติมครับ ผมได้ลองปรับโค้ดที่อาจารย์สอน มาใช้กับงานลักษณ์ เลือกไฟล์หลายๆ มาเรียงต่อกัน โดยขอเพิ่มเงื่อนไข ใส่ชื่อชีทเพิ่มใน คอลัมภ์สุดท้าย ทุกๆบรรทัด เท่าที่มีข้อมูล ก่อน Copy นำมาต่อกันด้วยครับ ซึ่งโค้ดที่ได้ลองปรับเบื้องต้น ดังนี้ครับ Sub Macro1() ' Macro1 Macro Dim strPath As Varia...
by parakorn
Sun Sep 10, 2017 11:46 pm
Forum: Excel
Topic: คำนวนเวลาที่จอดรถ คำนวนเวลาแบบข้ามวันให้คิดออกมาเป็นชม.
Replies: 3
Views: 79

Re: คำนวนเวลาที่จอดรถ คำนวนเวลาแบบข้ามวันให้คิดออกมาเป็นชม.

Benya wrote:ต้องใช้สูตรการหาเวลา และคำนวนออกมาแบบไหนอ่ะคะ


โปรดระมัดระวังในการใช้ภาษา ตามกฎของฟอรั่มด้วยครับ
by parakorn
Sun Sep 10, 2017 11:42 pm
Forum: Excel
Topic: สอบถาม ต้องการแยกตัวเลขในเซลไปใช้งานครับ
Replies: 4
Views: 57

Re: สอบถาม ต้องการแยกตัวเลขในเซลไปใช้งานครับ

B3 =INT((A3-ROUNDDOWN(A3,0))*10) Enter+Copy ลงด้านล่าง
C3 =INT(ROUND(A3-ROUNDDOWN(A3,1),4)*100) Enter+Copy ลงด้านล่างครับ
by parakorn
Sun Sep 10, 2017 11:22 pm
Forum: Excel
Topic: สอบถามการใช้ Google sheet เป็นฐานข้อมูลติดต่อกับ Excel
Replies: 3
Views: 61

Re: สอบถามการใช้ Google sheet เป็นฐานข้อมูลติดต่อกับ Excel

ผมไม่เคยใช้ Google Sheet แต่พอผ่านๆตามาบ้าง ซึ่ง Google Sheet ก็มีสูตรคล้ายๆ Excel
สิ่งที่ต้องการ คือ Vlookup เหมือน Excel ใช่หรือไม่ครับ
by parakorn
Sun Sep 10, 2017 11:17 pm
Forum: Excel
Topic: ดึงข้อมูลไปโชว์อีก Sheet
Replies: 2
Views: 99

Re: ดึงข้อมูลไปโชว์อีก Sheet

A1 =INDIRECT("DATA!C"&(ROWS($A$1:A1)*2)-1) Enter+Copy ลงด้านล่าง
ฺB1 =INDIRECT("DATA!N"&(ROWS($A$1:B1)*2)) Enter+Copy ลงด้านล่างครับ
by parakorn
Sun Sep 03, 2017 6:08 pm
Forum: Excel
Topic: (Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ
Replies: 18
Views: 259

(Macro VBA)ต้องการดึงไฟล์มาทีละหลายๆไฟล์ นำมาแปลงไฟล์ครับ

เรียนอาจารย์ที่เคารพ และเพื่อนสมาชิกในบอร์ดครับ เผอิญผมบันทึก Macro การ แปลงไฟล์ จาก .txt มาเป็นไฟล์ Excel แล้วทำการเซพกลับไปที่ โฟลเดอร์เดิมทีละไฟล์ จากโค้ดแนบนี้ อยากขอรบกวน ปรับเป็นการทำงานทีเดียวทุกๆไฟล์ ครับ :D Sub Macro1() ' Macro1 Macro ChDir "E:\Input" Workbooks.OpenText Filename:=...
by parakorn
Sun Sep 03, 2017 5:41 pm
Forum: Excel
Topic: การทำ mail merge ใน excel
Replies: 4
Views: 94

Re: การทำ mail merge ใน excel

ใส่ตัวอย่างผลลัพท์ที่ต้องการมาด้วยครับ

Go to advanced search