TẠO CODE VBA CHẠY HIỂN THỊ CÁC CHỮ CÁI NGẪU NHIÊN KHÔNG TRÙNG TRONG CÁC TRƯỜNG HỢP (4 người xem)

duong22000 · 17/4/21

Em có một trường hợp lấy một danh sách tương ứng với các các chữ cái A, B, C, D, … trong các trường hợp (9 trường hợp) hiển thị
Yêu cầu: Các chữ cái A, B, C, D, ... xuất hiện không trùng nhau theo hàng dọc và không trùng nhau ở hàng ngang trong 9 trường hợp trên
Em có gửi file mẫu ví dụ để các bác trên GPE giúp đỡ viết đoạn code VBA chạy thực hiện yêu cầu trên. Em xin cảm ơn GPE!

Nhattanktnn · 17/4/21

duong22000 đã viết:
Em có một trường hợp lấy một danh sách tương ứng với các các chữ cái A, B, C, D, … trong các trường hợp (9 trường hợp) hiển thị
Yêu cầu: Các chữ cái A, B, C, D, ... xuất hiện không trùng nhau theo hàng dọc và không trùng nhau ở hàng ngang trong 9 trường hợp trên
Em có gửi file mẫu ví dụ để các bác trên GPE giúp đỡ viết đoạn code VBA chạy thực hiện yêu cầu trên. Em xin cảm ơn GPE!

Tức là ban có danh sách chữ cái không trùng nhau ở cột M, rồi từ cái danh sách đó lập ra danh sách ngẫu nhiên theo 9 trường hợp mà giá trị trong các cột và các hàng tương ứng không trùng hả

duong22000 · 17/4/21

Nhattanktnn đã viết:
Tức là ban có danh sách chữ cái không trùng nhau ở cột M, rồi từ cái danh sách đó lập ra danh sách ngẫu nhiên theo 9 trường hợp mà giá trị trong các cột và các hàng tương ứng không trùng hả

Mình cảm ơn bạn đã quan tâm.
Việc lấy nguồn chữ cái ở cột M hay ở đâu cũng dk. Miễn là khi chạy code thì các chữ cái đó được sắp xếp vào 9 trường hợp không trùng trong 1 cột và không trùng trong 1 hàng

SA_DQ · 17/4/21

Vầy được không vậy, chủ bài đăng:

STT	Họ và tên	TH 01	TH 02	TH 03	TH 04	TH 05	TH 06	TH 07	TH 08	TH 09	Ghi chú
1	Hoàng Ninh Linh	1	26	25	24	23	22	21	20	19		A
2	Lê Ngọc Khánh Linh	2	1	26	25							B
3	Nguyễn Phước Lộc	3	2	1	26							C
4	Đặng Thị Thu Mai	4	3	2	1							D
5	Nguyễn Nhật Mai	5	4	3								E
6	Đoàn Ngọc Minh	6	5	4								F
7	Lê Tuấn Minh	7	6	5								G
8	Nguyễn Thị Ngọc Minh	8	7	6								H
9	Nguyễn Trần Nhật Nam	9	8	7								I
10	Phạm Lê Ngọc Nhi	10	9	8								J
11	Nguyễn Trung Thành Phát	11	10	9								K
12	Phạm Gia Phát	12	11	10								L
13	Vũ Mai Phương	13	12	11								M
14	Vũ Nguyễn Hà Phương	14	13	12								N
15	Bùi Ngọc Quang	15	14	13								O
16	Trần Minh Quang	16	15	14								P
17	Lê Mạnh Quân	17	16	15								Q
18	Trần Lê Hồng Sơn	18	17	16								R
19	Trần Đỗ Minh Tâm	19	18	17								S
20	Trần Thanh Tâm	20	19	18								T
21	Vũ Huy Thành	21	20	19								U
22	Lê Nguyễn Hiếu Thảo	22	21	20								V
23	Bùi Nhật Thiên	23	22	21								W
24	Nguyễn Thủy Tiên	24	23	22								X
25	Hà Lê Minh Trang	25	24	23								Y

duong22000 · 17/4/21

SA_DQ đã viết:
Vầy được không vậy, chủ bài đăng:

STT Họ và tên TH 01 TH 02 TH 03 TH 04 TH 05 TH 06 TH 07 TH 08 TH 09 Ghi chú
1 Hoàng Ninh Linh 1 26 25 24 23 22 21 20 19
A
2 Lê Ngọc Khánh Linh 2 1 26 25
B
3 Nguyễn Phước Lộc 3 2 1 26
C
4 Đặng Thị Thu Mai 4 3 2 1
D
5 Nguyễn Nhật Mai 5 4 3
E
6 Đoàn Ngọc Minh 6 5 4
F
7 Lê Tuấn Minh 7 6 5
G
8 Nguyễn Thị Ngọc Minh 8 7 6
H
9 Nguyễn Trần Nhật Nam 9 8 7
I
10 Phạm Lê Ngọc Nhi 10 9 8
J
11 Nguyễn Trung Thành Phát 11 10 9
K
12 Phạm Gia Phát 12 11 10
L
13 Vũ Mai Phương 13 12 11
M
14 Vũ Nguyễn Hà Phương 14 13 12
N
15 Bùi Ngọc Quang 15 14 13
O
16 Trần Minh Quang 16 15 14
P
17 Lê Mạnh Quân 17 16 15
Q
18 Trần Lê Hồng Sơn 18 17 16
R
19 Trần Đỗ Minh Tâm 19 18 17
S
20 Trần Thanh Tâm 20 19 18
T
21 Vũ Huy Thành 21 20 19
U
22 Lê Nguyễn Hiếu Thảo 22 21 20
V
23 Bùi Nhật Thiên 23 22 21
W
24 Nguyễn Thủy Tiên 24 23 22
X
25 Hà Lê Minh Trang 25 24 23
Y

cảm ơn bác!
Hình như bác định làm là cho số ngẫu nhiên từ 1 đến 26 ở mỗi cột (nhưng không được trùng ở hàng ngang) sau đó dùng hàm Vlookup để dò tìm chữ cái tương ứng (số lấy ở cột A, dò tìm tương ứng chữ cái ở cột M để điền vào bảng)
Và ta phải làm thêm 1 bảng phụ nữa sau đó cho hiển thị ở bảng khác, có đúng không bác?

Nhattanktnn · 17/4/21

duong22000 đã viết:
cảm ơn bác!
Hình như bác định làm là cho số ngẫu nhiên từ 1 đến 26 ở mỗi cột (nhưng không được trùng ở hàng ngang) sau đó dùng hàm Vlookup để dò tìm chữ cái tương ứng (số lấy ở cột A, dò tìm tương ứng chữ cái ở cột M để điền vào bảng)
Và ta phải làm thêm 1 bảng phụ nữa sau đó cho hiển thị ở bảng khác, có đúng không bác?

C5 gõ công thức, kéo hết bảng:

Mã:

=CHAR(MOD(ROW(A1)+COLUMN()-4,26)+65)

SA_DQ · 17/4/21

Macro của bạn tham khảo dây:

PHP:

Sub GanKiTuNgau()
Const Alf As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim J As Integer, W As Long
Dim StrC As String
Dim Cls As Range
For J = 1 To 10
    StrC = StrC & Alf
Next J
Randomize:                          J = 9 + 13 * Rnd() \ 1
StrC = Mid(StrC, J, Len(StrC)) & Left(StrC, J - 1)
For Each Cls In Range("D2:L26")
    W = W + 1
    Cls.Value = Mid(StrC, W, 1)
Next Cls
End Sub

Thí dụ 1 kết quả qua lần chạy nào đó như sau:

STT

Mã

Họ và tên

TH 01

TH 02

TH 03

TH 04

TH 05

TH 06

TH 07

TH 08

TH 09

GC

1

BNQ00

Bùi Ngọc Quang

E

F

G

H

I

J

K

L

M

2

BNT00

Bùi Nhật Thiên

N

O

P

Q

R

S

T

U

V

3

FNM00

Đoàn Ngọc Minh

W

X

Y

Z

A

B

C

D

E

4

FTM00

Đặng Thị Thu Mai

F

G

H

I

J

K

L

M

N

5

HMT00

Hà Lê Minh Trang

O

P

Q

R

S

T

U

V

W

6

HNL00

Hoàng Ninh Linh

X

Y

Z

A

B

C

D

E

F

7

LHT00

Lê Nguyễn Hiếu Thảo

G

H

I

J

K

L

M

N

O

8

LKL00

Lê Ngọc Khánh Linh

P

Q

R

S

T

U

V

W

X

9

LMQ00

Lê Mạnh Quân

Y

Z

A

B

C

D

E

F

G

10

LTM00

Lê Tuấn Minh

H

I

J

K

L

M

N

O

P

11

NNM00

Nguyễn Nhật Mai

Q

R

S

T

U

V

W

X

Y

12

NNM01

Nguyễn Thị Ngọc Minh

Z

A

B

C

D

E

F

G

H

13

NNN00

Nguyễn Trần Nhật Nam

I

J

K

L

M

N

O

P

Q

14

NPL00

Nguyễn Phước Lộc

R

S

T

U

V

W

X

Y

Z

15

NTP00

Nguyễn Trung Thành Phát

A

B

C

D

E

F

G

H

I

16

NTT00

Nguyễn Thủy Tiên

J

K

L

M

N

O

P

Q

R

17

PGP00

Phạm Gia Phát

S

T

U

V

W

X

Y

Z

A

18

PNN00

Phạm Lê Ngọc Nhi

B

C

D

E

F

G

H

I

J

19

THS00

Trần Lê Hồng Sơn

K

L

M

N

O

P

Q

R

S

20

TMQ00

Trần Minh Quang

T

U

V

W

X

Y

Z

A

B

21

TMT00

Trần Đỗ Minh Tâm

C

D

E

F

G

H

I

J

K

22

TTT00

Trần Thanh Tâm

L

M

N

O

P

Q

R

S

T

23

VHP00

Vũ Nguyễn Hà Phương

U

V

W

X

Y

Z

A

B

C

24

VHT00

Vũ Huy Thành

D

E

F

G

H

I

J

K

L

25

VMP00

Vũ Mai Phương

M

N

O

P

Q

R

S

T

U

duong22000 · 17/4/21

SA_DQ đã viết:
Macro của bạn tham khảo dây:

PHP:

Sub GanKiTuNgau() Const Alf As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim J As Integer, W As Long Dim StrC As String Dim Cls As Range For J = 1 To 10 StrC = StrC & Alf Next J Randomize: J = 1 + 13 * Rnd() \ 1 StrC = Mid(StrC, J, Len(StrC)) & Left(StrC, J - 1) For Each Cls In Range("D2:L26") W = W + 1 Cls.Value = Mid(StrC, W, 1) Next Cls End Sub

Thí dụ 1 kết quả qua lần chạy nào đó như sau:

STT Mã Họ và tên TH 01 TH 02 TH 03 TH 04 TH 05 TH 06 TH 07 TH 08 TH 09 GC
1 BNQ00 Bùi Ngọc Quang E F G H I J K L M
2 BNT00 Bùi Nhật Thiên N O P Q R S T U V
3 FNM00 Đoàn Ngọc Minh W X Y Z A B C D E
4 FTM00 Đặng Thị Thu Mai F G H I J K L M N
5 HMT00 Hà Lê Minh Trang O P Q R S T U V W
6 HNL00 Hoàng Ninh Linh X Y Z A B C D E F
7 LHT00 Lê Nguyễn Hiếu Thảo G H I J K L M N O
8 LKL00 Lê Ngọc Khánh Linh P Q R S T U V W X
9 LMQ00 Lê Mạnh Quân Y Z A B C D E F G
10 LTM00 Lê Tuấn Minh H I J K L M N O P
11 NNM00 Nguyễn Nhật Mai Q R S T U V W X Y
12 NNM01 Nguyễn Thị Ngọc Minh Z A B C D E F G H
13 NNN00 Nguyễn Trần Nhật Nam I J K L M N O P Q
14 NPL00 Nguyễn Phước Lộc R S T U V W X Y Z
15 NTP00 Nguyễn Trung Thành Phát A B C D E F G H I
16 NTT00 Nguyễn Thủy Tiên J K L M N O P Q R
17 PGP00 Phạm Gia Phát S T U V W X Y Z A
18 PNN00 Phạm Lê Ngọc Nhi B C D E F G H I J
19 THS00 Trần Lê Hồng Sơn K L M N O P Q R S
20 TMQ00 Trần Minh Quang T U V W X Y Z A B
21 TMT00 Trần Đỗ Minh Tâm C D E F G H I J K
22 TTT00 Trần Thanh Tâm L M N O P Q R S T
23 VHP00 Vũ Nguyễn Hà Phương U V W X Y Z A B C
24 VHT00 Vũ Huy Thành D E F G H I J K L
25 VMP00 Vũ Mai Phương M N O P Q R S T U

Hay quá. Em cảm ơn bác SA_DQ ! Em đã áp dụng được vào file của mình.

VetMini · 17/4/21

Tiêu đề có phạm quy hay không mà bà con mạnh dạn dữ.

SA_DQ · 17/4/21

Chủ bài đăng nên xem lại nội qui lần nữa & tự chỉnh tiêu đề theo qui định đi nha!

HieuCD · 17/4/21

duong22000 đã viết:
Em có một trường hợp lấy một danh sách tương ứng với các các chữ cái A, B, C, D, … trong các trường hợp (9 trường hợp) hiển thị
Yêu cầu: Các chữ cái A, B, C, D, ... xuất hiện không trùng nhau theo hàng dọc và không trùng nhau ở hàng ngang trong 9 trường hợp trên
Em có gửi file mẫu ví dụ để các bác trên GPE giúp đỡ viết đoạn code VBA chạy thực hiện yêu cầu trên. Em xin cảm ơn GPE!

Chạy code lấy các giá trị có số ký tự bất kỳ

Mã:

Sub XYZ()
  Dim sArr(), aRow, aCol, Res(), sRow&, sCol&, i&, j&

  sCol = 9
  With Sheets("DS")
    sArr = .Range("M5", .Range("M" & Rows.Count).End(xlUp)).Value
  End With
  sRow = UBound(sArr)
  If sCol > sRow Then sCol = sRow
  ReDim Res(1 To sRow, 1 To sCol)
  aCol = UniqueRand(sRow)
  aRow = UniqueRand(sRow)
  For i = 1 To sRow
    For j = 1 To sCol
      Res(i, j) = sArr(((aRow(i) + aCol(j)) Mod sRow) + 1, 1)
    Next j
  Next i
  Sheets("DS").Range("C5").Resize(sRow, sCol) = Res
End Sub

Function UniqueRand(ByVal N As Long) As Variant
  Dim Arr&(), i&, RndNum&, tmp&
  ReDim Arr(1 To N)
  Randomize
  For i = 1 To N
    RndNum = Int(N * Rnd() + 1)
    If Arr(RndNum) = 0 Then tmp = RndNum Else tmp = Arr(RndNum)
    If Arr(N) = 0 Then Arr(RndNum) = N Else Arr(RndNum) = Arr(N)
    Arr(N) = tmp
    N = N - 1
  Next i
  UniqueRand = Arr
End Function

duong22000 · 18/4/21

HieuCD đã viết:

Chạy code lấy các giá trị có số ký tự bất kỳ

Mã:

Sub XYZ()
  Dim sArr(), aRow, aCol, Res(), sRow&, sCol&, i&, j&

  sCol = 9
  With Sheets("DS")
    sArr = .Range("M5", .Range("M" & Rows.Count).End(xlUp)).Value
  End With
  sRow = UBound(sArr)
  If sCol > sRow Then sCol = sRow
  ReDim Res(1 To sRow, 1 To sCol)
  aCol = UniqueRand(sRow)
  aRow = UniqueRand(sRow)
  For i = 1 To sRow
    For j = 1 To sCol
      Res(i, j) = sArr(((aRow(i) + aCol(j)) Mod sRow) + 1, 1)
    Next j
  Next i
  Sheets("DS").Range("C5").Resize(sRow, sCol) = Res
End Sub

Function UniqueRand(ByVal N As Long) As Variant
  Dim Arr&(), i&, RndNum&, tmp&
  ReDim Arr(1 To N)
  Randomize
  For i = 1 To N
    RndNum = Int(N * Rnd() + 1)
    If Arr(RndNum) = 0 Then tmp = RndNum Else tmp = Arr(RndNum)
    If Arr(N) = 0 Then Arr(RndNum) = N Else Arr(RndNum) = Arr(N)
    Arr(N) = tmp
    N = N - 1
  Next i
  UniqueRand = Arr
End Function

Em đã test thử code của bác. Kết quả cho đúng các chữ cái không trùng nhau ở cột và hàng. Em cảm ơn bác đã quan tâm và giúp đỡ ạ.

duong22000 · 18/4/21

VetMini đã viết:
Tiêu đề có phạm quy hay không mà bà con mạnh dạn dữ.

Sao em không thấy phần sửa tiêu đề bài viết nhỉ

VetMini · 18/4/21

duong22000 đã viết:
Sao em không thấy phần sửa tiêu đề bài viết nhỉ

Bên phải trang có cái này. Click vào dấu 3 chấm.

duong22000 · 19/4/21

VetMini đã viết:
Bên phải trang có cái này. Click vào dấu 3 chấm.

View attachment 257328

Em cũng tìm mãi góc phải mà không có chỗ 3 chấm như hình ảnh

VetMini · 19/4/21

HieuCD đã viết:
Mã:

Function UniqueRand(ByVal N As Long) As Variant ...

Đúng tiếng Anh gọi hành động này là "shuffle" hoặc "reshuffle" (xáo trộn thứ tự, điển hình: xào bài)

Function RndShuffle(n As Long)
' returns an array of randomly shuffled numbers from 1 to n
' note: call a randomize beforehand if you need true random
...
End Function

TẠO CODE VBA CHẠY HIỂN THỊ CÁC CHỮ CÁI NGẪU NHIÊN KHÔNG TRÙNG TRONG CÁC TRƯỜNG HỢP (4 người xem)

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

duong22000

Thành viên thường trực

File đính kèm

Nhattanktnn

Thành viên gắn bó

duong22000

Thành viên thường trực

SA_DQ

/(hông là gì!

duong22000

Thành viên thường trực

Nhattanktnn

Thành viên gắn bó

SA_DQ

/(hông là gì!

duong22000

Thành viên thường trực

VetMini

Ăn cùng góc phố

SA_DQ

/(hông là gì!

HieuCD

Chuyên gia GPE

duong22000

Thành viên thường trực

duong22000

Thành viên thường trực

VetMini

Ăn cùng góc phố

duong22000

Thành viên thường trực

VetMini

Ăn cùng góc phố

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian