Recent Blogs Posts

หลายคนเวลาใช้ form เพื่อช่วยผู้ใช้ในการบันทึกข้อมูลเข้าระบบงาน ข้อมูลที่ต้องการจัดหมวดหมู่ เพื่อออกรายงานหรือสรุปความถี่ หรือเพื่อแยกประเภท จำเป็นต้องหลีกเลี่ยงการคีย์นอกเหนือจากชุดข้อมูลที่มี ...

Attached Files

• invoice20110630.zip‎ (29.0 KB, 96 views)

เพื่อความปลอดภัยของข้อมูล(และดูดี) ผมจึงออกแบบงานบนเอ็กเซลให้มีหน้าตาเหมือนกับเว็บไซต์แบบพื้นฐาน มีหน้าจอ มีเมนูต่างๆเป็นของตัวเอง โดยมีวิธีการคร่าวๆคือ

1. สร้าง Userform แบบ fullscreen ...

Attached Files

• excel web application.xls‎ (36.0 KB, 227 views)

งานของผมส่วนมากจะเป็นการสร้างเพื่อให้คนอื่นได้ใช้ ผมจึงต้องมีการทดลองปรับเปลี่ยนค่าต่างๆแล้วใช้งานดู ที่พบบ่อยมากๆก็คือ การเปลี่ยนค่าแล้วสร้างรีพอร์ท, เปลี่ยนค่าแล้วสร้างรีพอร์ท(อีก), เปลี่ยนค่าแล้วสร้างรีพอร์ท(อีก)...

ถ้าสร้างชีทครั้งแรกไม่เป็นไร ถ้าครั้งที่ 2 แต่ลืมลบอันเก่าทิ้ง โค้ดจะ Error ทันที บางทีรอโค้ดรันมาพักใหญ่ๆ จะได้ผลลัพท์อยู่แล้ว อ้าว...ลืมลบ... เซ็งในอารมณ์เหมือนกัน

ผมจึงคิดแก้ปัญหานี้ ด้วยการสร้างโค้ดนี้ไว้เลย

Sub DelThenAddSheet(mySheetName ...

"กรรมตามสนอง" ดังคำที่คุณมิตรภาพบอกจริง ๆ งานที่ทำไว้ในรูปแบบตาราง กลับทรยศเล่นงานตัวเองจนได้
เมื่อมีผู้ที่ต้องการใช้ข้อมูลต่อ ขอให้แยกชีตออกมา ก็งานเข้าสิครับ อย่างงานล่าสุดต้องแยกชีตประมาณ 300 ชีต เล่นเอาปวดหัวเหมือนกัน เลยปล่อยให้ผู้ใช้นั่งคัดลอกไปพลาง ๆ ก่อน

นั่งคิดอยู่เป็นวัน ได้รหัสมา

Sub Macro1()
Dim i
For i = 2 To ThisWorkbook.Sheets("Sheet1").Range("a65536").End(xlUp).Row
Sheets("Sheet1").Select
Range("b" & i).Select
Range("a"

...

Attached Files

• VBA รวมข้อมูล.xls‎ (56.0 KB, 151 views)
• VBA กระจายข้อมูล.xls‎ (54.0 KB, 121 views)

จริงอยู่สำหรับคนทำรายงานผู้บริหารแล้วจำเป็นต้องใช้ข้อมูลจากแผนกอื่น หรือ คนอื่น ซึ่งมีทั้งข้อมูลที่เราสามารถสร้างสรุปเป็นรายงานโดย pivot table ได้ทันที กับอีกพวกซึ่งมีความจำเป็นจะต้องแปลงข้อมูลก่อน ...

Attached Files

• corsstab to record.zip‎ (27.4 KB, 140 views)