Excel KHÔNG nhận dạng định dạng ngày tháng của tôi.

Tôi đang gặp sự cố với định dạng ngày tháng trong Excel 2010. Tôi đang sao chép thông tin từ một chương trình khác vào bảng tính Excel của mình. Chương trình kia sử dụng định dạng ngày tháng là DDMMYY. Vì vậy, ngày 1 tháng 7 năm 2014 sẽ hiển thị dưới dạng 010714. Có cách nào để tôi thay đổi cách Excel "hiển thị" ngày tháng không?


Trả lời:

Tôi đã hy vọng rằng sẽ có cách nào đó để 'chuyển đổi' Excel để áp dụng điều này? Ngay cả khi chỉ là từng trang tính một...

Cảm ơn sự hỗ trợ của bạn cho đến nay.

-Jeremy

Nếu bạn sẵn sàng sử dụng giải pháp Visual Basic, bạn có thể thiết lập sao cho mỗi khi người dùng nhập ngày tháng ở định dạng DDMMYY vào các ô cụ thể, một chương trình con VBA sẽ được khởi chạy để tự động chuyển đổi nội dung ô thành ngày tháng thực hoặc thành chuỗi văn bản ở dạng "DD-MM-YY".

Không có cách nào để Excel lưu trữ giá trị nhập "010577" dưới dạng ngày tháng - Excel sử dụng định dạng ngày tháng nội bộ riêng của nó, và nó sẽ trông giống như 28130 hơn.

Đoạn mã dưới đây có thể được chèn vào mô-đun mã của mỗi bảng tính, bạn có thể truy cập mô-đun này bằng cách nhấp chuột phải vào tab bảng tính và chọn "Xem mã". Bất cứ khi nào người dùng thực hiện thay đổi trên bảng tính, đoạn mã này sẽ kiểm tra xem có thay đổi nào trong Cột J (nơi bạn nhập ngày tháng thủ công) hay không. Nó kiểm tra các thay đổi không hợp lệ, sau đó chuyển đổi bất cứ thứ gì được nhập thành chuỗi văn bản ở định dạng "DD-MM-YY".

Hãy dán nó vào một trong các bảng tính của bạn và thử nhập một vài dữ liệu vào Cột J để xem nó có hoạt động chính xác hay không. Bạn có muốn thử điều này không?

'===== BẮT ĐẦU MÃ =====

Tùy chọn rõ ràng

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dateRange As Range, intRange As Range
Làm mờ Cell As Range
Dim disAllow As Boolean
Dim myDate As Date

'Thiết lập "phạm vi quan tâm" để kiểm tra các ngày sắp tới
Đặt dateRange = Me.Range("J2:J50000")
'Kiểm tra xem các ô đã thay đổi trên bảng tính có giao nhau với phạm vi quan tâm của chúng ta hay không.'
Đặt intRange = Intersect(dateRange, Target)
'Một số tế bào của chúng tôi đã thay đổi...'
Nếu (Not intRange Is Nothing) thì
'
'Trước khi làm bất cứ điều gì, hãy kiểm tra xem có thay đổi nào bị cấm không.'
'Nếu phát hiện bất kỳ thay đổi nào không được phép, hãy hoàn tác hành động đó.'
Việc xóa nội dung ô được cho phép.
'Nhập các giá trị không thể chuyển đổi thành
'Không được phép nhập ngày tháng - thao tác này sẽ dẫn đến việc hoàn tác.'
'
không cho phép = Sai
Đối với mỗi ô trong phạm vi intRange.Cells
Nếu (theCell <> "") thì
Nếu (Không phải IsLawsonDate(theCell.Value)) thì ' Nếu phát hiện một ô được nhập sai, hãy hoàn tác toàn bộ thao tác
MsgBox "Thay đổi đó không được phép vì nó tạo ra ngày tháng không chính xác trong một hoặc nhiều ô!", vbExclamation + vbOKOnly, "Lỗi!"
Application.EnableEvents = False
Ứng dụng.Hoàn tác
Ứng dụng.ChoPhóngSựKiện = Đúng
Thoát khỏi Sub
Kết thúc nếu
Kết thúc nếu
Tiếp theo là tế bào
'
'Nếu chúng ta đã đến được đây, hành động của người dùng là hợp pháp, vậy thì cứ tiếp tục chuyển đổi ngày tháng đi.'
'
Đối với mỗi ô trong phạm vi intRange.Cells
Nếu (theCell <> "") thì
Gọi ConvertLawsonDate(theCell.Text, myDate)
Application.EnableEvents = False
theCell = Format(myDate, "DD-MM-YY")
Ứng dụng.ChoPhóngSựKiện = Đúng
Kết thúc nếu
Tiếp theo là tế bào
Kết thúc nếu

End Sub

Private Function IsLawsonDate(ByVal inputString As String) As Boolean
Khai báo i1 kiểu Integer, i2 kiểu Integer, i3 kiểu Integer
Dim returndate As Date
'
' Định dạng ngày tháng Lawson = "DDMMYY"
'
IsLawsonDate = True
Debug.Print "hi"
Nếu (Len(inputString) = 5) thì inputString = "0" và inputString

Nếu (Chiều dài của chuỗi đầu vào <> 6 hoặc không phải là số của chuỗi đầu vào) thì
IsLawsonDate = False
Khác
i1 = Left(inputString, 2)
i2 = Mid(inputString, 3, 2)
i3 = Right(inputString, 2)
Nếu (i1 < 1 Hoặc i1 > 31 Hoặc _
i2 < 1 Hoặc i2 > 12 Hoặc _
i3 < 1) Thì IsLawsonDate = False
Khi xảy ra lỗi, hãy chuyển đến NotLawsonDate
ngày trả về = DateSerial(i3, i2, i1)
Kết thúc nếu
Chức năng thoát
'
NotLawsonDate:
IsLawsonDate = False
Kết thúc hàm


Private Sub ConvertLawsonDate(ByVal inputString As String, ByRef returndate As Date)
Khai báo i1 kiểu Integer, i2 kiểu Integer, i3 kiểu Integer
'
' Định dạng ngày tháng Lawson = "DDMMYY"
'
Nếu (Len(inputString) = 5) thì inputString = "0" và inputString

i1 = Left(inputString, 2)
i2 = Mid(inputString, 3, 2)
i3 = Right(inputString, 2)
Khi xảy ra lỗi, hãy chuyển đến NotLawsonDate
ngày trả về = DateSerial(i3, i2, i1)
Thoát khỏi Sub
'
NotLawsonDate:
returndate = DateSerial(1900, 1, 1)
End Sub

'===== KẾT THÚC MÃ =====

Comments

Post a Comment

Popular posts from this blog

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu Tôi đã tạo một bộ bảng chấm công của nhân viên trong một thư mục, mỗi bảng được xác định bằng tên và số ID của nhân viên, đồng thời được bảo vệ bằng Số Bảo hiểm Quốc gia của nhân viên làm mật khẩu. Họ sẽ thêm các yêu cầu làm thêm giờ và số dặm vào bảng tính của họ và tôi sẽ xử lý tất cả các tệp vào cuối tháng để lập bảng lương, thêm tất cả các bản ghi từ mỗi tệp vào bảng cơ sở dữ liệu MS Access. Một vấn đề mà tôi gặp phải là tôi không biết cách mở các tệp được bảo vệ bằng mật khẩu trong VBA để xử lý chúng. Có ai ở đó có kinh nghiệm về quá trình tương tự không? Stuart Trả lời: Xin chào, VBA để bảo vệ và không bảo vệ sổ làm việc Sub ProtectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = "mật khẩu" Đối với mỗi sh trong ActiveWorkbook.Worksheets sh.Protect Mật khẩu:=myPassword tiếp theo Kết thúc phụ Sub UnrotectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = ...
Read more

Thu hẹp và mở rộng cột trong Excel

Thu hẹp và mở rộng cột trong Excel Làm thế nào để thu hẹp hoặc mở rộng một cột khi tôi không nhìn thấy thước kẻ có chữ cái cột? Trả lời: Nhấp chuột phải vào cột > Chiều rộng cột > Tại đây, bạn có thể nhập giá trị cho các cột để thu nhỏ hoặc mở rộng. Ví dụ, bạn có thể nhập giá trị 8, gần với chiều rộng cột mặc định. Cột sẽ hiển thị. Bạn có thể kéo theo dấu phân cách cột (hoặc thước kẻ). Nếu những điều trên không phải là điều bạn muốn, tức là nếu chữ cái cột không hiển thị > Chọn bất kỳ ô nào trong cột đó > CTRL+Phím cách để chọn cột > Nhấp chuột phải > Chiều rộng cột như trong bước 1. Trả lời: Chỉ là một ý tưởng, một lựa chọn khác là sử dụng Freeze Panes để bạn luôn có thể nhìn thấy tiêu đề Cột trên cùng để thay đổi kích thước cột... Trên thanh Ribbon, nhấp vào Đóng băng ngăn - Đóng băng hàng trên cùng
Read more

Mở tài liệu Excel và Word từ Outlook Lỗi - Không đủ bộ nhớ

Image
Mở tài liệu Excel và Word từ Outlook Lỗi - Không đủ bộ nhớ Chào mọi người, Tôi biết có nhiều bài viết liên quan đến vấn đề này nhưng câu trả lời không thỏa đáng với môi trường của tôi. Chúng tôi xử lý số lượng tài liệu mỗi ngày và lưu vào máy tính để bàn -> việc bỏ chặn không cắt được tài liệu đó cũng như vô hiệu hóa chế độ xem được bảo vệ bằng phần mềm ransomware gần đây mà NHS nhận được (bảo mật cần được giữ nguyên). Thông báo có nội dung: 'Không thể mở hoặc lưu thêm bất kỳ tài liệu nào vì không có đủ bộ nhớ hoặc dung lượng ổ đĩa' -> mặc dù việc thực hiện 2 giải pháp trên sẽ khắc phục được điều này (đó không phải là bộ nhớ, chỉ là một tin nhắn ngu ngốc nếu tôi thành thật) . Tuy nhiên, tôi chỉ cần có thể mở tệp ở chế độ xem được bảo vệ, không gặp lỗi. Có ai có thể sửa lỗi này 'đúng cách' chưa? Nếu vậy xin vui lòng cho tôi biết để tôi có thể triển khai rộng rãi hoạt động kinh doanh này. Tôi đã tìm thấy cài đặt gpe trong cấu hình người dùng -> thành phần windo...
Read more