Dùng Macro sửa bảng chấm công của tháng

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi binhkrb, 24 Tháng hai 2006.

3,557 lượt xem

  1. binhkrb

    binhkrb Thành viên hoạt động

    Bài viết:
    29
    Đã được thích:
    0
    Nơi ở:
    PHAN RANG NINH THUẬN
    xin chỉ cách cho Macro hoạt động 1 hoặc 2 lần sau đó thì ngưng, khi Move or copy... qua sheet mới thì lặp lại như ban đầu
    xin cảm ơn
     
    #1
  2. ForestC

    ForestC Thành viên hoạt động

    Bài viết:
    377
    Đã được thích:
    1
    Nơi ở:
    E'rywhere
    Vua Hùng mà bó ... hihi tuy nhiên các cao thủ EFC ko bó tay tẹo nào, nhưng mà khó ở cái đoạn "khi Move or copy... qua sheet mới thì lặp lại như ban đầu".
     
    #2
  3. Bình_OverAC

    Bình_OverAC Over Abnormal / Crazy

    Bài viết:
    845
    Đã được thích:
    7
    Nơi ở:
    Nha Trang
    Yêu cầu của bác binhkrb không rỏ lắm. Bác có thể nói rõ hơn không ạh!
     
    #3
  4. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    Xin nói rõ hơn

    Chào bạn,
    Bạn nên giải thích rõ hơn và gởi file cần cho các mod.
    Thân,
    Lê Văn Duyệt
     
    #4
  5. binhkrb

    binhkrb Thành viên hoạt động

    Bài viết:
    29
    Đã được thích:
    0
    Nơi ở:
    PHAN RANG NINH THUẬN
    Tôi có bảng chấm công VD tháng 1/2006
    sang tháng 2 thay vì tạo bảng mới thí tôi dùng Move or copy Sheet 1-2006 và sửa thành 2-2006 rồi dùng macro sửa ngày và tùy ý .
    Tôi muốn macro này chỉ hoạt động 1 hoặc 2 lần khi kích hoạt rồi ngưng luôn,
    qua tháng 3 tôi cũng làm tương tự và ý muốn cũng tương tự.
    Vì là thành viên mới nên không biết làm sao mà gởi File
    Mong quí anh chị chỉ giúp tôi thành thật cảm ơn !
     
    #5
  6. HongViet

    HongViet Thành viên thân thiết

    Bài viết:
    286
    Đã được thích:
    10
    Nơi ở:
    Đà nẵng
    Bạn phải có sẵn 13 bảng với loạt tên như sau:Th0, Th1, Th2 . . . .,Th12
    ở đây Th0 làm mẫu để chép đến các tháng # = đoạn mã như sau:

    Sub ChepThang()
    Dim Chu As String, Chu0 As String

    1 Chu0 = "Th0"
    2 Chu = "Th" & CStr(Month(Date))
    3 Sheets(Chu0).Select: Cells.Select
    4 Selection.Copy

    5 Sheets(Chu).Select: Range("A1").Select
    6 ActiveSheet.Paste : Application.CutCopyMode = False
    7 Chu0 = "BẢNG CHẤM CÔNG THÁNG " & Right("0" & CStr(Month(Date)), 2)
    71 CHU0 = CHU0 & "/" & CSTR(YEAR(DATE())) & "."
    8 Range("B2").Select
    9 ActiveCell.Value = Chu0

    End Sub

    Bạn làm 1 nút lệnh tại Th0 này để mỗi đầu tháng nhấn vô nó sẽ tự động chép từ Sheet mẫu đến tháng hiện hành;
     
    Last edited: 27 Tháng hai 2006
    #6
  7. mysterious_girl

    mysterious_girl Thành viên sơ cấp

    Bài viết:
    358
    Đã được thích:
    1
    Nơi ở:
    ...close to you...
    Sau đây là file của bạn binhkrb:
     

    Các file đính kèm:

    #7

Chia sẻ trang này