Tôi cũng gặp phải lỗi sau, toàn bộ chuỗi mã của tôi được liệt kê bên dưới
Sub ProcessPayroll02[]
'Clear Payroll Data BU 02
Sheets["BU02Data"].Select
Range["A1:G500"].Select
Selection.ClearContents
Range["A1"].Select
'Copy Data from Import to BU02Data
Dim ws As Worksheet
Set ws = Worksheets["BU02Data"]
With Worksheets["Import"]
.Range["A1:G1"].AutoFilter 6, "500-*"
.AutoFilter.Range.Offset[].Copy ws.Range["A" & Rows.Count].End[xlUp].Offset[]
.AutoFilterMode = False
End With
'Clear Ghost Data
Sheets["BU02Data"].Select
Dim LR As Long, LC As Long
Dim ws As Worksheet
For Each ws In Worksheets
LR = ws.Range["A" & ws.Rows.Count].End[xlUp].Row + 1
LC = ws.Cells[1, ws.Columns.Count].End[xlToLeft].Column + 1
'Clear everything below column A last cell and row 1 last cell
ws.Range[ws.Cells[1, LC], ws.Cells[ws.Rows.Count, ws.Columns.Count]].Delete
ws.Range[ws.Cells[LR, 1], ws.Cells[ws.Rows.Count, ws.Columns.Count]].Delete
Next ws
'Copy BU02Data Data to Atlas Upload
Sheets["GeneralJournal"].Select
Range[Range["B17:M17"], Range["B17:M17"].End[xlDown]].Select
Selection.ClearContents
Sheets["BU02Data"].Select
Range[Range["H1:s1"], Range["H1:S1"].End[xlDown]].Copy
Worksheets["GeneralJournal"].Range["B17"].PasteSpecial Paste:=xlPasteValues
'Clear Clipboard
Application.CutCopyMode = False
On Error Resume Next
Sheets["GeneralJournal"].Select
With Range["Q17:Q" & Cells[Rows.Count, "B"].End[xlUp].Row]
.Formula = "=IF[[@AccountType]=""Ledger"",CONCATENATE[[@[Main account]],""-"",[@BusinessUnit],""-"",[@Department],""-"",[@CostCenter],""-"",[@CIP],""-""],IF[OR[[@AccountType]=""Customer"",[@AccountType]=""Vendor"",[@AccountType]=""Fixedassets""],SUBSTITUTE[[@[Main account]],""-"",""\-"",1],[@[Main account]]]]"
End With
'Delete Blank Rows if No Data in cells in Column B
On Error Resume Next
Sheets["GeneralJournal"].Select
Range["B17:B500"].Select
Selection.SpecialCells[xlCellTypeBlanks].EntireRow.Delete
Range["B17"].Select
End Sub
Để mở Trình kiểm tra tài liệu, bấm vào Tệp > Thông tin > Kiểm tra sự cố > Kiểm tra tài liệu. Cửa sổ Kiểm tra Tài liệu Excel được hiển thị bên dưới sẽ mở ra
Nhấp vào Kiểm tra để xác định nội dung ẩn, sau đó nhấp vào Xóa tất cả để xóa mục bạn chọn
Sau khi bạn hoàn thành các bước này, hãy lưu tài liệu và bảng tính sẽ không chứa dữ liệu ẩn mà bạn đã xóa
Chỉnh sửa thuộc tính tài liệu, thông tin cá nhân và dữ liệu tài liệu khác
Để chỉnh sửa hoặc xóa dữ liệu tài liệu một cách có chọn lọc, hãy nhấp vào Tệp > Thông tin > Thuộc tính. Nhấp vào Hiển thị tất cả thuộc tính. Xóa hoặc sửa thông tin
Chọn lọc Xóa hoặc Chỉnh sửa Nhận xét
Microsoft Excel cung cấp khả năng thêm nhận xét vào sổ làm việc. Thông thường, nhận xét chứa tên của người tạo ra chúng và chúng xuất hiện dưới dạng một hình tam giác nhỏ màu đỏ ở góc trên bên phải của ô
Để xem nhận xét, hãy nhấp vào ô và nhận xét sẽ bật lên
Để xóa chú thích, bấm chuột phải vào ô chứa chú thích, rồi bấm Xóa chú thích trên menu lối tắt
Một ô ma là một ô có vẻ trống nhưng chứa một số dữ liệu. Có thể tạo Ghost cell trong excel và người dùng có thể sử dụng tính năng này để ẩn bất kỳ dữ liệu nào trên các ô của ô. Dữ liệu bí mật trên ô ma có thể được truy xuất, thay đổi và cũng có thể được định dạng. Khi ô ma được tạo và thông tin được thêm vào ô đó, người dùng có thể kiểm tra lại dữ liệu bằng cách nhấp hoặc di chuột lên trên ô ma. Tuy nhiên, thủ thuật này có thể không phải ai cũng quen thuộc với excel. Tương tự, một số người có thể cảm thấy khó khăn khi tạo ghost excel. Bài viết này đã giúp bạn được bảo hiểm
Rộng ra là 3 cách tạo ghost thông dụng và dễ dàng trên một ô bất kỳ trên tài liệu excel
- Tôi đang thêm xác thực dữ liệu
- Sử dụng định dạng có điều kiện và hàm IF
- Sử dụng Excel VBA
Mỗi phương pháp trên được thảo luận chi tiết dưới đây
Thêm xác thực dữ liệu
Đây là một trong những phương pháp dễ nhất để thêm ô ma vào tài liệu excel của bạn. Nó được liên kết với một số bước. Các bước này bao gồm