Công thức tạo mã (1 người xem)
- Thread starter Excel365
- Ngày gửi
Người dùng đang xem chủ đề này
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Dùng VBA có được không bạn?
Gửi bạn tham khảo, sử dụng kết hợp hàm Left và Countif
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Vẫn được bạn ơi. Thank!
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Vậy bác giúp em làm sao cho nó co độ dài như nhau nhe.
Trân trọng
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Đã có các bạn khác giúp bạn rồi mà.
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Nhưng em muốn tìm hiểu thêm 1 cách làm mới ạ
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Muốn tìm hiểu thì dùng code này thử xem!
Mã:
Public Sub STT()
Dim i As Long, j As Long, k As Long, rng As Range
Set rng = Sheet1.Range("A2:B" & Sheet1.Range("B65500").End(xlUp).Row)
For i = 1 To rng.Rows.Count
j = j + 1
rng(i, 1) = Left(rng(i, 2), 1) & j
If Left(rng(i + 1, 2), 1) <> Left(rng(i, 2), 1) And rng(i + 1, 1) <> "" Then
j = -1
j = j + 1
rng(i + 1, 1) = Left(rng(i + 1, 2), 1) & j
End If
Next i
End Sub
Lần chỉnh sửa cuối:
VetMini
Đang đi tìm hòn đá
- Tham gia
- 21/12/12
- Bài viết
- 17,867
- Được thích
- 24,792
- Nghề nghiệp
- Thầy bói bài ta
Quy thức tạo mã sai tét bét.
Lỡ sau này có thêm công việc chen vào giữa, vd "cạo đầu đỏ" chen vào giữa "cạo chân sú" và "cạo đầu xanh" thì làm mã lại à?
Mã mà cũng có chuyện "mã động" hay sao?
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Code này chỉ cần bấm 1 lần thôi.
Mã:
Public Sub STT()
Dim i As Long, j As Long, k As Long, rng As Range
Set rng = Sheet1.Range("A2:B" & Sheet1.Range("B65500").End(xlUp).Row)
For i = 1 To rng.Rows.Count
If Left(rng(i - 1, 2), 1) = Left(rng(i, 2), 1) Then
j = j + 1
rng(i, 1) = Left(rng(i, 2), 1) & j
ElseIf Left(rng(i - 1, 2), 1) <> Left(rng(i, 2), 1) And rng(i + 1, 2) <> "" Then
j = 0: j = j + 1
rng(i, 1) = Left(rng(i, 2), 1) & j
End If
Next i
End Sub
Lần chỉnh sửa cuối:
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Vì mã này là do nối các chuỗi lại mà thành nên không có công thức nào có thể tô màu lẫn lộn như bạn yêu cầu được đâu.
Phuocam
Thành viên mới
- Tham gia
- 16/5/13
- Bài viết
- 4,811
- Được thích
- 7,873
Bạn xem File đính kèm.
- Tham gia
- 8/6/06
- Bài viết
- 14,817
- Được thích
- 23,302
- Nghề nghiệp
- U80
Mã NV của bạn chứa dư chí ít 3 ký tự "/"
Bạn tham khảo cách mình làm theo UDF trong file
Mình xài 1 ký tự chỉ năm & 1 ký tự chỉ tháng; (Theo cách N chỉ năm 2014; Tháng 9 là "9" & tháng 10 là "A")
Tất nhiên để mã dưới dạng công thức là không ổn trong quá trình vận hành;
Bạn nên Copy & sau đó Paste Values để tiện hơn trong sử dụng
Bạn tham khảo cách mình làm theo UDF trong file
Mình xài 1 ký tự chỉ năm & 1 ký tự chỉ tháng; (Theo cách N chỉ năm 2014; Tháng 9 là "9" & tháng 10 là "A")
Tất nhiên để mã dưới dạng công thức là không ổn trong quá trình vận hành;
Bạn nên Copy & sau đó Paste Values để tiện hơn trong sử dụng
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Nhấn nút tạo mã và xem kết quả đã đúng ý chưa nhé? Nhớ hồi âm lại cho tôi sau khi Test xong.
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Cám ơn chuot0106 nhiều.
Nhưng có cách nào khi mình nhập Tổ, và Ngày nhận thì mã sẽ tự sinh ra không cần phải Click vô nút tạo mã hả anh
Với lại Chuỗi S**** nó là tăng dần điều.
VD: S0001, S0002, S0003, .....S9999
ANh xem lại giúp em
Lần chỉnh sửa cuối:
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Muốn tự động tạo mã thì dùng cái này. Tôi không hiểu tại sao mã đầu tiên thì là 1 chữ S và 4 kí tự số nhưng sang mã thứ 2 thì lại là 2 kí tự chữ và 3 kí tự số mà không phải là 4 kí tự số như ở mã 1. Theo tôi thì nên tạo mã có dạng như sau:
Tức số kí tự số ử 2 đoạn mã đều là 4. Tất nhiên cái này là do bạn thôi.
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Tôi viết code này là dựa theo các dữ liệu có trên File bạn gửi nên và tôi thấy 1 số điều như sau:
+ Các mã của bạn đều gồm 18 kí tự. Không biết điều tôi thấy có luôn đúng hay không?
+ Mã tổ gồm 2 kí tự. Không biết có thay đổi gì không?
Nếu như có thay đổi gì khác bạn phải nói hết ra. Tôi không phải là người cấn nên tôi không thể lường hết các trường hợp được và để tránh mất thời gian cho bạn và cho tôi thì bạn nên nêu thật rõ ràng ra!
+ Các mã của bạn đều gồm 18 kí tự. Không biết điều tôi thấy có luôn đúng hay không?
+ Mã tổ gồm 2 kí tự. Không biết có thay đổi gì không?
Nếu như có thay đổi gì khác bạn phải nói hết ra. Tôi không phải là người cấn nên tôi không thể lường hết các trường hợp được và để tránh mất thời gian cho bạn và cho tôi thì bạn nên nêu thật rõ ràng ra!
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
S= Ký hiệu tến viết tắt của Công ty và 4 số phía sau là số thứ tự lao động nhận thêm trong năm
Mã Tổ và 3 số ngoài sau là số thứ tẹ lao động nhận cho Tổ/năm
Riêng mã tổ thì thực tế hiện tại trong công ty có 1 số Tổ lại nhiều hơn 2 ký tự
Đó là những bộ phận thực tế tại công ty em.
Nhờ Chuot0106 xem giúp em cách đặt mã Bộ phận như vậy có vấn đề gì ko ạ. Nhờ anh giúp em đặt lại mã Bp cho nó thống nhất luôn
Lần chỉnh sửa cuối:
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Bạn Test File tôi mới gửi chưa? Mà bạn gửi cái gì vậy?
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Rồi anh, Em gởi bảng bộ phận tại công ty. Nhờ anh xem cách đạt mã như vậy có vấn đề gi ko? nhờ anh đặt mã BP lại dùm e,
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Giữa File này với File bạn đưa nên diễn đàn chẳng thấy mối liên quan gì cả? Công việc của tôi chưa bao giờ phải đặt mã phức tạp như bạn cả. Tuy nhiên khi nói đến mã là phải duy nhất thế thôi. Bạn cứ đặt sao cho bạn cảm thấy hợp lí là được. Tôi ví dụ công ty bạn có 1000 công nhân chẳng hạn thì mã sẽ là: CN0001, CN0002, ...,CN0023,CN0024,..., CN0999, CN1000. Tức vùng kí tự chữ số sẽ có số lượng chữ số(4 chữ số) đúng bằng số chữ số của số lớn nhất(1000).
Theo tôi bây giờ bạn ngồi suy nghĩ cách đặt mã và khi nào bạn cảm thấy thật hợp lí thì bạn mới hỏi lên GPE. Tôi thấy tôi giúp bạn từ hôm qua tới tận hôm nay mất rất nhiều thời gian rồi mà giờ vẫn chưa đâu với đâu cả. Bản thân bạn cũng rất 3 phải cho nên...nản quá!
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Mã S và 4 số phía sau chưa ổn hả gì đó anh, số TT nhảy chưa đúng anh ơi
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Bạn viết tôi chả hiểu gì cả?(Chỗ màu đỏ), nhảy chưa đúng là sao? Nó nhảy thế nào?(Chỗ màu xanh)
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Em goi lại file anh xem dùm em
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Số thứ thự đi kèm với S hôm trước của bạn đâu có như vậy? Bạn xem lại ở File bạn đưa nên hôm trước xem hay tôi nhìn nhầm.
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
chắc file truoc em làm sai đó anh.
Anh chỉnh lại giúp em nhé
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Tôi hộ bạn lần cuối cùng với cách lập mã như sau, bạn xem nếu đồng ý thì tôi giúp tiếp còn không thì đưa ý kiến luôn! Tôi bắt đầu ngán lắm rồi!
+ Đi cùng với S sẽ tăng dần, ví dụ: S0001(đằng sau là 4 kí tự số) hay S00001(Cái này phụ thuộc số lương nhiều hay ít?)
+ Đi cùng với mã tổ cũng sẽ có dạng như đi cùng với S, ví dụ: PC0001(đằng sau là 4 kí tự số) hoặc PC00001
Bạn thấy sao????
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Không phải vậy anh
Mã số TT (S0001) là số Công nhân nhận vào Công ty trong 1 năm
Mã Tổ là Số Công nhân nhận vào Tổ đó trong 1 năm, chứ nó ko tăng theo Số Thứ tự S0001 thi mã Tổ phải là PC001
VD:
Nếu nhận người 1 ngời vào Tổ PC thì có mã số TT là S0002 và mã Tổ là PC001, vài hôm sau nhận 1 người khác vào tổ TK thì mã số TT là S0002 mã Tổ là TK001.
Tiếp tuc mấy ngày sau nưa nhận thêm 1 người nữa vào Tổ PC thì mã số TT là S0003 và mã số Tổ sẽ là PC002
Lần chỉnh sửa cuối:
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Tôi nghĩ chỗ đỏ đỏ phải là S0001 chứ???
Xem File đã đúng ý chưa nhé Test với số lượng lớn vào(Tối đa bằng số CN có thể) sau đó hồi âm cho tôi. Tôi chưa Test thử nên không biết thế nào. Có gì liên hệ với tôi theo số này nhé: 0996.202.666(Thành)
Lần chỉnh sửa cuối:
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Em làm phiền tí nữa nhe anh
Có cách nào khi mình nhập thêm 1 dòng mới ( Tổ và ngày nhận hồ sơ) thì code không duyệt chay lại những dòng phí trên, mà chỉ tao ra 1 mã hồ sơ tường ứng ở bên cột B. ngay dòng hiẹn tại mới vừa nhập
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Tôi chán với các yêu cầu cứ thay dổi xoành xoạch của bạn rồi. Lúc đầu tạo nút bấm sau đó bạn muốn tự động "Ừ thì tự động" Giờ thì lại ...Thôi chờ người khác dễ tính giúp bạn vậy. Tôi chịu rồi!
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Cảm ơn anh rất nhiều. Trân trọng!
nnd1988
Thành viên chính thức
- Tham gia
- 10/3/14
- Bài viết
- 68
- Được thích
- 15
- Nghề nghiệp
- Nhân viên Văn Phòng
Bạn lên nói rõ yêu cầu ra. Đọc Topic thấy câu hỏi của bạn lắt nhắt quá!
Lần chỉnh sửa cuối:
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Code này tôi dùng mảng nên tốc độ cải thiện rất nhiều. Tôi nghĩ bạn thay đổi lựa chọn của mình liên tục cũng do vấn đề tốc độ cả thôi có đúng không???
Code này tôi tách phần tô màu riêng ra. Sau khi tạo mã xong thì nhấn nút "TÔ MÀU" nhé! Nếu gộp chung vào cũng được nhưng như thế code sẽ chậm hơn 1 chút. Bạn muốn gộp chung cũng được(Tùy bạn). Theo tôi nên để riêng ra!
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Đúng là Code nhanh hơn rất nhiều. Cám ơn anh rất nhiều. Chúc anh vui vẻ, gặp nhièu may mắn trong cuộc sống. Trân trọng
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Nhiều lúc căng thẳng quá (vì suy nghĩ về việc của bạn)nên có những lời hơi gay gắt với bạn. Có gì mong bạn bỏ qua. Bạn Test thử code đi, nhập số liệu với các mã khoảng 9999 mã xem tốc độ có còn nhanh không? Tôi ngại Test vì ngại phải bịa mã lắm! Có gì hồi âm lại cho tôi!
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Không có gì đâu anh.
Em có 1 vấn đề này không biết hỏi tại đây có đúng ko. Có gi anh bỏ qua nhe
Hiện tại có 1 số người lại xin việc, nhưng trên CMND của họ lại ghi chỉ có năm (không có ngày tháng), 1 số người khác thì lại có đầy đủ ngày tháng.
Nếu năm không thì em chỉ nhập là 4 số . Ví dụ: 1985 -> Kiểu số
Nếu có đầy đủ ngày tháng thì sẽ nhập theo dang dd/mm/yyyy. VD 11/12/1985
Rất là tốn thời gian cho việc đinh dạng vừa kiểu số, vừa kiểu dd/mm/yyyy trên cùng 1 côt.
Không biết có cách nào để mình tạo ra 1 macro cho đinh dang tự động:
VD: Nếu mình nhập 1985 thì sẽ hiện thị thành 1985
Nếu nhập 11121985 thì sẽ hiện thị thành 11/12/1985
Lần chỉnh sửa cuối:
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Nếu nhập trên Form thì bạn làm như sau:
Mã:
[FONT=Verdana]Private Sub comantbutton()[/FONT]
[FONT=Verdana]With Sheet1[/FONT]
[FONT=Verdana].................[/FONT]
[FONT=Verdana]If Len(ngaysinh) = 4 Then[/FONT]
[FONT=Verdana].Cells(i, 1) = Val(ngaysinh)[/FONT]
[FONT=Verdana]Else[/FONT]
[FONT=Verdana].Cells(i, 1) = Format(ngaysinh, "mm/dd/yyyy")[/FONT]
[FONT=Verdana]End If[/FONT]
[FONT=Verdana]End Sub[/FONT]
Lần chỉnh sửa cuối:
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Hiện em cũng đang làm 1 From để nhập liệu, để em test thử. Cám ơn anh
- Tham gia
- 8/6/06
- Bài viết
- 14,817
- Được thích
- 23,302
- Nghề nghiệp
- U80
Bạn không thể dùng 2 kiểu dữ liệu cho 1 trường được.
Có khi đây là điều tối kị khi vận hành 1 CSDL nữa là đằng khác.
Cách duy nhất mà tôi đã làm là thêm ngày, tháng hay năm cho những nhân vật này, để trong cột [NgaySinh] luôn là MM/dd/yyyy (Sau đó định dạng toàn bộ cột này DD/mm/yyyy cho dễ nhìn.)
Còn ai chỉ cho bạn cách khác để thực hiện í đồ của bạn chưa fải là tốt lắm đâu. Nếu không muốn nói là "Chưa thấy quan tài chưa đỗ lệ"
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Chào anh
Cho em hỏi này em muốn nhập liệu từ form. Thì code của anh sẽ áp dụng như thế nào
VD" em có 2 textbox ( Mã số hồ sơ và Ngày) và 1 Combobox Bộ phận thì sẽ áp dung như thế náo để khi nhập
Bộ phận và Ngày thì Textbox Mã số hồ sơ sẽ tạo ra mã và ghi vào sheet.
Trân trọng
- Tham gia
- 8/6/06
- Bài viết
- 14,817
- Được thích
- 23,302
- Nghề nghiệp
- U80
Tôi xin nhắc lại lần cuối, Nước ta 'Chủ nghĩa lí lịch' vẫn rất nặng nề;
Nếu bạn & người LĐ nào đó đang thiếu ngày hay tháng sinh mà không chấp nhận thêm cho đủ ngày sinh có dạng Đ/MM/yyyy thì nên từ chối nhận vô CQ bạn;
Bạn hãy từ bỏ cách khác để cùng NLĐ lách, hay bỏ qua chuyện này;
Sau này còn chuyện sổ BHXH hay những giấy tờ khác mà giờ bạn làm vậy, sau này NLĐ gánh hậu quả bạn có đan tâm?
Cũng lưu í mọi thành viên khác: "Cố tình giúp cách nào đó để 'lách' chuyện này cũng là không tốt lắm đâu!"
Nếu bạn & người LĐ nào đó đang thiếu ngày hay tháng sinh mà không chấp nhận thêm cho đủ ngày sinh có dạng Đ/MM/yyyy thì nên từ chối nhận vô CQ bạn;
Bạn hãy từ bỏ cách khác để cùng NLĐ lách, hay bỏ qua chuyện này;
Sau này còn chuyện sổ BHXH hay những giấy tờ khác mà giờ bạn làm vậy, sau này NLĐ gánh hậu quả bạn có đan tâm?
Cũng lưu í mọi thành viên khác: "Cố tình giúp cách nào đó để 'lách' chuyện này cũng là không tốt lắm đâu!"
Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 866
- Được thích
- 127
- Giới tính
- Nam
Bác hiểu sai ý em rồi, em nhờ đưa code tao mà vô form thôi, chứ có nói gì tới ngày tháng năm sinh ở bài #51 đầu
