Xin nhờ trợ giúp lổi excel không hiện chữ insert dòng ạ.

Liên hệ QC

minhnhutdtc

Thành viên mới
Tham gia
23/8/18
Bài viết
5
Được thích
0
Mình có 1 file excel bị lổi, muôn chèn dòng vào nhưng bị ẩn chữ insert như thế này. xin nhờ ace trợ giúp ạ
 

File đính kèm

  • Zalo_ScreenShot_1_10_2018_658842.png
    Zalo_ScreenShot_1_10_2018_658842.png
    84.5 KB · Đọc: 12
Do bạn sử dụng hết dòng cuối cùng thì làm sao insert được nữa.

Xóa bớt những dòng do định dạng là hết.

Cái này mình thấy nó có vấn đề khác, File gốc mình chèn trên hay sau bảng tính thì được, nhưng chèn trong phạm vị sau dòng tiêu đề tới dòng tổng thì không được.
 

File đính kèm

Bạn chèn sheet nào bị như vậy?
shell 070430 đó bạn
Bài đã được tự động gộp:

Sheet070344

Chèn trước dòng 8 thì được
View attachment 204852

Chèn từ dòng 8 đến 600 là không được
View attachment 204854
mình cần là làm cái vùng đó đó. hôm trước mình có chèn auto thêm công thức khi insert dòng. có phải là lý do này không
 
Mình có 1 file excel bị lổi, muôn chèn dòng vào nhưng bị ẩn chữ insert như thế này. xin nhờ ace trợ giúp ạ
Lỗi file này là do chèn quá nhiều Table, mỗi cột là 1 table. Bạn có thể bấm Ctrl + F3 để kiểm chứng
Giải pháp: Convert to Range toàn bộ các tables là xong
 
Lỗi file này là do chèn quá nhiều Table, mỗi cột là 1 table. Bạn có thể bấm Ctrl + F3 để kiểm chứng
Giải pháp: Convert to Range toàn bộ các tables là xong

Lúc nảy em có xóa thử table nhưng cũng không chèn được, có 1 số table vẫn không xóa được.
 
Để tiện cho việc convert to range toàn bộ table trong sheet "070403", ta viết đoạn code nhỏ:
Mã:
Sub Convert2Range()
  Dim idx As Long
  With ActiveSheet
    If .ListObjects.Count Then
      For idx = .ListObjects.Count To 1 Step -1
        .ListObjects(idx).Unlist
      Next
      MsgBox "Xong!"
    Else
      MsgBox "Sheet này không có table"
    End If
  End With
End Sub
Chạy code, sau khi MsgBox hiện ra hãy kiểm tra lại mục Insert
 
Để tiện cho việc convert to range toàn bộ table trong sheet "070403", ta viết đoạn code nhỏ:
Mã:
Sub Convert2Range()
  Dim idx As Long
  With ActiveSheet
    If .ListObjects.Count Then
      For idx = .ListObjects.Count To 1 Step -1
        .ListObjects(idx).Unlist
      Next
      MsgBox "Xong!"
    Else
      MsgBox "Sheet này không có table"
    End If
  End With
End Sub
Chạy code, sau khi MsgBox hiện ra hãy kiểm tra lại mục Insert
Pro cho em hỏi chèn code bằng cách nào vậy ạ
 
Pro cho em hỏi chèn code bằng cách nào vậy ạ
Làm vầy:
- Đầu tiên bấm tổ hợp phím Alt + F11 (để vào cửa sổ lập trình)
- Trong cửa sổ lập trình này, chọn menu Insert rồi chọn mục Module (để chèn 1 module mới)
- Copy code tôi cho bạn rồi paste vào khung bên phải của Module
- Bấm Alt + Q để thoát về bảng tính
- Bấm Alt + F8, chọn tên "Convert2Range" rồi bấm Run
Bước đầu để vào con đường lập trình là "biết cách xài code người khác viết". Xài xong đừng có.. ghiền nha!
 
Thank ndu96081631 mình insert được rồi. nhưng phần auto chèn công thức của mình mất rồi. giờ chèn công thức phải kéo xuống
Gì vậy? Thì bạn chọn hết bảng tính, bấm Ctrl + L là mọi chuyện được giải quyết thôi
Tức là lúc trước bạn đã chèn Table nhưng mà chèn quá nhiều, mỗi cột 1 table là điều phi lý. Chỉ cần 1 table cho toàn bộ bảng tính là được rồi
 
Web KT

Bài viết mới nhất

Back
Top Bottom