Page 1 of 1
Re: การ Import data และการ ซ่อน row column
Posted: Sat Mar 26, 2011 7:36 pm
by Panuwat
ขอบพระคุณอาจารย์มากครับ
ขอแสดงความนับถือ
ภาณุวัฒน์
Re: การ Import data และการ ซ่อน row column
Posted: Wed Mar 30, 2011 11:54 am
by Panuwat
เรียนท่านอาจารย์
เป็นคำถามที่ต่อเนื่องจากที่ผ่านมา เนื่องจากในระหว่างที่กำลัง IMPORT DATA อยู่ โปรแกรมจะใช้เวลาในการ ตรวจสอบ เพื่อ IMPORT ข้อมูล จาก ชีตรับข้อมล มา ชีตรับเป้าหมาย มาก ซึ่งในระหว่างที่รอนี้ ผมกลัวว่าผู้ใข้จะนึกว่าโปรแกรมแฮงค์ ซึ่งในระหว่างที่รอซึ่งต้องใช้เวลาพอสมควร จึงอยากให้มีการแสดง Progress bar ว่าโปรแกรมได้ทำงานไปถึงไหน กี่เปอร์เซ็นต์แล้วครับ
ขอแสดงความนับถือ
Re: การ Import data และการ ซ่อน row column
Posted: Thu Mar 31, 2011 2:17 pm
by snasui
ลองดูตัวอย่างการใช้ Userform สร้าง Progress bar ตามไฟล์แนบครับ
Re: การ Import data และการ ซ่อน row column
Posted: Thu Mar 31, 2011 4:04 pm
by Panuwat
ขอบคุณมากครับท่านอาจารย์ ทดลองคลิ๊กที่ปุ่ม IMPORT DATA แล้ว ปรากฏว่า ERROR ครับ น่าจะเกิดจาก ในเครื่องของผมไม่มี Tool Progress bar ไม่ทราบว่าเราจะ Download จากที่ไหนครับ (MS OFFICE 2003)
ขอแสดงความนับถือ
Re: การ Import data และการ ซ่อน row column
Posted: Thu Mar 31, 2011 4:13 pm
by snasui
ลองเปลี่ยน Code ShowUserform เป็นตามด้านล่างครับ
Code: Select all
Sub ShowUserForm()
With UserForm1
.LabelProgress.Width = 0
.Left = Range("L10").Left
.Top = Range("L10").Top
.Show
End With
End Sub
Re: การ Import data และการ ซ่อน row column
Posted: Thu Mar 31, 2011 4:42 pm
by Panuwat
ทำได้แล้วครับ ขอบพระคุณอาจารย์มากครับ
Re: การ Import data และการ ซ่อน row column
Posted: Thu Mar 31, 2011 5:39 pm
by Panuwat
อาจารย์ครับ เจอปัญหาอีกแล้วครับ เนื่องจากเดิม การ Import data เพื่อนำข้อมูลจากไฟล์ 200451-KPI-Maker.xls มาใส่ในไฟล์ประเมินผล3.xls ชีต รับข้อมูล แล้วแปลงค่าจากชีตรับข้อมูลมาเป็นข้อมูลในชีตรับเป้าหมาย คือให้เช็คจาก รหัสพนักงาน ตรงกับชื่อ ตรงกับชื่อผลิตภัณฑ์ ทำให้เกิดปัญหาคือ เวลาที่ข้อมูล ชื่อพนักงาน ในไฟล์ 200451-KPI-Maker.xls อาจจะมีการเว้นวรรคระหว่างชื่อ - นามสกุลไม่เหมือนกับไฟล์ ไฟล์ประเมินผล 3.xls (ไฟล์รับข้อมูล) หรือการคีย์ชื่อนามสกุลผิด โปรแกรมก็จะไม่ดีงข้อมูลมาครับ ซึ่งการผิดพลาดเหล่านี้เราไม่สามารถควบคุมไฟล์ที่ส่งมาคือไฟล์ 200451-KPI-Maker.xls ได้ครับ ผมจึงขอความกรุณาให้อาจารย์ เขียน code ให้ใหม่ เอาแค่ว่า รหัสพนักงาน ตรงกับ ชื่อผลิตภัณฑ์ ไม่ต้องตรวจสอบชื่อพนักงานครับ
ขอแสดงความนับถือ
Re: การ Import data และการ ซ่อน row column
Posted: Thu Mar 31, 2011 6:02 pm
by snasui
ที่ Procedure ชื่อ ImportExcelFile ปรับเป็นตามด้านล่าง (
*** ส่วนที่ใช้ '... คือ Code เดิม)
Code: Select all
Sub ImportExcelFile()
'...
With Worksheets("รับเป้าหมาย")
.Range("C4").Formula _
= "=LOOKUP(9.99999999999999E+307,CHOOSE({1,2},0," & _
"INDEX(รับข้อมูล!$B$2:$EF$500,MATCH(C$2,รับข้อมูล!$B$2:$B$500,0)," & _
"MATCH($A4,รับข้อมูล!$B$2:$EF$2,0))))"
Call PasteData
End With
'...
End Sub
สังเกตว่าเปลี่ยนที่สูตร
Match เท่านั้นครับ
Re: การ Import data และการ ซ่อน row column
Posted: Fri Apr 01, 2011 9:01 am
by Panuwat
ทำได้แล้วครับ ขอบพระคุณอาจารย์มากครับ
ภาณุวัฒน์