Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

Tiêu đề: [Chia sẽ] File Excel (VBA) quản lý và kiểm soát công việc [In trang]
Tác giả: khoa289    Thời gian: 10/11/2015 10:26
Của chủ đề này cần phải trả Thưởng 4 điểm để được xem.
Tác giả: votinh3290    Thời gian: 11/11/2015 22:11
Cho mình xin pass protect code VBA với bạn ơi!
Tác giả: tranhoe    Thời gian: 12/11/2015 10:25
ductaibn gửi lúc 10/11/2015 14:04
Bạn ơi, sao mình dowload về rồi mà mở ra không được nhỉ?Huhu
Mình dùng Office 2003! ...

1./ Với excel 2003:
- Vào Menu Tools ==> Macro ==> Security ==> Chọn Low
- Thoát khỏi Excel rồi mở lại file.
2./ Với Excel 2007 trở đi làm như sau:
Vào excel option –> Trust center —> Trust center setting —> Macro setting —> chọn enable all macro …(mục thứ 4) và tick vao ô Trust access …. bên dưới Ok là xong.
Tác giả: vantuan18nd    Thời gian: 12/11/2015 13:58
votinh3290 gửi lúc 11/11/2015 22:11
Cho mình xin pass protect code VBA với bạn ơi!

[Visual Basic] 纯文本查看 复制代码
Sub TaoCVmoi()

'

' TaoCVmoi Macro

' Tao Cong viec moi, tu ghi cong thuc

' Keyboard Shortcut: Ctrl+Shift+J

'

    Range("D" & ActiveCell.Row).Select

    With ActiveCell

        .FormulaR1C1 = "Cap nhat cong viec"

        .Offset(0, -3).FormulaR1C1 = "=IF(RC[3]<>0,MAX(R6C1:R[-1]C)+1,"""")"

        .Offset(1, 1).FormulaR1C1 = "=DATEVALUE(TEXT(NOW(),""dd/mm/yyyy""))"

        .Offset(1, 1) = .Offset(1, 1).Value

        .Offset(0, 1).Resize(1, 4).FormulaR1C1 = "=IF(MAX(R[1]C:R[4]C)=0,"""",MAX(R[1]C:R[4]C))"

        .Offset(0, 5).Resize(1, 2).FormulaR1C1 = "=SUBTOTAL(9,R[1]C:R[4]C)"

        .Offset(0, 7).FormulaR1C1 = "=VLOOKUP(MAX(R[1]C[-6]:R[4]C[-6]),R[1]C[-6]:R[4]C,7)"

        .Offset(0, 9).FormulaR1C1 = _

            "=IF(AND(RC[-9]<>0,RC[-9]<>""Cap nhat cong viec""),RC[-2],"""")"

        .Offset(1, 7) = Range("M1").FormulaR1C1

        .Offset(2, 7) = Range("M2").FormulaR1C1

        .Offset(3, 7) = Range("M3").FormulaR1C1

        .Offset(4, 7) = Range("M4").FormulaR1C1

        .Offset(1, 2).Resize(4, 1).FormulaR1C1 = "=RC[-1]+7"

        .Offset(1, 3).Resize(4, 2).FormulaR1C1 = "=RC[-2]"

        .Offset(1, 5).Resize(4, 1).FormulaR1C1 = "=IF(RC[-1]<>0,RC[-1]-RC[-4]+1,"""")"

    End With

End Sub



Sub XoaCV()

'

' XoaCV Macro

' Xoa Cong viec va cong thuc

' Keyboard Shortcut: Ctrl+Shift+X

'

    Range("D" & ActiveCell.Row).Select

    With ActiveCell

        If .FormulaR1C1 <> "" Then

            .Offset(0, -3).Resize(5, 13).FormulaR1C1 = ""

        Else

            MsgBox "Ban chua chon dung cong viec de Xoa"

        End If

    End With

End Sub
Tác giả: votinh3290    Thời gian: 12/11/2015 19:05
vantuan18nd gửi lúc 12/11/2015 13:58
[mw_shl_code=vb,true]Sub TaoCVmoi()
'
' TaoCVmoi Macro

Không phải mình không có khả năng xem code của file này, chỉ là muốn xin tác giả trước
Tác giả: khoa289    Thời gian: 13/11/2015 14:21
votinh3290 gửi lúc 12/11/2015 19:05
Không phải mình không có khả năng xem code của file này, chỉ là muốn xin tác giả tr ...

Các bạn cần hiểu rõ hơn thì mình gửi file để các bạn xem (Đã gỡ bỏ pass VB).
Mình thấy bạn tuanbv@bp.com.vn có đoạn code tìm kiếm hay, bạn nào biết đoạn code đó không, nếu biết thì cập nhật vào file "Theo dõi công việc giúp nhé hoặc gửi đoạn code"
Đính kèm file theo dõi công việc và file tìm kiếm công văn của bạn tuanbv@bp.com.vn. 2015-11-12-Ban285-Theo doi cong viec.xlsm (2.31 MB, Lượt tải về: 60)