dinhkien85
Thành viên mới
- Tham gia
- 5/1/12
- Bài viết
- 21
- Được thích
- 2
Yêu cầu em để trong tệp đính kèm.
em cảm ơn!
em cảm ơn!
Nhờ các bác giúp code tự động điền ngày (cố định)
- Thread starter dinhkien85
- Ngày gửi
phulien1902
GPE - My love
- Tham gia
- 6/7/13
- Bài viết
- 3,543
- Được thích
- 4,423
Chủ Topic yêu cầu cột Date bị xóa khi cả 3 Cells trong 3 cột C,D,E không có dữ liệu mà bác.
Upvote
0
phulien1902
GPE - My love
- Tham gia
- 6/7/13
- Bài viết
- 3,543
- Được thích
- 4,423
Thực ra em nghĩ bài toán của chủ Topic không khả thi.
Upvote
0
Bản chất từ "Today" đã nói lên tất cả.
Upvote
0
khi xử lý yêu cầu 2 dùng vba thì thêm câu lệnh "cells(...)= cells(...)" đc mà bạn.Sry bạn vì cách diễn đạt của mình khiến bạn hiểu nhầm ý của mình, ý của mình là ưu tiên sử dụng các hàm sẵn có trong excel rồi mới sử dụng code trong vba. Do kiến thức về vba mình còn hạn chế nên khi làm việc mình ưu tiên sử dụng hàm trong excel trước rồi mới xài code vba, và chuyển các giá trị đó về .value để tránh cho bảng tính bị nặng, kiểu như:
cell.FormulaR1C1 = ...
cell =cell
hoặc là worksheetfunction.
Và trong trường hợp của chủ topic thì mình cho sự kiện Worksheet_Change như sau:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
If .Column > 2 And .Column < 5 Then
Cells(Target.Row, "B").FormulaR1C1 = "=IF(OR(RC[1]<>"""",RC[2]<>"""",RC[3]<>""""),TODAY(),"""")"
Cells(Target.Row, "B") = Cells(Target.Row, "B")
End If
End With
Application.EnableEvents = True
End Sub
Mượn file của bác Ba Tê và chỉnh sửa sự kiện Worksheet_Change của bác.
Lần chỉnh sửa cuối:
Upvote
0
dinhkien85
Thành viên mới
- Tham gia
- 5/1/12
- Bài viết
- 21
- Được thích
- 2
Em cám ơn bác rất nhiều!
Upvote
0
dinhkien85
Thành viên mới
- Tham gia
- 5/1/12
- Bài viết
- 21
- Được thích
- 2
Hi hi. Ý em là nhập cột nào cũng được
Upvote
0
dinhkien85
Thành viên mới
- Tham gia
- 5/1/12
- Bài viết
- 21
- Được thích
- 2
bác ơi hàm TODAY cho ngày động, e muốn ngày cố định
Upvote
0
dinhkien85
Thành viên mới
- Tham gia
- 5/1/12
- Bài viết
- 21
- Được thích
- 2
Thanks bác nhiều nhé! cách của bác cũng rất hay
Upvote
0
dinhkien85
Thành viên mới
- Tham gia
- 5/1/12
- Bài viết
- 21
- Được thích
- 2
bác thông cảm! em bận quá
Upvote
0
giờ file em có nhiều sheet, việc tự động điền ngày thì em biết copy nội dụng Worksheet_Change cho các shee rồi, còn nội dung Workbook_BeforeSave mà làm cho tất cả các sheet thì đoạn code này sửa như nào với ạ (trường hợp như file của anh em tạo các sheet GPE, GPE1,...GPE10)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Rws As Long
With Sheets("GPE")
Rws = .Range("B60000").End(xlUp).Row
If Rws > 4 Then
ActiveSheet.Unprotect "gpe"
.Range("B5:G" & Rws).Locked = True
ActiveSheet.Protect "gpe"
End If
End With
End Sub
Upvote
0
birthdayinvalentine
Thành viên mới
- Tham gia
- 5/6/12
- Bài viết
- 40
- Được thích
- 6
Chào bạn cùng GPE. Sau nhiều ngày tìm kiếm tôi mới tìm được thread này
tôi gửi file lên với đề nghị bạn cùng GPE giúp đỡ như sau:
trong sheet "2.Nhap" có cột ngày (A) cần tự động điền ngày hiện tại khi có nhập hoặc thay đổi tại các cột B, C, D, đồng thời tương tự với cột ngày (G), và các cột H, I, J, do đó cũng với yêu cầu như thread này, tuy nhiên sau khi save file không nhất thiết phải khoá gì cả. Sở dĩ cần nêu yêu cầu “thay đổi tại các cột B, C, D,” là do hết năm thì save as cho năm sau nên các cột đó vẫn đầy sau 12 tháng, năm sau cứ nhập đến đâu thì thay đổi đến đó, không nhất thiết phải xoá số liệu năm cũ. Cám ơn mọi sự giúp đỡ.
Upvote
0
bạn ơi cho mình hỏi làm thế nào để hiện thanh biểu thị phần trăm như file của bạn thế
View attachment 263728
Upvote
0
birthdayinvalentine
Thành viên mới
- Tham gia
- 5/6/12
- Bài viết
- 40
- Được thích
- 6
Chào bạn, vui lòng để tôi diễn giải dài dòng chút:
File này tôi cũng sưu tầm trên GPE, có sửa và thay thế để có như hiện thời.
thực sự cũng không nhớ rõ là sao lại có các cột thể hiện tỷ lệ %, nhưng có lẽ xuất phát từ sheet "1.Kehoach" có cột % nên tạo thêm các cột % ở các shett khác, tuy nhiên chẳng khó lắm để hiểu các con số % trong đó.
Tôi chỉ tự sướng với mình ở chỗ trong khi bản thân chỉ nghe, nhìn, đọc được từ "code" mà không biết làm thế nào để tạo ra code thì tự bản thân đã dám sửa chỉ 1 ký tự trong cả 1 code cũng sưu tầm trên GPE để tạo cho mình 1 code cực kỳ hài lòng. Cụ thể là thay ký tự : thành ký tự = , thế là mãn nguyện, khi áp dụng trong file thấy trên cả tuyệt vời. Bạn có thể xem code gốc tại đây
Chúc bạn thành công
Upvote
0
cảm ơn bạn, mình tìm ra được cách để hiện thị % trông ô cell rồi
Upvote
0
