Cập nhật tháng tự động. (1 người xem)

[mamaxito]

Chào anh chị em trên Diễn đàn.
Em có 1 file đình kèm. Nhưng trình độ của em còn yếu quá, không biết là trường hợp này có thể làm đc hay không, cho nên cho phép em làm phiền mọi người tí. Hehe...
1- Mình có thể dùng công thức để khi ta nhập số vô ô THÁNG, thì những ô ngày tự động cập nhật hết không!?
Vd: Tháng hiện tại là tháng 7, tháng sau là tháng 8, ta chỉ cần nhập số 8 vô ô THÁNG là mọi chiện sẽ đc giải quyết.
2- Nếu đc thì ace cho em biết công thức nào lun nha. Chứ tháng nào cũng nhập thủ công hết. Phê quá!!!
Xin cảm ơn ace nhiều lắm nha!!!
P.s: Đây chỉ là một vd rút gọn, giữa những ô ngày tháng đó còn có những ô khác xen kẻ nữa, cho nên em không kéo đc.

 

[hoangminhtien]

Bạn xem có đúng ý bạn không nhé!

 

[Hai Lúa Miền Tây]

Bạn xem có đúng ý bạn không nhé!

Để lấy luôn năm hiện hành thì bạn phải dùng Year(Now())

B2=DATE(YEAR(NOW()),A2,1)

Thân

 

[Ba Tê]

Một chút góp ý.

Để lấy luôn năm hiện hành thì bạn phải dùng Year(Now())

B2=DATE(YEAR(NOW()),A2,1)

Thân

Dùng Year(now()) chỉ đúng trong năm hiện hành, nếu file được lưu trữ sang năm tới thì các cột này sẽ có năm là 2010...
Nếu tác giả muốn lưu lại thì cứ gõ 2009 là chắc ăn.

Thân mến!

 

[Ba Tê]

Ua minh co thac mac ty la.sao phan nam no lay co 2 chu so zay?????????????????

Bạn chọn tất cả các ô muốn định dạng,
vào Format - Cells - thẻ Number chọn Custom - Trong khung Type:
gõ dd/mm/yyyy hoặc dd-mm-yyyy.
Bạn thử xem thế nào.
------
Bạn chú ý viết chữ có dấu tiếng Việt, kẻo bị ...nhắc nhở.

 

[tam8678]

Bạn xem có đúng ý bạn không nhé!

-------------------
Công thức của bạn rất tiện lợi, nhưng bạn có thể viết code để khi nhập tháng vào cell không phải fill ngang ( mục đích : tự động ra ngày- nhưng chỉ là số ngày của tháng đó ). Như trong file bạn đính kèm -> nếu ta fill ngang thì khi ta nhập tháng 8 phải xem đúng tháng 8 hay không ? ( kéo lố tay ra tháng khác).
Rất mong các anh em trên GPE đóng góp.


--------------
Rất mong các anh em trên GPE xem và đóng góp . Mục đích của code này dùng để khi nhập số tháng của tháng nào thì ra đúng số ngày của tháng đó. Cám ơn

 

[hoangminhtien]

Không biết có đúng ý của bạn không? bạn xem rồi cho ý kiến nhé!

 

[tam8678]

Không biết có đúng ý của bạn không? bạn xem rồi cho ý kiến nhé!

--------------
Tôi cám ơn bạn rất nhiều. Ý tôi là : khi nhập tháng bất kỳ vào cell A2, nhấn vào nút lệnh cho chạy code thì sẽ ra số ngày chỉ của tháng đó ( không phải fill bằng tay)
Chúc bạn vui.

 

[huuthang_bd]

--------------
Tôi cám ơn bạn rất nhiều. Ý tôi là : khi nhập tháng bất kỳ vào cell A2, nhấn vào nút lệnh cho chạy code thì sẽ ra số ngày chỉ của tháng đó ( không phải fill bằng tay)
Chúc bạn vui.

Nếu muốn vậy thì dùng code này:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
[B2:IV2].ClearContents
i = 1
Do While Month(DateSerial(2009, [A2], i)) = [A2]
Cells(2, i + 1) = DateSerial(2009, [A2], i)
i = i + 1
Loop
End If
End Sub

 

[tam8678]

Nếu muốn vậy thì dùng code này:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
[B2:IV2].ClearContents
i = 1
Do While Month(DateSerial(2009, [A2], i)) = [A2]
Cells(2, i + 1) = DateSerial(2009, [A2], i)
i = i + 1
Loop
End If
End Sub

------------
Cám ơn bạn huuthang_bd . Nhưng bạn có thể giúp mình viết code trên module được không ( nhấn nút mới thi hành )? và còn kèm theo điều kiện rằng khi trích ngang ra số ngày của tháng đó có thể phân biệt rằng ngày nào là ngày chủ nhật ( đổi font thành màu đỏ hoặc ... : mục đích để phân biệt vói ngày thường vì ngày chủ nhật được chấm công 1 x 2 ).
Chúc vui.

 

[huuthang_bd]

------------
Cám ơn bạn huuthang_bd . Nhưng bạn có thể giúp mình viết code trên module được không ( nhấn nút mới thi hành )? và còn kèm theo điều kiện rằng khi trích ngang ra số ngày của tháng đó có thể phân biệt rằng ngày nào là ngày chủ nhật ( đổi font thành màu đỏ hoặc ... : mục đích để phân biệt vói ngày thường vì ngày chủ nhật được chấm công 1 x 2 ).
Chúc vui.

Code thì có rồi, chuyển sang dùng nút lệnh thì đâu có gì khó.
Tô màu ngày nghỉ thì nên dùng Conditional Formatting. Đơn giản, nhẹ nhàng. Hầu như trên bảng chấm công nào cũng có. Mà diễn đàn có ko ít file như vậy. Bạn search, load về rồi tham khảo.

 

[ndu96081631]

------------
Cám ơn bạn huuthang_bd . Nhưng bạn có thể giúp mình viết code trên module được không ( nhấn nút mới thi hành )? và còn kèm theo điều kiện rằng khi trích ngang ra số ngày của tháng đó có thể phân biệt rằng ngày nào là ngày chủ nhật ( đổi font thành màu đỏ hoặc ... : mục đích để phân biệt vói ngày thường vì ngày chủ nhật được chấm công 1 x 2 ).
Chúc vui.

Tôi thì dùng code này:

Sub DienNgay()
  Range("B2:AI2").ClearContents
  With Range("B2").Resize(, Day(DateSerial(Year(Now), [A2] + 1, 0)))
    .FormulaArray = "=DATE(" & Year(Now) & ",$A$2,COLUMN($1:$1))"
    .Value = .Value
  End With
End Sub

không dùng vòng lập
Làm cho bạn vụ tô màu luôn <--- xem file

 

[tam8678]

Cám ơn NDU đã quan tâm, bạn có thể hướng dẩn cách đổi màu nền, màu chử được không? Thật sự tôi không biết làm như thế nào.

 

[ndu96081631]

Cám ơn NDU đã quan tâm, bạn có thể hướng dẩn cách đổi màu nền, màu chử được không? Thật sự tôi không biết làm như thế nào.

Trong file có chức năng này đấy! Bạn chọn đại 1 cell trong vùng ngày tháng, vào menu Format\Conditional Formating sẽ thấy công thức

 

[tam8678]

Trong file có chức năng này đấy! Bạn chọn đại 1 cell trong vùng ngày tháng, vào menu Format\Conditional Formating sẽ thấy công thức

--------------
NDU có thể giúp mình ( hàm hoặc code) chuyên dùng để tính tổng số công cùa riêng các ngày chủ nhật được không ? Vì địa chỉ của các cell luôn thay đổi theo tháng . Cám ơn bạn đã quan tâm.

 

[ndu96081631]

--------------
NDU có thể giúp mình ( hàm hoặc code) chuyên dùng để tính tổng số công cùa riêng các ngày chủ nhật được không ? Vì địa chỉ của các cell luôn thay đổi theo tháng . Cám ơn bạn đã quan tâm.

Tính là tính thể nào? Điều kiện tính toán ra sao? Bạn điền dử liệu vào file và nói rõ yêu cầu, tôi tính cho

 

[tam8678]

Tính là tính thể nào? Điều kiện tính toán ra sao? Bạn điền dử liệu vào file và nói rõ yêu cầu, tôi tính cho

------------
Gởi bạn file đính kèm. Cám ơn

 

[ndu96081631]

------------
Gởi bạn file đính kèm. Cám ơn

Ít ra bạn cũng phải cho tôi biết cách tính chứ... trường hợp ngày CN thì tính sao? không phải CN thì tính thế nào?
Đơn giản nhất: Bạn điền luôn kết quả vào trong file tôi xem thử (ở cả 2 trường hợp công rơi vào CN và ngày thường)

 

[tam8678]

Ít ra bạn cũng phải cho tôi biết cách tính chứ... trường hợp ngày CN thì tính sao? không phải CN thì tính thế nào?
Đơn giản nhất: Bạn điền luôn kết quả vào trong file tôi xem thử (ở cả 2 trường hợp công rơi vào CN và ngày thường)

----------
Bạn xem file đính kèm

 

[ndu96081631]

----------
Bạn xem file đính kèm

Thì ra là thế! Quá đơn giản, bạn dùng công thức này tại cell AG3 nhé:

=SUMPRODUCT((WEEKDAY($B$2:$AF$2)=1)*($B3:$AF3))

Và 1 công thức khác tại AH3:

=SUMIF($B$2:$AF$2,">0",$B3:$AF3)-AG3