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 ạ
giúp dùm mình nhé ProGửi file lên đi bạn.
giúp dùm mình nhé Pro
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.
Bạn chèn sheet nào bị như vậy?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.
shell 070430 đó bạnBạn chèn sheet nào bị như vậy?
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ôngSheet070344
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
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ứngMì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
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
Pro cho em hỏi chèn code bằng cách nào vậy ạĐể tiện cho việc convert to range toàn bộ table trong sheet "070403", ta viết đoạn code nhỏ:
Chạy code, sau khi MsgBox hiện ra hãy kiểm tra lại mục InsertMã: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
Làm vầy:Pro cho em hỏi chèn code bằng cách nào vậy ạ
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!- Đầ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
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ốngLàm vầy:
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!
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ôiThank 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