Tạo mã phiếu thu( hay chi,nhập,. . . .) có dạng MMDDYY***

[kattykatty89]

Mà trong nới MM là 2 ký số chỉ tháng giaio dịch ( & DD - ngày; YYm - năm)

*** là ký số tăng dần trong 1 ngày 1 cách tự động.

:xinchao:​

[COLOR=#000000]
Option Explicit[/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]STT[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ID[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Optional Dat [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Date[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Dim Nam [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Thang [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Ngay [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String   [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Dat [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 Then Dat [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Date Nam [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Right[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"0" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]CStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Year[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dat[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Mod 100[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Thang [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Right[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"0" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]CStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Month[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dat[/COLOR][COLOR=#007700])), [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Ngay [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Right[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"0" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]CStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Day[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dat[/COLOR][COLOR=#007700])), [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700])  If [/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ID[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]5[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Nam [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Left[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ID[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Thang [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ID[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Ngay Then    Nam [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Right[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"00" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]CStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]CInt[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Right[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ID[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700])) + [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]STT [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Left[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ID[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]6[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]Nam [/COLOR][COLOR=#007700]Else    [/COLOR][COLOR=#0000BB]STT [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Thang [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Ngay [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Nam [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]"001" [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]Function[/COLOR] 

Ví dụ tại [B1] đang có giá trị 0;Ở [B2] ta nhập cú fáp

=STT(B1)​

Sau khi {ENTER} ta sẽ có kết quả sẽ là số mã fiếu ta cần!

Chúc thành công!

:dotphao:​

View more random threads:

• EMBED("Forms.ComboBox.1","")
• Xin file maro excel kế toán trường học!!
• Cần hỗ trợ code VBA
• cách tự tạo sổ phần mềm excel kế toán
• [help] copy và paste vào dòng trống phía dưới với VBA
• kế toán exel
• Mong các bạn giúp đỡ : Lập trình VBA cho excel " lọc danh sách nhân viện có cùng độ tuổi "
• viết code xong nhưng không thực thi lệnh
• File viết bằng VBA đầu tiên
• Pha Password excell file

[seluoncocach]

Ðề: Tạo mã phiếu thu (hay chi, nhập, xuất. . . .) có dạng chuỗi MxDDYY***

/(/hiều lúc trong excel dùng dãy các ký số làm mã duy nhứt như vậy cũng gặp fải bất tiện; (Bất tiện như thế nào, xin nhường các bạn tìm hiểu)

Sau đây mình xin giới thiệu hàm người dùng đã được sửa đổi để nó tạo ra chuỗi tăng dần trong ngày bắt đầu từ MxDDYY001

mà ở đó, M có thể là "A" hay "B" (Cho các tháng 10 đến 12); còn x tiếp sau là số cuối chỉ tháng đó.
(DD & YY như đã được giải nghĩa bên trên)

/(/ội dung macro như sau:

:nguguc:​

[COLOR=#000000]
Option Explicit[/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]sSTT[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ID [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Optional Dat [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Date[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Dim Nam [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Thang [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Ngay [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String  [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Dat [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 Then Dat [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Date Nam [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Right[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"0" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]CStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Year[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dat[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Mod 100[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700])   If [/COLOR][COLOR=#0000BB]Month[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dat[/COLOR][COLOR=#007700]) > [/COLOR][COLOR=#0000BB]9 Then    Thang [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"B" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Choose[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Month[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dat[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]9[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"0"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"1"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"2"[/COLOR][COLOR=#007700]) Else    [/COLOR][COLOR=#0000BB]Thang [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"A" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]CStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Month[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dat[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Ngay [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Right[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"0" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]CStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Day[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dat[/COLOR][COLOR=#007700])), [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ID[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]5[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Nam [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Left[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ID[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Thang [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ID[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Ngay Then    Nam [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Right[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"00" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]CStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]CInt[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Right[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ID[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700])) + [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]sSTT [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Left[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ID[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]6[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]Nam [/COLOR][COLOR=#007700]Else   [/COLOR][COLOR=#0000BB]sSTT [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Thang [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Ngay [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Nam [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]"001" [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]Function[/COLOR] 

:nguguc:

[ledatht]

Ðề: Thực ra mã được tạo ra bỡi macro trên vẫn còn ẩn chứa 1 vài nhược điểm;

Thứ nhất là chúng ta fải nói rằng quá dài. Điền này thể hiện ở chỗ fần 6 ký tự đầu của mã (ta tạm gọi nó là fần đặc tính) ta có cách làm nó chỉ là 3 ký tự; Nhưng chỉ với 3 ký tự ta có thể biểu diễn tất cả của các ngày tháng khác nhau của nữa thế kỷ.

Ví dụ như sau

Trên cơ sở bảng chữ cái ta có trên 24 ký tự, ta có thể dùng chúng để biểu diễn 24 tháng của 2 năm liên tiếp;
Cụ thể cho dễ hiểu như sau
các năm 2010 & 2011 ta dùng chữ cái 'G' để biểu thị thì tháng 1/2010 ta biểu diễn nó là GA; tháng 2/2010 sẽ là GB, . . . . ; Lúc đó tháng 10 sẽ là GL. Tiếp theo tháng 1 của 2011 sẽ được biểu diễn là GM
(& cứ thế lặp tiếp. . .)

Tháng 1/2012 sẽ fải là HA,. . .

Vì 1 thágn chí ít 28 ngày, nên để biểu thị vị trí thứ ba trong mã để chỉ ngày, ta cần dùng thêm các kí số.
Ví dụ nĐể tạo mã fiếu đầu tiên trong ngày 09 tháng 10 năm 2012 ta có mã GJ9001 & fiếu đầu của ngày kế tiếp sẽ là GJA001

Như vậy chúng ta thấy chịu khó đầu tư thời gian & công sức trong vài ngày, ta sẽ mãi mãi tiết kiệm rất nhiều thời gian một khi hàng ngày truy xuất, tìm kiếm & thống kê số liệu nhanh chóng.

:nguguc:​

Macro mà ta hướng tới có nội dung sau

​

Option Explicit
Function SoTT(ID As String, Optional Dat As Date)
 Dim Nam As String, Thang As String, Ngay As String
 
 If Dat = 0 Then Dat = Date
 Nam = Chr(65 + (Year(Dat) Mod 100) \ 2)
 If Year(Dat) Mod 2 = 0 Then
    Thang = Choose(Month(Dat), "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L")
 Else
    Thang = Choose(Month(Dat), "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X")
 End If
 If Day(Dat) < 10 Then
    Ngay = CStr(Day(Dat))
 Else
    Ngay = Chr(55 + Day(Dat))
 End If
 If Left(ID, 1) = Nam And Mid(ID, 2, 1) = Thang And Mid(ID, 3, 1) = Ngay Then
    Ngay = Right("00" & CStr(CInt(Right(ID, 3)) + 1), 3)
    SoTT = Left(ID, 3) & Ngay
 Else
    SoTT = Nam & Thang & Ngay & "001"
 
 End If
End Function

:k5211829:

[mrbin]

Ðề: Ta thử tiến hành dịch từ ngôn ngữ VBA của hàm tại #4 sang Việt ngữ, hầu hiểu thêm vấn đề.

:nguguc:​

Đầu tiên ta sẽ thấy 3 dòng lệnh trên dòng lệnh 1 (D1). Chúng dùng để khai báo các biến cần dùng & khai báo 1 hằng dạng chuỗi gồm 10 ký số & bảng chữ cái nối tiếp nhau.
Việc này ngỏ hầu đảm bảo trong quá trình chạy hàm sẽ không bị báo lỗi do ta ch ưa khai báo các biến 1 cách tường minh theo yêu cầu của câu lệnh Option Explicit ngay vào đầu chương trình.

Các bạn cũng thấy các biến ta khai báo đều có kiểu dữ liệu của nó; Việc này nhằm cho ta tiết kiệm tài nguyên khi vận hành hàm tự tạo.

D1: Nếu ta không cung cấp tham biến Dat thì VBE được lấy ngày hiện hành của hệ thống làm tham biến này.
Còn việc tại sao tham biến trước (ID) nhứt thiết fải được cung cấp, mà tham biến Dat không nhứt thiết cung cấp là do từ khoá Optional trong mệnh đề tên hàm qui định.

D2: Lấy fần lẽ của năm trong tham biến Dat so với 100 đem chia cho 3 & chỉ lấy số tròn.

Ví dụ nếu năm trong biến Dat đang là 2012 thì fần nguyên vớ 100 sẽ là 12 & chia cho 3 ta sẽ ó đáp số là 4 ; Số này được gán vô biến Jj
Ta cũng dễ nhận ra là các năm 2013 & 2014 sau năm này cũng có kết quả Jj=4. Điền này do toán tử "\" đem lại.
Xin fép dừng ở đây 1 chút để giải nghĩa í tưởng của dòng lệnh này:

Ta biết trong hằng ta khai báo là chuỗi gồm 36 ký tự (hoặc ký số); Mặt khác 3 năm ta có vị chi là 36 tháng Vậy ta dùng 1 trong 36 ký tự này để lần lượt biểu thị cho tháng bất kỳ nào đó trong vòng 3 năm liên tiếp;
Để dễ hình dung hơn, ta sẽ chọn tháng 10 trong 3 năm kế tiếp này sẽ lần lượt có mã là D9, DL & DX tương ứng
(Mà ở đây D9 biểu diễn tháng 10/2012, . . . & DX là tháng 10/2014)

D3: Lấy kết quả của hàm chuyển chỉ số mã bàn fím sang ký tự đem gán vô biến 'Nam' đã khai báo;

D4: Biến Jj ta gán giá trị mới, đó là lấy fần nguyên của fép chia cho 3 từ số biểu thị năm trong biến Dat

D5: Giá trị tháng trong Dat được đem cọng với 1 tích giữa 12 & số, sao cho khi số năm trong Dat chia hết cho 3 sẽ là 1; khi ch ia cho 3 dư 1 thì sẽ là 2 & dư 2 sẽ là số không

D6: Trích li 1 chữ cái (hay chữ số) thích hợp từ hằng TT gán vô biến Thang

D7: Gán vô biến Ngay ký tự biểu trưng là ngày trong Dat

D8: Tạm ghép 3 biến này v ô hàm

D9: Nếu tham số đầu mà ta cung cấp vô hàm có 3 ký tự đầu trùng với hàm tạm (Có nghĩa số hóa đơn liền nhau này đang giao dịch trong cùng 1 ngày thì thực thi câu lệnh ghi trong D10; Bằng ngược lại, sẽ fải thực thi lệnh trong D13

D10: Lấy 3 ký tự cuối của tham biến cung cấp cho hàm chuyển về dạng số; Sau đó cọgn thêm 1 đơn vị & cuối cùng lại chuyển kết quả này về dạng chuỗi & ghi tạm (gán) vô biến Ngay
(Nói nôm na là: Tham biến ta cung cấp là 'D9A008', thì sau khi xử lý, trong biến Ngay sẽ là chưỡi '009'

D11: Nối chuỗi vừa xử lí này vố sau giá trị trong hàm (D:ammuu:
​[/CENTER]

[huahien]

Ðề: Ta thử tiến hành dịch từ ngôn ngữ VBA của hàm tại #4 sang Việt ngữ, hầu hiểu thêm vấn đề.

Góp một chút xíu ý kiến:

1. Dùng phương pháp chèn "0" ở đầu và hàm Right { Nam = Right("0" & CStr(Year(Dat) Mod 100), 2)
} để định dạng số không được an toàn và khó sửa chữa. Thường thì ngừoi ta dùng hàm format
Nam = Format(Year(Dat) Mod 100, "00"); hoặc
Nam = Format(Year(Dat) Mod 100, String(2,"0"))
* Thứ nhất, Hàm Format không làm mất số liệu nếu bị tràn số. Thứ hai, ta dễ dàng tăng/giảm độ rộng của định dạng.

2. Tóm gọn số 1-31 thành mã A,B,C tuy có cái lợi là giảm được chiều dài chuỗi nhưng cũng có cái bất lợi là khi nhìn vào mã không thể thấy trực tiếp được giá trị ngày/tháng/năm { phải bấm đốt tay tính mới biết được HAE có nghĩa là 121014 }

[tandatcit]

Ðề: Mã fiếu này người sử dụng đầu cuối càng không biết đến càng tốt.

Mã tạo ra để dễ bề quản lý các records mà thôi;

& theo mình mã càng ngắn càng tìm ra nó 1 cách nhanh chóng trong trường chứa chúng.

:bdance:

Một khía cạnh khác nữa mà tình sẵn đây muốn đề cập đến; đó là làm mã fiếu cho các hoá đơn tính tiền;
Trong 1 siêu thị thường có nhiều máy tính tiền; Nhưng ta không thể không đề fòng trường hợp các khách hàng chỉ tập trung tại 1 máy lập hóa đơn (Vì máy khác hư hỏng hay vì cô nhân viên xinh 2uá đi!)

/(hi đó 3 số sau ta có thể fải tăng lên thành 4, thậm chí thành 5 số hay 3 kí số với 1 chữ cái kèm theo.

(/iệc này cũng đơn giản & mình rất mong nhiều bạn sẽ thử sức mình tạo ra những mã như vậy
(húc các bạn thành công!

:ammuu:​