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

  • Thread starter binhkrb
  • Ngày gửi
B

binhkrb

Sơ cấp
3/2/06
29
0
1
58
PHAN RANG NINH THUẬN
#1
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
 
L

levanduyet

Welcome
16/10/04
535
11
18
HCM
my.opera.com
#4
Xin nói rõ hơn

binhkrb nói:
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
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
 
B

binhkrb

Sơ cấp
3/2/06
29
0
1
58
PHAN RANG NINH THUẬN
#5
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 !
 
HongViet

HongViet

Thành viên thân thiết
10/11/05
286
10
18
Đà nẵng
#6
binhkrb nói:
Tôi có bảng chấm công VD tháng 1/2006
ỉ giúp tôi thành thật cảm ơn !
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;
 
Sửa lần cuối:

Thành viên trực tuyến

  • Phần mềm FAST
  • lyanh997
  • Hương Minh Chi
  • daongocnam0603
  • binhminhsom
  • anhdeptrai2511
  • qthi2209
  • auyeuch
  • Liễu Minh Tâm
  • NoonNoon
  • fighting
  • Bạn Bo



Xem nhiều