Nhờ giúp code VBA cho file báo giảng dùng trong dạy học. (1 người xem)

nst1984 · 25/1/14

Nhờ các thành viên GPE giải thích ý nghĩa của code trong sổ báo giảng này giúp mình với! Cụ thể:
+ Ý nghĩa của biến.
+ Ý nghĩa của câu lệnh.

Public Function GetMon(t As Integer, d As Date, n As Integer, tkb As Range) As String
Dim r As Range
Dim nr As Integer
Dim i As Integer
Dim st As Integer

nr = 0
For Each r In tkb.Rows
nr = nr + 1
Next
i = 1
While (tkb.Cells(i + 1, 1).Value <> vbEmpty) And (tkb.Cells(i + 1, 1).Value <= d) And (i < nr)
i = i + 1
Wend
GetMon = UCase(Trim(tkb.Cells(i, (t - 2) * 10 + n * 2).Value))
End Function

nst1984 · 26/1/14

Mong anh chị em trên diễn đàn giúp đỡ.

Ba Tê · 26/1/14

nst1984 đã viết:
Nhờ các thành viên GPE giải thích ý nghĩa của code trong sổ báo giảng này giúp mình với! Cụ thể:
+ Ý nghĩa của biến.
+ Ý nghĩa của câu lệnh.

Public Function GetMon(t As Integer, d As Date, n As Integer, tkb As Range) As String
Dim r As Range
Dim nr As Integer
Dim i As Integer
Dim st As Integer

nr = 0
For Each r In tkb.Rows
nr = nr + 1
Next
i = 1
While (tkb.Cells(i + 1, 1).Value <> vbEmpty) And (tkb.Cells(i + 1, 1).Value <= d) And (i < nr)
i = i + 1
Wend
GetMon = UCase(Trim(tkb.Cells(i, (t - 2) * 10 + n * 2).Value))
End Function

Giải thích thì không nỗi, vì đọc thấy rối rắm quá.
Có phải là bây giờ kết quả không đúng phải không?
Tôi viết lại theo kiểu tôi làm:

PHP:

Public Function GetMon(Ngay As Date, Thu As Long, Tiet As Long, Rng As Range) As Variant
Dim Arr(), Cll As Range, I As Long, J As Long, Col As Long
With Sheets("tkb")
    Arr = Rng.Value
    For I = 1 To UBound(Arr, 1)
        If Arr(I, 1) = Ngay Then
            Col = ((Thu - 1) * 10 - 9) + (Tiet * 2 - 1)
            GetMon = IIf(Arr(I, Col) = "", "", Arr(I, Col))
            Exit For
        End If
    Next I
End With
End Function

Ví dụ ô C6 thì công thức là:
=GetMon($A$8;$A$7;$B6;Tkb!$B$4:$BJ$41)

nst1984 · 26/1/14

Ba Tê đã viết:
Giải thích thì không nỗi, vì đọc thấy rối rắm quá.
Có phải là bây giờ kết quả không đúng phải không?
Tôi viết lại theo kiểu tôi làm:

PHP:

Public Function GetMon(Ngay As Date, Thu As Long, Tiet As Long, Rng As Range) As Variant Dim Arr(), Cll As Range, I As Long, J As Long, Col As Long With Sheets("tkb") Arr = Rng.Value For I = 1 To UBound(Arr, 1) If Arr(I, 1) = Ngay Then Col = ((Thu - 1) * 10 - 9) + (Tiet * 2 - 1) GetMon = IIf(Arr(I, Col) = "", "", Arr(I, Col)) Exit For End If Next I End With End Function

Ví dụ ô C6 thì công thức là:
=GetMon($A$8;$A$7;$B6;Tkb!$B$4:$BJ$41)

Không phải là sai anh ạ! Thực ra là em mới học VBA, em muốn tìm hiểu ý nghĩa các biến và câu lệnh nhưng tác giả khai báo tên biến khó hiểu quá và code rất rối nên muốn nhờ giúp đỡ.
Nếu có thời gian anh có thể giúp em sửa lại các code được không ạ? Sau đó anh giải thích cho em dựa trên code anh viết.

nst1984 · 26/1/14

Ba Tê đã viết:
Tôi viết lại theo kiểu tôi làm:

PHP:

Public Function GetMon(Ngay As Date, Thu As Long, Tiet As Long, Rng As Range) As Variant Dim Arr(), Cll As Range, I As Long, J As Long, Col As Long With Sheets("tkb") Arr = Rng.Value For I = 1 To UBound(Arr, 1) If Arr(I, 1) = Ngay Then Col = ((Thu - 1) * 10 - 9) + (Tiet * 2 - 1) GetMon = IIf(Arr(I, Col) = "", "", Arr(I, Col)) Exit For End If Next I End With End Function

Ví dụ ô C6 thì công thức là:
=GetMon($A$8;$A$7;$B6;Tkb!$B$4:$BJ$41)

Code của anh chạy đúng rồi ạ! Cách khai báo tên biến như của anh em đã hiểu được phần nào rồi. Tuy nhiên anh giải thích giúp em ý nghĩa chỗ màu đỏ với!
Public Function GetMon(Ngay As Date, Thu As Long, Tiet As Long, Rng As Range) As Variant
Dim Arr(), Cll As Range, I As Long, J As Long, Col As Long
With Sheets("tkb")Arr = Rng.Value
For I = 1 To UBound(Arr, 1)
If Arr(I, 1) = Ngay Then
Col = ((Thu - 1) * 10 - 9) + (Tiet * 2 - 1)
GetMon = IIf(Arr(I, Col) = "", "", Arr(I, Col))
Exit For
End If
Next I
End With
End Function

Hoàng Trọng Nghĩa · 26/1/14

nst1984 đã viết:
Code của anh chạy đúng rồi ạ! Cách khai báo tên biến như của anh em đã hiểu được phần nào rồi. Tuy nhiên anh giải thích giúp em ý nghĩa chỗ màu đỏ với!
GetMon = IIf(Arr(I, Col) = "", "", Arr(I, Col))

Thay vì bạn dùng trong Excel với hàm IF thì hàm trong VBA nó thêm một chữ I nữa đó là IIF vậy thôi. Về tính chất nó giống y chang hàm IF của Excel.

Nhưng với câu lệnh đó mà dùng IIF đó thì hơi thừa, bởi:

Thay vì:

GetMon = IIf(Arr(I, Col) = "", "", Arr(I, Col))

Thì nên như vầy:

GetMon = Arr(I, Col)

Xong!

Đằng nào nó rỗng thì GetMon nó cũng bằng rỗng, nếu nó là rỗng mà cần kết quả khác thay thế rỗng thì ta mới sử dụng hàm IIF này thôi, vì thế, tính toán thêm chi cho phức tạp vụ!

nst1984 · 26/1/14

Hoàng Trọng Nghĩa đã viết:
Thay vì bạn dùng trong Excel với hàm IF thì hàm trong VBA nó thêm một chữ I nữa đó là IIF vậy thôi. Về tính chất nó giống y chang hàm IF của Excel.

Cảm ơn anh Nghĩa nhiều lắm ạ! Tại em thấy có 1 số code vẫn dùng if......Endif nên gặp IIF em không hiểu là gì?
Anh Nghĩa và anh Ba Tê có thể suy nghĩ giúp đỡ em 3 hàm còn lại trong File đính kèm ở bài #233 được không ạ. Nếu có thêm chú thích cho em thì càng tốt. Em mới tìm hiểu về VBA nên còn nhiều điều bỡ ngỡ lắm ạ!
P/S: Nhân tiện cho em hỏi ý nghĩa UBound trong lệnh For I = 1 To UBound(Arr, 1) với ạ.

nst1984 · 26/1/14

Hoàng Trọng Nghĩa đã viết:
Thay vì bạn dùng trong Excel với hàm IF thì hàm trong VBA nó thêm một chữ I nữa đó là IIF vậy thôi. Về tính chất nó giống y chang hàm IF của Excel.

Nhưng với câu lệnh đó mà dùng IIF đó thì hơi thừa, bởi:

Thay vì:

GetMon = IIf(Arr(I, Col) = "", "", Arr(I, Col))

Thì nên như vầy:

GetMon = Arr(I, Col)

Xong!

Đằng nào nó rỗng thì GetMon nó cũng bằng rỗng, nếu nó là rỗng mà cần kết quả khác thay thế rỗng thì ta mới sử dụng hàm IIF này thôi, vì thế, tính toán thêm chi cho phức tạp vụ!

Em đã thử. Đúng là bỏ hàm IIf đi vẫn được anh ạ!

Ba Tê · 27/1/14

nst1984 đã viết:
Cảm ơn anh Nghĩa nhiều lắm ạ! Tại em thấy có 1 số code vẫn dùng if......Endif nên gặp IIF em không hiểu là gì?
Anh Nghĩa và anh Ba Tê có thể suy nghĩ giúp đỡ em 3 hàm còn lại trong File đính kèm ở bài #233 được không ạ. Nếu có thêm chú thích cho em thì càng tốt. Em mới tìm hiểu về VBA nên còn nhiều điều bỡ ngỡ lắm ạ!
P/S: Nhân tiện cho em hỏi ý nghĩa UBound trong lệnh For I = 1 To UBound(Arr, 1) với ạ.

Cả 3 cái mới đây, có 2 cột Temp và tiết theo PPCT là sao không hiểu.

nst1984 · 27/1/14

Ba Tê đã viết:
Cả 3 cái mới đây, có 2 cột Temp và tiết theo PPCT là sao không hiểu.

Em chào anh, em vừa mới vào GPE thấy bài ảnh gửi em mừng quá! Em cảm ơn anh, cứ nghĩ anh quên rồi cơ. Cột Temp là để thay đổi tiết dạy anh ạ. Ví dụ tiết 37 là theo phân phối chương trình(PPCT) là kiểm tra học kì nhưng thực tế lịch kiểm tra học kì của Phòng giáo dục chưa tới nên phải dạy đẩy tiết 38 lên trước. Nên tác giả tạo ra cột đó để có thể đảo tiết anh a.
+ Còn cột tiết theo PPCT(tiết theo phân phối chương trình) tức là bọn em dạy theo các bài của Sách giáo khoa nhưng phải tuân theo một PPCT của bộ GD hoặc của tỉnh anh ạ. Em có 1 Sheet PPCT các bài phải dạy đó anh.
+P/S: À anh ơi, cột tiết "thứ theo PPCT" và cột "tên bài dạy" phụ thuộc vào cột "chuẩn bị điều chỉnh(TN, hoặc thay đổi tiết dạy)" nữa anh.
Nếu như ở cột "chuẩn bị điều chỉnh(TN, hoặc thay đổi tiết dạy)" có ghi chữ nghỉ tết hoặc nghỉ 20-11... thì ở 2 cột "thứ theo PPCT" và cột "tên bài dạy" sẽ bị bỏ trống và tiết của những ngày nghỉ đó sẽ được đẩy nên học vào tiết sau.

Ba Tê · 27/1/14

nst1984 đã viết:
Em chào anh, em vừa mới vào GPE thấy bài ảnh gửi em mừng quá! Em cảm ơn anh, cứ nghĩ anh quên rồi cơ. Cột Temp là để thay đổi tiết dạy anh ạ. Ví dụ tiết 37 là theo phân phối chương trình(PPCT) là kiểm tra học kì nhưng thực tế lịch kiểm tra học kì của Phòng giáo dục chưa tới nên phải dạy đẩy tiết 38 lên trước. Nên tác giả tạo ra cột đó để có thể đảo tiết anh a.
+ Còn cột tiết theo PPCT(tiết theo phân phối chương trình) tức là bọn em dạy theo các bài của Sách giáo khoa nhưng phải tuân theo một PPCT của bộ GD hoặc của tỉnh anh ạ. Em có 1 Sheet PPCT các bài phải dạy đó anh.
+P/S: À anh ơi, cột tiết "thứ theo PPCT" và cột "tên bài dạy" phụ thuộc vào cột "chuẩn bị điều chỉnh(TN, hoặc thay đổi tiết dạy)" nữa anh.
Nếu như ở cột "chuẩn bị điều chỉnh(TN, hoặc thay đổi tiết dạy)" có ghi chữ nghỉ tết hoặc nghỉ 20-11... thì ở 2 cột "thứ theo PPCT" và cột "tên bài dạy" sẽ bị bỏ trống và tiết của những ngày nghỉ đó sẽ được đẩy nên học vào tiết sau.

Bạn phải nhập thủ công một vài trường hợp cụ thể và nói rõ hơn mới hiểu được.
Ái da! File này không phải của bạn sao? Có hỏi tác giả chưa mà sửa tùm lum vậy "Chời".

nst1984 · 27/1/14

Ba Tê đã viết:
Cả 3 cái mới đây, có 2 cột Temp và tiết theo PPCT là sao không hiểu.

Anh ơi có 1 chút vấn đề, đó là khi em copy công thức ở 2 cột F và G xuống thì nó không cho kết quả anh ạ!

Ba Tê · 27/1/14

nst1984 đã viết:
Anh ơi có 1 chút vấn đề, đó là khi em copy công thức ở 2 cột F và G xuống thì nó không cho kết quả anh ạ!

Bạn muốn nói gì thì cũng phải đưa file dẫn chứng, copy là sao, không ra là sao.
--- Bạn vẫn chưa trả lời câu hỏi:

Ái da! File này không phải của bạn sao? Có hỏi tác giả chưa mà sửa tùm lum vậy "Chời".

nst1984 · 27/1/14

Ba Tê đã viết:
Bạn phải nhập thủ công một vài trường hợp cụ thể và nói rõ hơn mới hiểu được.

Anh xem File đính kèm đi ạ.

Ba Tê · 27/1/14

nst1984 đã viết:
Anh xem File đính kèm đi ạ.

Tôi không thấy bạn copy xuống như thế nào cả.
Với lại sheet tkb chỉ có 2 dòng, làm sao đủ dữ liệu để kiểm tra.

nst1984 · 27/1/14

Ba Tê đã viết:
Bạn muốn nói gì thì cũng phải đưa file dẫn chứng, copy là sao, không ra là sao.

Anh xem File đính kèm em gửi.

Ba Tê đã viết:
--- Bạn vẫn chưa trả lời câu hỏi:

Code này ko phải do em viết anh ạ, nhưng file này là của em ạ.

nst1984 · 27/1/14

Ba Tê đã viết:
Với lại sheet tkb chỉ có 2 dòng, làm sao đủ dữ liệu để kiểm tra.

Sheet thời khóa biểu chỉ bổ sung thêm khi có sự thay đổi thời khóa biểu anh ạ. Nếu như không có sự thay đổi thời khóa biều thị các tuần tiếp vẫn áp dụng thời khóa biểu đó ạ.

Ba Tê · 27/1/14

nst1984 đã viết:
Sheet thời khóa biểu chỉ bổ sung thêm khi có sự thay đổi thời khóa biểu anh ạ. Nếu như không có sự thay đổi thời khóa biều thị các tuần tiếp vẫn áp dụng thời khóa biểu đó ạ.

Nếu vậy thì luxubu thêm rồi. Chờ chỉnh lại công thức mới được.

nst1984 · 27/1/14

Ba Tê đã viết:
Nếu vậy thì luxubu thêm rồi. Chờ chỉnh lại công thức mới được.

dạ vâng. Anh giúp em với.

Ba Tê · 27/1/14

Ba Tê đã viết:
Nếu vậy thì luxubu thêm rồi. Chờ chỉnh lại công thức mới được.

Khi copy Phải copy nguyên bảng của 1 tuần xuống , sửa ô TỪ NGÀY.
Nếu cột H có ghi chú bất cứ cái gì thì tiết PPCT và tên bài dạy sẽ =""

nst1984 · 27/1/14

Ba Tê đã viết:
Khi copy Phải copy nguyên bảng của 1 tuần xuống , sửa ô TỪ NGÀY.
Nếu cột H có ghi chú bất cứ cái gì thì tiết PPCT và tên bài dạy sẽ =""

Em nhập ngày nghỉ vào cột H thì các dòng dưới báo lỗi hết anh ạ!

Ba Tê · 27/1/14

Tôi mở file chẳng thấy dòng nào lỗi.
Hay là bạn không Enable Macro khi mở file?

nst1984 · 27/1/14

Ba Tê đã viết:
Tôi mở file chẳng thấy dòng nào lỗi.
Hay là bạn không Enable Macro khi mở file?

Em vào Tools--> Macro--> Securyti-->Low rồi mà vẫn ko được anh ạ.

Hoàng Trọng Nghĩa · 27/1/14

Ba Tê đã viết:
Tôi mở file chẳng thấy dòng nào lỗi.
Hay là bạn không Enable Macro khi mở file?

Đã xem file của Thầy Ba Tê, không thấy lỗi gì ở thủ tục chọn ngày cả! File chạy êm.

Ba Tê · 27/1/14

nst1984 đã viết:
Em vào Tools--> Macro--> Securyti-->Low rồi mà vẫn ko được anh ạ.

Ái da, bạn xài 2003 mà tôi dùng công thức CountIfs() của 2007 trở lên.
File 2003 đây.
Tôi khuyên bạn nên để Security mức Medium, khi mở file nào biết chắc có Macro "của mình" thì Enable, bằng không thì thôi, kéo mấy thằng Virus ào ào vào chết luôn

nst1984 · 27/1/14

Ba Tê đã viết:
Ái da, bạn xài 2003 mà tôi dùng công thức CountIfs() của 2007 trở lên.
File 2003 đây.
Tôi khuyên bạn nên để Security mức Medium, khi mở file nào biết chắc có Macro "của mình" thì Enable, bằng không thì thôi, kéo mấy thằng Virus ào ào vào chết luôn

Anh Ba Tê có thể giúp em viết thêm một hàm hay thủ tục nào đó để có thể đổi vị trí 2 tiết cho nhau được không ạ?
Ví dụ: đáng ra hôm nay là tiết 2 hôm sau tiết 3 nhưng dạy hôm nay dạy tiết 3 lên trước hôm sau tiết 2 và sau tiết 2 lại là tiết 4 đó anh.

nst1984 đã viết:
Anh Ba Tê có thể giúp em viết thêm một hàm hay thủ tục nào đó để có thể đổi vị trí 2 tiết cho nhau được không ạ?
Ví dụ: đáng ra hôm nay là tiết 2 hôm sau tiết 3 nhưng dạy hôm nay dạy tiết 3 lên trước hôm sau tiết 2 và sau tiết 2 lại là tiết 4 đó anh.

Anh Ba Tê ơi em nhập trực tiếp vào cột tiết theo PPCT thì thấy tên bài dạy cũng thay đổi theo tức là có thể đổi tiết được anh ạ. Nhưng em không biết có ảnh hưởng gì không ạ?

Ba Tê · 27/1/14

nst1984 đã viết:
Anh Ba Tê có thể giúp em viết thêm một hàm hay thủ tục nào đó để có thể đổi vị trí 2 tiết cho nhau được không ạ?
Ví dụ: đáng ra hôm nay là tiết 2 hôm sau tiết 3 nhưng dạy hôm nay dạy tiết 3 lên trước hôm sau tiết 2 và sau tiết 2 lại là tiết 4 đó anh
Anh Ba Tê ơi em nhập trực tiếp vào cột tiết theo PPCT thì thấy tên bài dạy cũng thay đổi theo tức là có thể đổi tiết được anh ạ. Nhưng em không biết có ảnh hưởng gì không ạ?

Muốn thực dạy tiết mấy thì ghi vào cột Temp thôi, "hết thuốc" rồi nghe.

nst1984 · 28/1/14

Ba Tê đã viết:
Muốn thực dạy tiết mấy thì ghi vào cột Temp thôi, "hết thuốc" rồi nghe.

Anh ơi cho em xin một ít "thuốc" nữa. Em copy ra được 37 tuần học (ứng với 37 trang), bây giờ muốn in thì in từng tuần một anh ạ(Kéo xuống rất mất thời gian). Và em thấy sau mỗi lần có sự thay đổi gì đó thì File chạy rất chậm. Anh giúp em đoạn code để in tùy chọn được không ạ. Ví dụ có 1 ô để nhập tuần cần in là được hoặc có thể in trang chẵn lẻ từ tuần... đến tuần... nào đó được không ạ? Ở sheet "BaoGiang" chỉ cần 1 hoặc 2 tuần thôi để cho File chạy nhanh hơn.

nst1984 · 29/1/14

Anh tạo giúp em code in giống như File đính kèm với ạ.

nst1984 · 29/1/14

mau hoa tim đã viết:
mấy hôm trước mình đã tự mày mò và đã làm được một file excel nhập dữ liệu từ form nhưng mình có một vài lỗi
- lúc tạo file từ một pc của mình thì các maco chạy bình thường nhưng không hiểu sao đưa file đó sang một pc khác thì không chạy được nữa mà nó giống một file bình thường

- với maco mình tạo như vậy giờ mình muốn nâng nó lên một tí là chạy nhập dữ liệu từ form mà mình đang tạo dỡ thì nó có được không
đó là những vấn đê mình thắc mắc , rất mong nhân được sự giúp đỡ của cac ban

Khi mang sang máy khác bạn đã chỉnh Macro về mức low chưa?

Ba Tê · 30/1/14

nst1984 đã viết:
Anh tạo giúp em code in giống như File đính kèm với ạ.

Một yêu cầu không rõ ràng.
Code in là in cái gì trong khi chỉ có 1 trang của 1 tuần?
Vì dữ liệu của bạn có cột Temps lu bu, không ổn định như PPCT nên tôi làm thế này:
- Chỉ có 1 trang mẫu để nhập dữ liệu, điều chỉnh gì đó xong ân nút Lưu Báo giảng
- Ví dụ nhập được đến tuần 5, muốn in 5 tuần thì ấn nút In Phiếu Báo giảng từ tuần 1 đến tuần 5
- Muốn nhập dữ liệu cho tuần tiếp thì ấn nút Tạo Phiếu mới rồi nhập.
- Khi đã vừa ý, có thể cho ẩn các cột từ Q:X cho đỡ rối mắt.
Muốn xoá dữ liệu trong cột Q:X thì UnProtect sheet, PW: bate
-------------------------
Chú ý: Tôi không biết mỗi khối lớp học mấy tiết/tuần nên phải làm 1 dòng ghi số tiết/tuần ở sheet ppct, dòng 1, bạn phải ghi rõ nếu không muốn code chạy bậy.

nst1984 · 30/1/14

Ba Tê đã viết:
-------------------------
Chú ý: Tôi không biết mỗi khối lớp học mấy tiết/tuần nên phải làm 1 dòng ghi số tiết/tuần ở sheet ppct, dòng 1, bạn phải ghi rõ nếu không muốn code chạy bậy.

Trước tiên, em xin cảm ơn anh!
Anh ơi, lần này gần như anh đã làm lại toàn bộ từ đầu giúp em rồi còn gì. "Hoành Tráng" quá anh ạ. Tuy nhiên anh cho thêm 1 cột số tiết trên tuần vào sheet PPCT em nghĩ ko ổn lắm. Với môn tin và các môn khác thì không sao. Nhưng với môn Toán của em hơi oái oăm 1 chút là nó không cố định. Ví dụ như môn số học 6, 14 tuần đầu học 3 tiết, 4 tuần cuối lại học 1 tiết rồi các môn Đại số 7 cũng vậy anh ạ. Liệu có cách nào xử lí được không anh?

Ahh ơi có 1 chút trục trặc rồi anh ạ. Em vừa in thử nhưng khi in ra thì nó không có dữ liệu ở các cột môn, lớp, tên bài... anh ạ.
P/S: Anh ơi mục đích cuối cùng của em là làm sao cho File nhẹ và chạy nhanh hơn thôi. Nếu để 1 trang(1 tuần) mà khó khăn cho việc thực hiện thì anh có thể để 2 trang) hoặc anh làm thế nào cũng được miễn sao khi anh thực hiện được dễ dàng hơn là được anh ạ.

Hoàng Trọng Nghĩa · 30/1/14

nst1984 đã viết:
Ahh ơi có 1 chút trục trặc rồi anh ạ. Em vừa in thử nhưng khi in ra thì nó không có dữ liệu ở các cột môn, lớp, tên bài... anh ạ.
P/S: Anh ơi mục đích cuối cùng của em là làm sao cho File nhẹ và chạy nhanh hơn thôi. Nếu để 1 trang(1 tuần) mà khó khăn cho việc thực hiện thì anh có thể để 2 trang) hoặc anh làm thế nào cũng được miễn sao khi anh thực hiện được dễ dàng hơn là được anh ạ.

Tôi nhắc bạn là muốn gì thì viết trong một bài thôi, đừng hỏi người ta dồn dập như thế mà? Ít ra bạn cũng lịch sự để người ta cúng kiếng ngày 30 Tết rước ông bà nữa chứ?!

ptm0412 · 30/1/14

Topic "Hỏi về VBA những vấn đề căn bản nhất" dùng cho những người mới học VBA và khi thực hiện gặp khó khăn và phải hỏi. Còn file báo giảng này thuộc loại nhờ làm giúp từ A đến Z nên không nằm chung topic đó được.

Các bạn nst1984, sinhthanh1984, chuot0106, cả 3 nick có 1 tật giống nhau là khi hỏi (thực sự là nhờ) thường hay hối thúc để được trả lời, cứ như thành viên GPE mắc nợ các bạn, phải bỏ công ăn việc làm, tết nhất, vợ con, để trả lời vậy.

Mod và Smod phải nhắc nhở và xoá rất nhiều lần. Hãy ý thức một chút đi chứ.

Ba Tê · 30/1/14

nst1984 đã viết:
Trước tiên, em xin cảm ơn anh!
Anh ơi, lần này gần như anh đã làm lại toàn bộ từ đầu giúp em rồi còn gì. "Hoành Tráng" quá anh ạ. Tuy nhiên anh cho thêm 1 cột số tiết trên tuần vào sheet PPCT em nghĩ ko ổn lắm. Với môn tin và các môn khác thì không sao. Nhưng với môn Toán của em hơi oái oăm 1 chút là nó không cố định. Ví dụ như môn số học 6, 14 tuần đầu học 3 tiết, 4 tuần cuối lại học 1 tiết rồi các môn Đại số 7 cũng vậy anh ạ. Liệu có cách nào xử lí được không anh?

Ahh ơi có 1 chút trục trặc rồi anh ạ. Em vừa in thử nhưng khi in ra thì nó không có dữ liệu ở các cột môn, lớp, tên bài... anh ạ.
P/S: Anh ơi mục đích cuối cùng của em là làm sao cho File nhẹ và chạy nhanh hơn thôi. Nếu để 1 trang(1 tuần) mà khó khăn cho việc thực hiện thì anh có thể để 2 trang) hoặc anh làm thế nào cũng được miễn sao khi anh thực hiện được dễ dàng hơn là được anh ạ.

Không có gì chuẩn mực để tính ra số tiết theo PPCT của 1 tuần nào đó thì làm sao mà bắt máy tính hiểu là đến tiết mấy?

Liệu có cách nào xử lí được không anh?

Chắc chỉ có cách xử lý là đếm xem đã dạy được bao nhiêu tiết rồi thì tính tiếp thôi.
Nhập từng tuần, chỉnh sửa theo cột Temp cho "chắc ăn" rồi bấm lưu.
Lưu rồi thì không được chỉnh sửa gì nữa và không còn công thức gì troing bảng lưu.
Nút Tạo Phiếu mới chỉ tính số tiết của tuần tiếp theo tuần đã lưu.

nst1984 · 30/1/14

Ba Tê đã viết:
Không có gì chuẩn mực để tính ra số tiết theo PPCT của 1 tuần nào đó thì làm sao mà bắt máy tính hiểu là đến tiết mấy?

Chắc chỉ có cách xử lý là đếm xem đã dạy được bao nhiêu tiết rồi thì tính tiếp thôi.
Nhập từng tuần, chỉnh sửa theo cột Temp cho "chắc ăn" rồi bấm lưu.
Lưu rồi thì không được chỉnh sửa gì nữa và không còn công thức gì troing bảng lưu.
Nút Tạo Phiếu mới chỉ tính số tiết của tuần tiếp theo tuần đã lưu.

Anh ơi lần này tôt hơn nhiều lắm rồi. Em đã in thử và thấy rất tốt. Các tuần nhảy rất "chuẩn". Chốc nữa em sẽ thử thay đổi thời khóa biểu xem thế nào. Có gì em sẽ phản hồi lại cho anh.
Em xin lỗi anh rất nhiều vì đã làm phiền anh vào ngày cuối năm.

Nhờ giúp code VBA cho file báo giảng dùng trong dạy học. (1 người xem)

Người dùng đang xem chủ đề này

Thành viên chính thức

File đính kèm

Thành viên chính thức

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên chính thức

Thành viên chính thức

Chuyên gia GPE

Thành viên chính thức

Thành viên chính thức

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên chính thức

Cạo Rồi Khỏi Gội

Thành viên chính thức

Cạo Rồi Khỏi Gội

Thành viên chính thức

File đính kèm

Cạo Rồi Khỏi Gội

Thành viên chính thức

File đính kèm

Thành viên chính thức

Cạo Rồi Khỏi Gội

Thành viên chính thức

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên chính thức

File đính kèm

Cạo Rồi Khỏi Gội

Thành viên chính thức

Chuyên gia GPE

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên chính thức

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên chính thức

Thành viên chính thức

File đính kèm

Thành viên chính thức

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên chính thức

Chuyên gia GPE

Bad Excel Member

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên chính thức

Thời gian đếm ngược.