Code công thức cho ô cố định! (1 người xem)
- Thread starter pth_gpex
- Ngày gửi
Người dùng đang xem chủ đề này
phuoclocvl
Thành viên thường trực
- Tham gia
- 28/3/12
- Bài viết
- 220
- Được thích
- 32
Cái này chr dùng công thức là được mà bạn, đâu cần code đâu.
bạn gõ công thức tại ô
D6=TEXT(VALUE(B6&"-"&A6&"-"&C6),"dd-mmm-yyyy")
là ok à
bạn gõ công thức tại ô
D6=TEXT(VALUE(B6&"-"&A6&"-"&C6),"dd-mmm-yyyy")
là ok à
Lần chỉnh sửa cuối:
Upvote
0
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,076
- Được thích
- 8,007
- Nghề nghiệp
- Làm đủ thứ
Code của bạn đây, nhưng mà hình như bị "đẻ" ngược
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column < 4 Then
If Cells(Target.Row, 1) <> "" Then
If Cells(Target.Row, 2) <> "" Then
If Cells(Target.Row, 3) <> "" Then
Cells(Target.Row, 4) = DateSerial(Cells(Target.Row, 3), Cells(Target.Row, 2), Cells(Target.Row, 1))
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,974
Cái này cứ dùng hàm DATE bình thường, cần gì code
------------------
Công thức này SAI NGHIÊM TRỌNG nha! Hổng có cái vụ nối chuổi để ra ngày tháng đâu!
Upvote
0
Bạn ơi, code bạn gần đúng rồi nhưng mình chưa hiểu là ra định dạng ngày tháng năm hay sao?
Thật sự là mình chỉ cần xâu chuỗi để tạo 1 chuỗi text với .../.../... thôi chứ thực sự không cần phải định dạng day/month/year.
Có thể giúp mình Code ghép chuỗi này với!
Upvote
0
Dạ hổng phải thầy ơi, cái này em muốn như vậy vì đây là dòng nhập liệu, chỉ nhập số của :ngày, tháng và năm thì ô cuối cho 1 dãy ghép các số này lại và ngăn cách bởi dấu "/" cho giống định dạng ngày tháng năm thôi. Sau đó em update nó sẽ chép qua sheet khác và em xoá dòng nhập liệu này đi để nhập tiếp cái mới, mắc công gõ lại công thức DATE
Upvote
0
Mình đã sửa chút lại theo ý mình và cảm ơn quanghai1969 đã gợi ý:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column < 4 Then
If Cells(Target.Row, 1) <> "" Then
If Cells(Target.Row, 2) <> "" Then
If Cells(Target.Row, 3) <> "" Then
Cells(Target.Row, 4) = Cells(Target.Row, 1) & "/" & Cells(Target.Row, 2) & "/" & Cells(Target.Row, 3)
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
Gõ text không sợ gì cả.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column < 4 Then
If Cells(Target.Row, 1) <> "" Then
If Cells(Target.Row, 2) <> "" Then
If Cells(Target.Row, 3) <> "" Then
Cells(Target.Row, 4) = Cells(Target.Row, 1) & "/" & Cells(Target.Row, 2) & "/" & Cells(Target.Row, 3)
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
Gõ text không sợ gì cả.
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,974
Có gì khác biệt đâu?
Nếu tôi nhập công thức này vào D6:
Mã:
=TEXT(DATE(C6,B6,A6),"dd/mm/yyyy")
Upvote
0
phuoclocvl
Thành viên thường trực
- Tham gia
- 28/3/12
- Bài viết
- 220
- Được thích
- 32
vậy phải làm sao? vì từ trước giờ em toàn chơi vậy không à. em thấy nó vẫn đúng
hướng dẫn em cách đúng đi. năn nỉ
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,974
Đúng là vì may mắn! Nó đúng trên máy bạn không có nghĩa là máy người khác cũng đúng
Vì Control Panel trên máy bạn đang thiết lập Date theo kiểu Việt Name (dd/MM/yyyy)
Điều đó có nghĩa là với 1 máy tính nào đó đang thiết lập Date theo kiểu Mỹ (MM/dd/yyyy) thì công thức của bạn bị lỗi ngay lập tức
-------------
Cái người ta cần là 1 công thức luôn đúng với mọi máy tính kìa
Upvote
0
