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

กู้คืนข้อมูลเมื่อเวิร์กบุ๊กเปิดอยู่ใน 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. คัดลอกโค้ดแมโครต่อไปนี้และวางในแผ่นงานมอดูล:

     Sub GetChartValues()

     Dim NumberOfRows As Integer

     Dim X As Object

     Counter = 2

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

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

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

     ' เขียนค่าแกน x ไปยังเวิร์กชีต

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

     . Range(. เซลล์(2, 1), _

     . เซลล์(NumberOfRows + 1, 1)) = _

     Application.Transpos <2>(ActiveChart.SeriesCollection(1) XValues)

     ลงท้ายด้วย

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

     ' เวิร์กชีต

     For Each X In ActiveChart.SeriesCollection

     เวิร์กชีต("ChartData") Cells(1, Counter) = X.Name

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

     . Range(. Cells(2, Counter), _

     . เซลล์(NumberOfRows + 1, Counter)) = _

     Application.Transpos <2>(X.Values)

     ลงท้ายด้วย

     Counter = Counter + 1

     ถัดไป

     End Sub

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

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

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

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

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

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