Lịch Trực Nhật - Mạng Xã Hội Webketoan

Menu Menu Đăng nhập Đăng ký Tắt quảng cáo Menu Install the app Cài đặt

• Trang chủ
• Diễn đàn Bài viết mới
• Có gì mới Bài viết mới New resources Hoạt động mới nhất
• Resources Latest reviews

• Kế toán Căn bản thực chiến về Logistic/Forwarder
• Kế toán Căn Bản F&B " 2 buổi online - tự tin bước vào nghề!

Lịch trực nhật

• Thread starter Longlv
• Ngày gửi 30/11/05

• Diễn đàn
• THÔNG TIN CẦN BIẾT VÀ HỎI ĐÁP NGHIỆP VỤ
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. L

Longlv

Sơ cấp

21/10/05 44 1 8 47 Hanoi Nhờ các cao thủ Excel giúp đỡ : Hàng tháng, cơ quan tôi thường làm một lịch trực nhật theo dạng bảng. cột A là Họ tên (vd từ row 2 - 6 là A, B, C, D, E) và dòng 1 (Vd từ column B - ... là các ngày trong tháng 1, 2, .... 30). Sau đó lần lượt đánh dấu X khi đến phiên người đó trực nhật. Công việc này làm bằng tay nên mất rất nhiều thời gian. Không hiểu trong Excel có cách hàm nào để làm công việc này tự động được không. Xin cảm ơn. Toggle signature Kẻ lang thang N

NgânGiang

Cố lên! Cố lên...

10/5/05 202 0 0 22 Trong Mây mù www.baominh.com.vn Bạn ơi làm tự động ở cấp độ nào Mình nghĩ là bạn cần làm bảng phân công (chứ không phải là chấm công) giống như lập thời khóa biểu chứ? như vậy sẽ tính số người và theo số ngày làm việc để phân công đúng không? Toggle signature ____________________​Mây trời mờ mịt Sông nước mênh mông :lily:

adam_tran

Guitar inspiration

17/5/05 1,373 36 48 47 Goooogle Ý bạn Long muốn nói là 1 bảng như bảng chấm công, đến ngày nào đó thì tự động điền dấu X tương ứng với nhân viên đó phải không? Thí dụ có 6 nhân viên và tuần làm 6 ngày, Bảng sẽ tự động đánh dấu X tương ứng vào hết 30 ngày trong tháng? Toggle signature Lặn không nổi tăm hơi... L

Longlv

Sơ cấp

21/10/05 44 1 8 47 Hanoi

adam_tran nói: Ý bạn Long muốn nói là 1 bảng như bảng chấm công, đến ngày nào đó thì tự động điền dấu X tương ứng với nhân viên đó phải không? Thí dụ có 6 nhân viên và tuần làm 6 ngày, Bảng sẽ tự động đánh dấu X tương ứng vào hết 30 ngày trong tháng? Nhấn để mở rộng...

Mình xin được giải thích rõ hơn. VD: Nhân viên A có lịch trực nhật vào ngày 8/1/2005 là ngày Thứ bảy thì nhân viên B sẽ trực nhật vào ngày 10/1/2005 - Thứ hai rồi lần lượt đến các nhân viên C, D, E... tạo thành một vòng, và lặp đi lặp lại qua các tháng. Toggle signature Kẻ lang thang

HongViet

Cao cấp

10/11/05 286 10 18 Đà nẵng Phải dùng VBA thôi!

Longlv nói: nhân viên C, D, E... tạo thành một vòng, và lặp lại qua các tháng. Nhấn để mở rộng...

Mình nêu trước cách thức; nếu bạn đồng ý sẽ cụ thể sau: Cột A: Mã NV Cột B: Họ đệm Cột C: Tên Cột D: Trực nhật Cột E: Ngày tháng Ô F1 =TODAY() Ô G1 = WEEKDAY() Đoạn mã CT sẽ dò tìm ngày hôm qua (hay ngày hôm kia - nếu hôm nay là thứ hai) xem ai đã trực và bôi đi chuỗi "<- Trực nhật" ở cột D (& lưu vào biến chuỗi cũng như định dạng ô ở cột E này màu mở hơn); Tiếp theo di chuyển xuống 1 hàng và chép biến chuỗi vào ô ở cột D; chép F1 vô ô tương ứng của cột E & định dạng Màu sẩm hơn! Nếu việc dò tìm này đã ở cuối DS thí quay lại chép lên đầu DS, xoá đi các ô E3:E(n-1); (dòng cuối để làm bằng chứng và ngày hôm sau mới xoá củng bằng dòng lệnh). Toggle signature .:dog3::two: L

Longlv

Sơ cấp

21/10/05 44 1 8 47 Hanoi To: HongViet Nếu làm được như cách của bạn thì hay quá. Bạn có thể hướng dẫn chi tiết cách làm được không, vì mình không biết nhiều về VBA lắm. Cảm ơn bạn nhé. Toggle signature Kẻ lang thang

HongViet

Cao cấp

10/11/05 286 10 18 Đà nẵng Sửa cho có vẽ chính thống một chút! 'Bạn Copy đoạn mã sau & dây vào nơi cư ngụ của các macro: Sub Autpen() Const STNhat = "<- Tröïc nhaät" Dim SoNV As Integer: Dim NgayT As Variant Dim ij As Integer: Dim Chu As String 1 '. Định Dòng Cuối: Sheets("S1").Select: Range("A1").Select Selection.End(xlDown).Select SoNV = Selection.Row NgayT = Date - 1: ij = 1 If Weekday(Date) = 2 Then NgayT = Date - 2 2 '. Định Ngày Cần Tìm: Do ij = 1 + ij Chu = "E" & CStr(ij): Range(Chu).Select If Len(ActiveCell.Value) < 2 Then Exit Do If ActiveCell.Value = Date Then Range("A2").Select: Exit Sub End If 3 '. Định người trực hôm nay: If ActiveCell.Value = NgayT Then With Selection.Font .FontStyle = "Normal" End With Chu = "D" & CStr(ij): Range(Chu).Select ActiveCell.Value = "" Chu = "D" & CStr(1 + ij) If ij = SoNV Then Chu = "D2" Range(Chu).Select: ActiveCell.Value = STNhat Chu = "E" & CStr(1 + ij) If ij = SoNV Then Chu = "E3:E" & CStr(ij - 1): Range(Chu).Select Selection.Value = "" Chu = "E2" End If Range(Chu).Select: ActiveCell.Value = Date With Selection.Font .FontStyle = "Bold" End With End If 4'. Xoá dòng cuối khi ij=3 if ij=3 then Range("E" & CStr(SoNV)).Select: ActiveCell.Value = "" End If Loop Range("A3").Select End Sub Sửa lần cuối: 9/12/05 Toggle signature .:dog3::two: C

caovietvu

Guest

3/4/15 7 0 1 đúng rồi minhc cũng đang muốn lam lịch trực gồm 7 người và 3 người trực một đêm rồi 4 người trực một đêm và làm thế nào cho các vị trí luôn được công bằng.ví dụ người này muốn đổi cho người kia. Bạn phải đăng nhập hoặc đăng ký để bình luận.

Similar threads

Top 5 công cụ bảo mật doanh nghiệp nào cũng nên trang bị

• Webketoan.vn
• 11/11/24
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 0 Lượt xem 717 Tech Hub: AI - An toàn thông tin - Tin học quản lý 11/11/24 Webketoan.vn AI và tiềm năng tương lai với ngành tài chính kế toán

• Webketoan.vn
• 8/11/24
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 0 Lượt xem 1K Tech Hub: AI - An toàn thông tin - Tin học quản lý 8/11/24 Webketoan.vn S Lập trình từ trí tuệ nhân tạo microsoft Bing: Mã hóa số liệu 1 ngày-tháng-năm cụ thể sang chuỗi 3 kí tự

• SA_DQ
• 8/10/23
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 3 Lượt xem 24K Tech Hub: AI - An toàn thông tin - Tin học quản lý 12/10/23 SA_DQ S 10 hàm excel mà kế toán hay dùng

• HaiTam
• 21/10/22
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 4 Lượt xem 35K Tech Hub: AI - An toàn thông tin - Tin học quản lý 19/7/24 duyentrieuan99 D J Du lịch Nhật Bản tết đến với đất nước "Mặt trời mọc"

• jusftforyou
• 12/11/24
• Quảng cáo, rao vặt

Trả lời 0 Lượt xem 26 Quảng cáo, rao vặt 12/11/24 jusftforyou J Chia sẻ: Facebook Email Chia sẻ Link

Xem nhiều

• M Thi tuyển công chức thuế năm 2012!
  • Started by MINA
  • 5/5/12
  • Lượt xem: 8,749,704
  Phát triển bản thân
• M Thi công chức hải quan!
  • Started by meomalem
  • 2/5/10
  • Lượt xem: 3,403,851
  Phát triển bản thân
• T Lập nhóm ôn thi công chức bhxh 2013
  • Started by truongvucanh
  • 29/3/13
  • Lượt xem: 2,988,226
  Phát triển bản thân
• M Tổng hợp các nội dung liên quan đến việc thi tuyển vào ngân hàng!
  • Started by mechipchip
  • 18/7/06
  • Lượt xem: 2,907,253
  Chế độ kế toán khác
• J Thi tuyển công chức thuế 2014
  • Started by jinna
  • 23/12/13
  • Lượt xem: 2,553,032
  Thi công chức thuế

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Share this page Chia sẻ Facebook Email Chia sẻ Link Top Bottom