จำนวนผู้เช้าชม

mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterวันนี้1838
mod_vvisit_counterเมื่อตะวา2042
mod_vvisit_counterสัปดาห์นี้11559
mod_vvisit_counterสัปดาห์ก่อน12806
mod_vvisit_counterเดือนนี้36015
mod_vvisit_counterเดือนก่อน57232
mod_vvisit_counterสรุปผู้เยี่ยมชม2905118
Excel Sumข้ามFile ด้วย VBA : เตรียมไฟล์ที่เกี่ยวข้อง PDF พิมพ์ อีเมล
เขียนโดย จารย์x   
advertisements


Excel Sumข้ามFile ด้วย VBA การเตรียมไฟล์ที่เกี่ยวข้อง



เราต้องมีไฟล์ Excel จำนวน 2 ไฟล์ ประกอบด้วย ไฟล์รายงาน = ที่เราทำแบบฟอร์มให้ผู้อื่นกรอกข้อมูลแล้ว

และไฟล์ Excel ที่ใช้รวมข้อมูล อีกไฟล์หนึ่งครับ


รูปที่ 1


* สังเกตุว่าถ้าเป็น Office 2007ขึ้นไป ไฟล์รวมรายงานจะต้องเป็นไฟล์ที่สามารถ Run Macroได้
   ซึ่งนามสกุลจะเป็น .xlsm

** สำหรับไฟล์ Excel ที่ใช้กรอกข้อมูลนั้น สามารถเป็นได้ทั้ง .xls , .xlsx , .xlsm ก็ได้ครับ


รูปที่ 2

สำหรับไฟล์แรก คือ ไฟล์รายงานของเรา ประกอบไปด้วย Sheet จำนวน 1 Sheet ชื่อ "54-55"

มีรายละเอียดดังนี้

สิ่งที่เราต้องกรอกข้อมูลลงไป จะมีอยู่ 8 ช่อง ได้แก่ D9-D12 และ E9-E12

ส่วนช่องอื่นๆ ไม่ต้องไปสนใจครับ เพราะเราไม่ได้เอาไปรวม

ความต้องการของเรา คือ ถ้ามีไฟล์รายงานจาก รพ.สต.สัก 5 แห่ง เราจะ รวมช่อง D9 ของทั้ง 5 แห่งได้อย่างไร ?

(รวมถึง 8 ช่องที่เราต้องการ)


รูปที่ 3

คราวนี้เรามาดูหน้าตาของไฟล์รวมข้อมูลของเราครับ ประกอบไปด้วย Sheet จำนวน 2 Sheet

ชื่อว่า Sum_Report และ sum_money

Sum_Report คือ Sheet ที่เราจะต้องกรอก จำนวนไฟล์ที่จะต้องรวม (ช่อง I11) และสร้างปุ่ม
                     ควบคุมเพื่อที่ว่าเวลาเราคลิ๊กแล้วมันจะรวมข้อมูลให้เราแบบอัตโนมัติ 555+
                     สบายรึเปล่าละ

sum_money  คือ Sheet ที่เหมือนกับตัวรายงานของเราเป๊ะๆเลย (ย้ำว่าเป๊ะๆ) ซึ่งเราจะเอาข้อมูล
                     จากรายงาน เดียวกันนี้ แต่คนละไฟล์ มารวมกัน แล้วนำค่าที่รวมแล้ว
                      มาไว้ในช่องเดิมนั้น (ถ้างงก็ดูต่อไปก่อน ใจเย็นๆ)


รูปที่ 4

sum_money  คือ Shee ที่อยู่ในไฟล์รวมข้อมูลนะครับ จะเหมือนกับฟอร์มรายงานของเราครับ

                        ตรงกันแบบช่องต่อช่อง


รูปที่ 5


ต่อมา.. สมมุติว่า เราไม่มีปุ่มกด หรือเขาเรียกว่าปุ่ม CommandButtom เราก็จะมาสร้างกัน

ถึงแม้ว่าไฟล์ตัวอย่างที่เราให้ ดาวโหลด (บทความท้ายๆ) จะมีปุ่มให้อยู่แล้ว ในกรณีที่จะสร้างใหม่

ก็ให้ทำตามนี้ครับ เผื่อจะประยุกต์ใช้ในงานอื่นๆได้ครับ (ทำตาม รูปที่ 5)


รูปที่ 6


อันนี้เป็นการเปลี่ยนชื่อในปุ่ม CommandButtom ของเรา ซึ่งเวลาเราเอามาวางใน Sheet ใหม่

มันจะชื่อ CommandButtom1 เราก็เปลี่ยนมันซะ


รูปที่ 7

สุดท้าย เมื่อเราได้องค์ประกอบครบ พร้อมปุ่ม CommandButtom ที่เราสร้างแล้ว

ก็ให้เซพไว้ก่อน  สำหรับวิธีเซพ ให้เซพ แบบ Save As นะครับ 

เป็น Excel-Macro-Enabled Workbook นะครับ นามสกุลจะเป็น .xlsm

* ในการเตรียมไฟล์ที่เกี่ยวข้องก็คงจะหมดแล้วนะครับ ให้ไปดูในหัวข้อต่อไปได้เลยครับ

    บทความก่อนหน้านี้ ...อ่านบทความ... การใส่โค๊ด VBA เพื่อให้มันทำงานรวมไฟล์ให้กับเรา



 

เพิ่มคอมเมนต์ใหม่

:: ขอให้ใช้ภาษาสุภาพครับ ::


รหัสป้องกันความปลอดภัย
รีเฟรช

ข่าวสารล่าสุด

ข่าวสารน่าสนใจ