Buổi học VBA thứ 2, ngày 16/4/2006

[levanduyet]

Chào các bạn,
Vào ngày 16/4/2006 chúng ta sẽ học buổi thứ hai (lý thuyết + thực hành) cho hai lớp A và B. Vì số lượng người của lớp B không nhiều. Nội dung buổi học như sau:
Phần 1: do Levanduyet phụ trách trong 45 phút từ 8g30 đến 9g15
_Giới thiệu về Excel Object Model.
_Function procedure và Sub procedure.
_Các loại biến và cách khai báo biến. Phần này có thể sẽ không thể trình bày hết.

Để chuẩn bị cho phần này, đề nghị các bạn tự tìm hiểu. Rất đơn giản các bạn vào help của Excel và gõ vào chữ "Excel Object Model", "Function", "Data type",...

Phần 2: do Bỉnh_OverAC phụ trách trong 45 phút tiếp theo từ 9g15 đến 10g
-Giới thiệu về kết hợp Advance Filter và tạo sổ chi tiết từ nhật ký chung
-Giới thiệu hàm kiểm tra mã số thuế.

Bình_OverAC sẽ sớm gởi bài lên để các anh chị tham khảo trước nhằm rút ngắn thời gian trong lớp, các bác nhớ đón theo dõi trong topic này.

Phần 3: Thực hành: từ 10g đến 11g30

Thân,

Lê Văn Duyệt

 

[Bình_OverAC]

Vậy thưa tất cả các bác. Thông tin về buổi học thứ 2 đã có mong các bác đón theo dõi và tham dự. Phần em cũng sẽ sớm post tài liệu của mình lên cho mọi người tham khảo.

Bài đã được sửa và thêm vào file mẫu có chứa sẳn macro em làm mời các bác tham khảo.

 

[Đào Việt Cường]

Dear all,
--------
Để giúp các bạn chuẩn bị tốt khi tìm hiểu về hàm kiểm tra mã số thuế trong buổi học tới, tôi gửi kèm theo đây một số văn bản liên quan đến việc lập và cấp mã số thuế:
1. Quyết định số 75/1998/QĐ-TTg ngày 04/04/1998 của Thủ tướng Chính phủ về việc quy định mã số đối tượng nộp thuế
2. Thông tư số 79/1998/TT-BTC ngày 12/06/1998 của Bộ Tài chính hướng dẫn thi hành Quyết định số 75/1998/QĐ-TTg
3. Thông tư số 10/2006/TT-BTC ngày 14/02/2006 của Bộ Tài chính hướng dẫn thi hành Quyết định số 75/1998/QĐ-TTg

Có nhiều phương pháp để viết được hàm kiểm tra mã số thuế, song giải thuật của các phương pháp đều dựa vào TT 79/1998/TT-BTC. Sau đây tôi xin giới thiệu hàm mà tôi đã viết. Hàm có thể vẫn còn một số thiếu sót, mong các bạn bổ sung và góp ý:

Function CheckVATCode(varConvetVATCode As Variant)
'Hàm kiểm tra MST: phải kết hợp với hàm ConvetVATCode
Dim strVATCode As String
strVATCode = varConvetVATCode
strVATCode = ConvetVATCode(strVATCode)
If InStrRev(strVATCode, "#") <> 0 Then
CheckVATCode = strVATCode
Exit Function
ElseIf strVATCode = Left(varConvetVATCode, 10) Then
CheckVATCode = True
End If
End Function
__________________________________________________________________________________
Function ConvetVATCode(varVATCode As Variant, Optional strSeparator As String = "-") As String
'Hàm chuyển đổi mã số thuế: tự phát sinh ra mã số kiểm tra
If IsError(varVATCode) Then
ConvetVATCode = "[HASHTAG]#Val[/HASHTAG]" 'MST đang có lỗi hoặc sai giá trị
Exit Function
Else
varVATCode = Trim(varVATCode)
End If
Select Case Len(varVATCode)
Case 12, 14
If Mid(varVATCode, 11, 1) <> strSeparator Then
ConvetVATCode = "[HASHTAG]#Sep[/HASHTAG]" 'MST sai dấu ngăn cách mã đơn vị trực thuộc quy ước
Exit Function
End If
If Mid(varVATCode, 12, 1) > 0 Then
ConvetVATCode = "[HASHTAG]#Cop[/HASHTAG]" 'MST sai ở phần mã đơn vị trực thuộc
Exit Function
End If
Case Is <> 10, 12, 14
ConvetVATCode = "[HASHTAG]#Len[/HASHTAG]" 'MST không đủ hoặc thừa ký tự
Exit Function
End Select
varVATCode = Left(varVATCode, 9)
Dim i As Long, dblSum As Double, arySonguyento
arySonguyento = Array(31, 29, 23, 19, 17, 13, 7, 5, 3)
For i = 1 To 9
dblSum = dblSum + Mid(varVATCode, i, 1) * arySonguyento(i - 1)
Next
If dblSum Mod 11 = 0 Then
ConvetVATCode = varVATCode & Right(varVATCode, 1) + 1
Else
ConvetVATCode = varVATCode & 10 - dblSum Mod 11
End If
ConvetVATCode = CStr(ConvetVATCode)
End Function

 

[Bình_OverAC]

Cảm ơn anh Cường Nhiều lắm, những thông tin anh cung cấp rất hữu ích.
Trong phạm vi chương trình. Hàm sẽ rất đơn giản, chỉ mong đạt được những gì mang tính cơ bản và giới thiệu. Do vậy hàm sẽ không quá tạp và tính toán rất đơn giản. Tuy nhiên, mong các bạn học viên lưu ý rằng đoạn code trên của anh Cường là đoạn code rất hay và chuẩn.
Bình_OverAC

 

[Thien Thanh_]

Chào các anh chị,
Thiên Thanh tham gia diễn đàn hơi muộn, em có thể tham gia học VBA được không? (bắt đầu từ buổi thứ 2 _ 16/4)
Nếu được cho em đăng ký luôn nhé.
(và em phải chuẩn bị những gì để có thể theo kịp chương trình?)

 

[Thien Thanh_]

Sao em ko nhận được câu trả lời nhỉ?
Hôm nay đã là 12 rồi? Em có được tham gia lớp học VBA ko đây?

 

[Bình_OverAC]

Sao em ko nhận được câu trả lời nhỉ?
Hôm nay đã là 12 rồi? Em có được tham gia lớp học VBA ko đây?

Chào đón bạn đến với lớp học VBA buổi thứ 2.
bạn có thể xem tài liệu buổi thứ nhất ở đây:
http://webketoan.com/forum/showthread.php?t=14499
Và một số câu hỏi bài tập ở đây:
http://webketoan.com/forum/showthread.php?t=14723

 

[Thien Thanh_]

Chào đón bạn đến với lớp học VBA buổi thứ 2.
bạn có thể xem tài liệu buổi thứ nhất ở đây:
http://webketoan.com/forum/showthread.php?t=14499
Và một số câu hỏi bài tập ở đây:
http://webketoan.com/forum/showthread.php?t=14723

Thiên Thanh cám ơn anh NBình.

 

[handung107]

Các bạn nào tham gia buổi học thứ hai xin vui lòng xác nhận lại để BTC nhắm được số lượng chính xác tiện cho việc sắp xếp. Các bạn có thể liên hệ với Nguyên Bình hoặc trực tiếp với handung107 tại 10 Bàu Cát trước ngày thứ 6 14/04/06, tránh tình trạng số lượng ảo.
CN 02/04/06 vừa rồi, theo dự trù của BTC là khỏang từ 25 - 30 người, nhưng không hiểu lý do nào mà chỉ có 9 bạn tham dự. Nếu dự đoán được chính xác, chúng tôi sẽ không phải chia đôi lớp học, và Nguyên Bình cũng như Duyệt sẽ không bị mất nhiều thời gian cho buổi học đầu tiên nhiều như vậy.
Về lâu dài, nếu muốn tổ chức đều đặn, các bạn có thể gửi lệ phí cho BTC trước mỗi buổi học, mục đích là xác nhận việc tham dự của mình thôi

 

[dtm]

em mới vào, cung muốn tham gia nhưng không biết như thế nào giúp em với :error:

 

[Phan Huy Tam]

vậy là CN này kô tham gia được rùi, tiếc quá, chắc là phải download bài về xem đỡ rồi hỏi 2 thầy sau quá !!!!!!!!!:alcon:

 

[Bình_OverAC]

Thông báo về tài liệu của buổi học:

Thưa các bác, với phần trình bày của anh Duyệt, mọi người sẽ nhận tài liệu tại buổi học.

Với tài liệu về phần trình bày của em, e rằng thời gian hơi ngắn, đề nghị mọi người xem file đính kèm thực hành trước. Ngày mai em sẽ post lên file mẩu do em làm.

Các bác lưu ý, file bài học 2.1 là phần lý thuyết
View attachment 1546
File "nhật ký chung" là file tài liệu mẫu hôm đó chúng ta sẽ thực hành.
View attachment 1547

 

[cold]

Buổi học VBA thứ 2, ngày 16/4/2006
Cho mình tham gia với, mình có đăng ký trước nhưng do ngày 02/04/2006 mình bận việc nên ko thể tham gia được.Mình có thể tham gia buổi thứ 2 này được chứ??

 

[Bình_OverAC]

Buổi học VBA thứ 2, ngày 16/4/2006
Cho mình tham gia với, mình có đăng ký trước nhưng do ngày 02/04/2006 mình bận việc nên ko thể tham gia được.Mình có thể tham gia buổi thứ 2 này được chứ??

Cold ơi. Hôm 2/4 là buổi học thứ nhất của nhóm 2. Còn lần này là buổi học thứ 2 cho cả hai nhóm. Tất nhiên là cold có thể tham gia rùi. :bigok:

 

[lotus]

mình đăng ký tham gia ngày 16/4/06
Chắc không phải gửi mail xác nhận nữa đâu nhỉ

 

[Bình_OverAC]

Cold ơi. Hôm 2/4 là buổi học thứ nhất của nhóm 2. Còn lần này là buổi học thứ 2 cho cả hai nhóm. Tất nhiên là cold có thể tham gia rùi. :bigok:

Tôi vừa xem lại danh sách những thành viên tham dự buổi học thứ nhất thì không thấy tên của bác. Tôi cứ nhớ là bác đã tham gia vào buổi thứ nhất. Nếu bác chưa biết gì về VBA tôi cho rằng bác sẽ hơi vất vả trong buổi thứ 2 này. Vậy bác nên load bài thứ nhất và ngâm cứu kỷ nhé.

 

[cold]

:cool2: To:Bình_OverAC,
Tôi đã download bài học thứ nhất rồi. Cám ơn lời khuyên của bác.:dance2:

 

[nhanketoan]

Anh Bình ơi, em chưa học được buổi học thứ 1 nhất, vậy anh cho em tham gia được ko anh?nếu được thì đóng phí ở đâu?thời gian nào?ngày nào?em cám ơn anh nhìu nha...

 

[Nguyễn Bình]

Chị Dung ơi,
Em đồng ý với việc đóng học phí trước để tránh tình trạng đăng ký ảo. Ai đã đóng học phí mà không học thì thiệt ráng chịu.
Có điều đóng học phí cho ai và đóng như thế nào vậy chị? TM hay CK? Đóng vào ngày nào và đóng cho ai?

 

[SweetNovember]

Chị Dung ơi,
Em đồng ý với việc đóng học phí trước để tránh tình trạng đăng ký ảo. Ai đã đóng học phí mà không học thì thiệt ráng chịu.
Có điều đóng học phí cho ai và đóng như thế nào vậy chị? TM hay CK? Đóng vào ngày nào và đóng cho ai?

Chị Dung ơi, mọi người đã đoóg học phí hết chưa, có cần sáng mai em đến sớm ko chi?