การซ่อมแซมเวิร์กบุ๊กที่เสียหาย

กู้คืนข้อมูลเมื่อเปิดเวิร์กบุ๊กใน Excel

• เปลี่ยนเวิร์กบุ๊กให้เป็นเวอร์ชันที่บันทึกล่าสุด    ถ้าเวิร์กบุ๊กเสียหายในขณะที่คุณทํางาน แต่ก่อนที่คุณจะบันทึกการเปลี่ยนแปลงของคุณ คุณสามารถแปลงเวิร์กบุ๊กของคุณเป็นเวอร์ชันที่บันทึกล่าสุดได้ ดังนี้

  1. คลิก แฟ้ม > เปิด

  2. ดับเบิลคลิกที่ชื่อเวิร์กบุ๊กที่คุณได้เปิดใน Excel

  3. คลิก ใช่ เพื่อเปิดเวิร์กบุ๊กนั้นใหม่

     เวิร์กบุ๊กจะเปิดขึ้นโดยไม่มีการเปลี่ยนแปลงใดๆ ที่คุณทําซึ่งอาจทําให้เวิร์กบุ๊กเสียหาย

กู้คืนข้อมูลเมื่อคุณไม่สามารถเปิดเวิร์กบุ๊กใน Excel

• ตั้งค่าตัวเลือกการคํานวณใน Excel ด้วยตนเอง    ลองเปลี่ยนการตั้งค่าการคํานวณจากอัตโนมัติเป็นด้วยตนเอง เนื่องจากเวิร์กบุ๊กจะไม่ถูกคํานวณใหม่ จึงอาจเปิดได้

  1. คลิก ไฟล์ > ใหม่

  2. ภายใต้ ใหม่ ให้คลิก เวิร์กบุ๊กเปล่า

  3. คลิก ไฟล์ > ตัวเลือก

  4. ในประเภท สูตร ภายใต้ ตัวเลือกการคํานวณ ให้เลือก ด้วยตนเอง แล้วคลิก ตกลง

  5. คลิก แฟ้ม > เปิด

  6. ค้นหา แล้วดับเบิลคลิกที่เวิร์กบุ๊กที่เสียหายเพื่อเปิดเวิร์กบุ๊กนั้น

• ใช้การอ้างอิงภายนอกเพื่อลิงก์ไปยังเวิร์กบุ๊กที่เสียหาย    เมื่อต้องการเรียกใช้เฉพาะข้อมูลและไม่ใช่สูตรหรือค่าจากการคํานวณจากเวิร์กบุ๊ก ให้ลองใช้การอ้างอิงภายนอกเพื่อลิงก์ไปยังเวิร์กบุ๊กที่เสียหาย

  1. คลิก แฟ้ม > เปิด

  2. ไปที่โฟลเดอร์ที่มีเวิร์กบุ๊กที่เสียหาย

  3. คลิกขวาที่ชื่อไฟล์ของเวิร์กบุ๊กที่เสียหาย คลิก คัดลอก แล้วคลิก ยกเลิก

  4. คลิก ไฟล์ > ใหม่

  5. ภายใต้ ใหม่ ให้คลิก เวิร์กบุ๊กเปล่า

  6. ในเซลล์ A1 ของเวิร์กบุ๊กใหม่ ให้พิมพ์ =ชื่อไฟล์! A1 โดยที่ ชื่อไฟล์ คือชื่อของเวิร์กบุ๊กที่เสียหายที่คุณคัดลอกไว้ในขั้นตอนที่ 3 แล้วกด Enter

     หมายเหตุ:  คุณต้องใส่เฉพาะชื่อของเวิร์กบุ๊กเท่านั้น โดยคุณไม่จําเป็นต้องพิมพ์นามสกุลของชื่อไฟล์

  7. ถ้ากล่องโต้ตอบ อัปเดตค่า ปรากฏขึ้น ให้เลือกเวิร์กบุ๊กที่เสียหาย แล้วคลิก ตกลง

  8. ถ้ากล่องโต้ตอบ เลือกแผ่นงาน ปรากฏขึ้น ให้เลือกแผ่นงานที่เหมาะสม แล้วคลิก ตกลง

  9. เลือกเซลล์ A1

  10. คลิก หน้าแรก > คัดลอก หรือกด Ctrl+C

  11. เลือกพื้นที่ เริ่มต้นในเซลล์ A1 ที่มีขนาดประมาณช่วงของเซลล์ที่มีข้อมูลในเวิร์กบุ๊กที่เสียหาย

  12. คลิก หน้าแรก > วาง หรือกด Ctrl+V

  13. เมื่อช่วงของเซลล์ยังคงถูกเลือกอยู่ ให้คลิก หน้าแรก > คัดลอก อีกครั้ง หรือกด Ctrl+C

  14. คลิก หน้าแรก > ลูกศรด้านล่าง วาง จากนั้นภายใต้ วางค่า ให้คลิก ค่า

      การวางค่าจะเอาลิงก์ไปยังเวิร์กบุ๊กที่เสียหายออก และทิ้งไว้เฉพาะข้อมูล

• ใช้แมโครเพื่อแยกข้อมูลจากเวิร์กบุ๊กที่เสียหาย    ถ้าแผนภูมิถูกลิงก์ไปยังเวิร์กบุ๊กที่เสียหาย ให้ลองใช้แมโครเพื่อแยกข้อมูลต้นฉบับของแผนภูมิ

  1. คัดลอกโค้ดแมโครต่อไปนี้แล้ววางในแผ่นงานมอดูล:

     GetChartValues() ย่อย

     Dim NumberOfRows เป็นจํานวนเต็ม

     วัตถุ Dim X As

     ตัวนับ = 2

     ' คํานวณจํานวนแถวของข้อมูล

     NumberOfRows = UBound(ActiveChart.SeriesCollection(1) ค่า)

     เวิร์กชีต("ChartData") เซลล์(1, 1) = "ค่า X"

     ' เขียนค่าแกน x ลงในเวิร์กชีต

     มีเวิร์กชีต("ChartData")

     . ช่วง( เซลล์(2, 1), _

     . Cells(NumberOfRows + 1, 1)) = _

     Application.Transpose(ActiveChart.SeriesCollection(1) XValues)

     ลงท้ายด้วย

     ' วนรอบชุดข้อมูลทั้งหมดในแผนภูมิและเขียนค่าไปยัง

     ' เวิร์กชีต

     สําหรับแต่ละ X ใน ActiveChart.SeriesCollection

     เวิร์กชีต("ChartData") เซลล์(1, ตัวนับ) = X.Name

     มีเวิร์กชีต("ChartData")

     . ช่วง( เซลล์(2, เคาน์เตอร์), _

     . Cells(NumberOfRows + 1, Counter)) = _

     Application.Transpose(X.Values)

     ลงท้ายด้วย

     เคาน์เตอร์ = เคาน์เตอร์ + 1

     ถัดไป

     End Sub

  2. แทรกหรือลบเวิร์กชีตในเวิร์กบุ๊กของคุณ ให้คลิกขวาที่แท็บแผ่นงาน ของเวิร์กชีต แล้วเปลี่ยนชื่อเป็น ChartData

  3. เลือกแผนภูมิที่คุณใช้แยกค่าข้อมูลต้นแบบ

     หมายเหตุ: แผนภูมิอาจฝังตัวในเวิร์กชีตหรือในแผ่นงานแผนภูมิที่แยกต่างหาก

  4. เรียกใช้แมโคร

  5. ข้อมูลจากแผนภูมิจะถูกวางบนเวิร์กชีต ChartData

ด้านบนของหน้า