Các thắc mắc về "File" đề nghị post ở đây

Liên hệ QC
Tôi loay hoay 1 hồi, mới đưa về được 46M, chắc phải đợi thành viên khác giúp bạn vậy..
Untitled.jpg
Xuống được 26M rồi
Tại các sheet có chứa quá nhiều shape ẩn
bạn dùng code này để xóa các shape nhé

Sub xoa_shape()
Dim hinh As Shape
For Each hinh In ActiveSheet.Shapes
hinh.Visible = True
hinh.Delete
Next
End Sub
 
Lần chỉnh sửa cuối:
http://www.mediafire.com/download/sjomgd8g2t6db80/Revised_SD.rar
Xin lỗi các bác em quên nén lại trước khi up lên mediafire. Đây là file của nó chỉ có 2M thôi ạ
- file của bạn thật ra chỉ có 75KB,
- dung lượng File tăng đột biến là do có quá nhiều Object (Shape, Textbox ...) + bạn kẻ ô, Format cells quá nhiều (bạn dùng tổ hợp phím Ctrl+End để kiểm tra số liệu hoặc định dạng ô cuối cùng của 1 sheet)
- bạn tải lại file đính kèm: kẻ lại ô + Format cells lại cho các sheet AAH, TSC, VNX (chỉ thực hiện trong vùng có chứa số liệu)

'------------
- muốn thấy các Object của 1 sheet: tại thanh Ribbon - chọn HOME - Find&Select - Selection Pane --> các Object của 1 sheet sẽ hiện ra (do có quá nhiều nên phải dùng code để xóa cho lẹ)
pic 1.jpg

- việc xóa thuộc tính, cách nhanh nhất --> bạn chọn toàn bảng tính (Ctrl+A), tại thanh Ribbon - chọn HOME - Clear - Clear Formats (bạn chỉ làm theo cách này khi sheet đó chưa có cài bất kỳ Conditional Formatting nào cả)
clearFormat.jpg
 

File đính kèm

  • Revised SD (new).xlsx
    74.9 KB · Đọc: 3
Lần chỉnh sửa cuối:
- file của bạn thật ra chỉ có 75KB,
- dung lượng File tăng đột biến là do có quá nhiều Object (Shape, Textbox ...) + bạn kẻ ô, Format cells quá nhiều (bạn dùng tổ hợp phím Ctrl+End để kiểm tra số liệu hoặc định dạng ô cuối cùng của 1 sheet)
- bạn tải lại file đính kèm: kẻ lại ô + Format cells lại cho các sheet AAH, TSC, VNX (chỉ thực hiện trong vùng có chứa số liệu)

'------------
- muốn thấy các Object của 1 sheet: tại thanh Ribbon - chọn HOME - Find&Select - Selection Pane --> các Object của 1 sheet sẽ hiện ra (do có quá nhiều nên phải dùng code để xóa cho lẹ)
- việc xóa thuộc tính, cách nhanh nhất --> bạn chọn toàn bảng tính (Ctrl+A), tại thanh Ribbon - chọn HOME - Clear - Clear Formats (bạn chỉ làm theo cách này khi sheet đó chưa có cài bất kỳ Conditional Formatting nào cả)

Thanks bác rất nhiều

Bác có thể chỉ giáo cho em cách làm nhanh nhất để xứ lý không ạ, để lần sau em gặp còn xử lý được không phải nhờ các bác

Em không biết cách nào để xóa các dòng thừa đi cả
 
Lần chỉnh sửa cuối:
Thanks bác rất nhiều
Bác có thể chỉ giáo cho em cách làm nhanh nhất để xứ lý không ạ, để lần sau em gặp còn xử lý được không phải nhờ các bác
Em không biết cách nào để xóa các dòng thừa đi cả
- mình hướng dẫn khá kỹ bên trên rồi đó,
- chỉ chưa có đưa code vì code đó xóa tất cả các Object trong 1 sheet ---> nếu bạn chưa biết dùng Macro thì ko nên dùng, mà hãy kiểm soát - bằng công cụ có sẵn của Excel.
- mình dùng code sau để xóa toàn bộ Object của 1 sheet:
[GPECODE=vb]
Sub Siwtom_Xoa()
k = ActiveSheet.Shapes.Count
Do While k > 0
ActiveSheet.Shapes(k).Delete
k = k - 1
Loop
End Sub

[/GPECODE]
 
- mình hướng dẫn khá kỹ bên trên rồi đó,
- chỉ chưa có đưa code vì code đó xóa tất cả các Object trong 1 sheet ---> nếu bạn chưa biết dùng Macro thì ko nên dùng, mà hãy kiểm soát - bằng công cụ có sẵn của Excel.
- mình dùng code sau để xóa toàn bộ Object của 1 sheet:
[GPECODE=vb]
Sub Siwtom_Xoa()
k = ActiveSheet.Shapes.Count
Do While k > 0
ActiveSheet.Shapes(k).Delete
k = k - 1
Loop
End Sub
[/GPECODE]
Nếu dùng code này sẽ xóa toàn bộ Object, không biết có cách nào xóa các Object bị ẩn thôi không anh.
 
Lần chỉnh sửa cuối:
Nếu dùng code này sẽ xóa toàn bộ Object, không biết có cách nào xóa các Object bị ẩn thôi không anh.
mình mới thử với Textbox ẩn còn các Comment và ... thì chưa,
[GPECODE=vb]
Sub Chuot()
k = ActiveSheet.Shapes.Count

Do While k > 0
With ActiveSheet.Shapes(k)
If .Visible = False Then .Delete
End With
k = k - 1
Loop

End Sub
[/GPECODE]
 
File của mình bị lỗi này, mình đã làm các hướng dẫn như trên diễn đàn nhưng ko đc, các bạn giúp mình với, ngoài file này mình còn bị nhiều file khác trong máy, nếu sửa đc các bạn hướng dẫn mình với nhé. Cảm ơn các bạn rất nhiều
 

File đính kèm

  • THEO DÕI MUA SGK +TA.xls
    179.5 KB · Đọc: 2
File của mình bị lỗi này, mình đã làm các hướng dẫn như trên diễn đàn nhưng ko đc, các bạn giúp mình với, ngoài file này mình còn bị nhiều file khác trong máy, nếu sửa đc các bạn hướng dẫn mình với nhé. Cảm ơn các bạn rất nhiều
có phải file của bạn đang "bị lỗi" sau:
pic1.jpg

nếu vậy, thử làm theo cách sau:
- mở file, click Yes bình thường.
- Save As file đó, chọn Tools - bỏ chọn mục Read-only recommended - click OK.

pic2.jpg
 
giúp đỡ các file excel không mở được.

Em có rất nhiều file excel bị lỗi như thế này có bác nào có phần mềm sửa file hoặc là cách mở thì giúp em nhé.

 

File đính kèm

  • 2.xls
    40.3 KB · Đọc: 5
  • 3.xls
    254.7 KB · Đọc: 2
  • bien ban.xls
    19 KB · Đọc: 2
không mở được file

ai biết giúp mình với
 
Không mở được File mà chả thấy file đâu
 
không mở được file

ai biết chỉ giúp nhé
 

File đính kèm

  • Nội bộ.rar
    86 KB · Đọc: 3
# Bạn coi được chưa.
 

File đính kèm

  • [solved] GPE-594146.zip
    106.4 KB · Đọc: 3
Không có cao thủ nào giúp em à.
 
Web KT
Back
Top Bottom