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

  • Thread starter levanduyet
  • Ngày gửi
L

levanduyet

Welcome
16/10/04
535
11
18
HCM
my.opera.com
#1
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

Bình_OverAC

Over Abnormal / Crazy
14/5/04
845
7
18
36
Nha Trang
#2
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.
 

Đính kèm

Đào Việt Cường

Đào Việt Cường

Moderator
22/11/05
400
3
18
Khánh Hòa
#3
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
 
Sửa lần cuối:
B

Bình_OverAC

Over Abnormal / Crazy
14/5/04
845
7
18
36
Nha Trang
#4
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_

Thien Thanh_

Trần Lạc Nhi
24/3/06
459
0
18
Miền Trung
#5
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_

Thien Thanh_

Trần Lạc Nhi
24/3/06
459
0
18
Miền Trung
#6
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

Bình_OverAC

Over Abnormal / Crazy
14/5/04
845
7
18
36
Nha Trang
#7
H

handung107

Thành viên thân thiết
28/8/04
576
13
0
VN
www.giaiphapexcel.com
#9
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
 
D

dtm

Thành viên sơ cấp
12/4/06
7
0
0
webketoan
#10
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:
 
B

Bình_OverAC

Over Abnormal / Crazy
14/5/04
845
7
18
36
Nha Trang
#12
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

cold

Thành viên thân thiết
20/12/05
243
42
28
41
A2,Hoang Hoa Tham,Q.TB
#13
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

Bình_OverAC

Over Abnormal / Crazy
14/5/04
845
7
18
36
Nha Trang
#14
cold nói:
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:
 
L

lotus

Thành viên sơ cấp
28/9/04
27
0
0
34
tphcm
#15
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

Bình_OverAC

Over Abnormal / Crazy
14/5/04
845
7
18
36
Nha Trang
#16
Bình_OverAC nói:
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

cold

Thành viên thân thiết
20/12/05
243
42
28
41
A2,Hoang Hoa Tham,Q.TB
#17
: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:
 
N

nhanketoan

Thành viên sơ cấp
#18
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...
 
N

Nguyễn Bình

Đại ngố
22/11/05
308
2
0
TP HCM
#19
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?
 
S

SweetNovember

Thành viên sơ cấp
#20
Nguyễn Bình nói:
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?
 

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

  • thaokt280291
  • daongocnam0603
  • lethanhqlda
  • Nguyễn Phương Mai 1412
  • huekthb

Xem nhiều