การ Import data และการ ซ่อน row column

[Panuwat]

ขอบพระคุณอาจารย์มากครับ

ขอแสดงความนับถือ
ภาณุวัฒน์

[Panuwat]

เรียนท่านอาจารย์
เป็นคำถามที่ต่อเนื่องจากที่ผ่านมา เนื่องจากในระหว่างที่กำลัง IMPORT DATA อยู่ โปรแกรมจะใช้เวลาในการ ตรวจสอบ เพื่อ IMPORT ข้อมูล จาก ชีตรับข้อมล มา ชีตรับเป้าหมาย มาก ซึ่งในระหว่างที่รอนี้ ผมกลัวว่าผู้ใข้จะนึกว่าโปรแกรมแฮงค์ ซึ่งในระหว่างที่รอซึ่งต้องใช้เวลาพอสมควร จึงอยากให้มีการแสดง Progress bar ว่าโปรแกรมได้ทำงานไปถึงไหน กี่เปอร์เซ็นต์แล้วครับ

ขอแสดงความนับถือ

[snasui]

ลองดูตัวอย่างการใช้ Userform สร้าง Progress bar ตามไฟล์แนบครับ

[Panuwat]

ขอบคุณมากครับท่านอาจารย์ ทดลองคลิ๊กที่ปุ่ม IMPORT DATA แล้ว ปรากฏว่า ERROR ครับ น่าจะเกิดจาก ในเครื่องของผมไม่มี Tool Progress bar ไม่ทราบว่าเราจะ Download จากที่ไหนครับ (MS OFFICE 2003)
ขอแสดงความนับถือ

[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

[Panuwat]

ทำได้แล้วครับ ขอบพระคุณอาจารย์มากครับ

[Panuwat]

อาจารย์ครับ เจอปัญหาอีกแล้วครับ เนื่องจากเดิม การ Import data เพื่อนำข้อมูลจากไฟล์ 200451-KPI-Maker.xls มาใส่ในไฟล์ประเมินผล3.xls ชีต รับข้อมูล แล้วแปลงค่าจากชีตรับข้อมูลมาเป็นข้อมูลในชีตรับเป้าหมาย คือให้เช็คจาก รหัสพนักงาน ตรงกับชื่อ ตรงกับชื่อผลิตภัณฑ์ ทำให้เกิดปัญหาคือ เวลาที่ข้อมูล ชื่อพนักงาน ในไฟล์ 200451-KPI-Maker.xls อาจจะมีการเว้นวรรคระหว่างชื่อ - นามสกุลไม่เหมือนกับไฟล์ ไฟล์ประเมินผล 3.xls (ไฟล์รับข้อมูล) หรือการคีย์ชื่อนามสกุลผิด โปรแกรมก็จะไม่ดีงข้อมูลมาครับ ซึ่งการผิดพลาดเหล่านี้เราไม่สามารถควบคุมไฟล์ที่ส่งมาคือไฟล์ 200451-KPI-Maker.xls ได้ครับ ผมจึงขอความกรุณาให้อาจารย์ เขียน code ให้ใหม่ เอาแค่ว่า รหัสพนักงาน ตรงกับ ชื่อผลิตภัณฑ์ ไม่ต้องตรวจสอบชื่อพนักงานครับ

ขอแสดงความนับถือ

[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 เท่านั้นครับ

[Panuwat]

ทำได้แล้วครับ ขอบพระคุณอาจารย์มากครับ
ภาณุวัฒน์