TẠO CODE VBA CHẠY HIỂN THỊ CÁC CHỮ CÁI NGẪU NHIÊN KHÔNG TRÙNG TRONG CÁC TRƯỜNG HỢP

[duong22000]

Em có một trường hợp lấy một danh sách tương ứng với các các chữ cái A, B, C, D, … trong các trường hợp (9 trường hợp) hiển thị
Yêu cầu: Các chữ cái A, B, C, D, ... xuất hiện không trùng nhau theo hàng dọc và không trùng nhau ở hàng ngang trong 9 trường hợp trên
Em có gửi file mẫu ví dụ để các bác trên GPE giúp đỡ viết đoạn code VBA chạy thực hiện yêu cầu trên. Em xin cảm ơn GPE!

 

[Nhattanktnn]

Em có một trường hợp lấy một danh sách tương ứng với các các chữ cái A, B, C, D, … trong các trường hợp (9 trường hợp) hiển thị
Yêu cầu: Các chữ cái A, B, C, D, ... xuất hiện không trùng nhau theo hàng dọc và không trùng nhau ở hàng ngang trong 9 trường hợp trên
Em có gửi file mẫu ví dụ để các bác trên GPE giúp đỡ viết đoạn code VBA chạy thực hiện yêu cầu trên. Em xin cả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]

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]

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

STT	Họ và tên	TH 01	TH 02	TH 03	TH 04	TH 05	TH 06	TH 07	TH 08	TH 09	Ghi chú
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]

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

STT	Họ và tên	TH 01	TH 02	TH 03	TH 04	TH 05	TH 06	TH 07	TH 08	TH 09	Ghi chú
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​

cảm ơn bác!
Hình như bác định làm là cho số ngẫu nhiên từ 1 đến 26 ở mỗi cột (nhưng không được trùng ở hàng ngang) sau đó dùng hàm Vlookup để dò tìm chữ cái tương ứng (số lấy ở cột A, dò tìm tương ứng chữ cái ở cột M để điền vào bảng)
Và ta phải làm thêm 1 bảng phụ nữa sau đó cho hiển thị ở bảng khác, có đúng không bác?

 

[Nhattanktnn]

cảm ơn bác!
Hình như bác định làm là cho số ngẫu nhiên từ 1 đến 26 ở mỗi cột (nhưng không được trùng ở hàng ngang) sau đó dùng hàm Vlookup để dò tìm chữ cái tương ứng (số lấy ở cột A, dò tìm tương ứng chữ cái ở cột M để điền vào bảng)
Và ta phải làm thêm 1 bảng phụ nữa sau đó cho hiển thị ở bảng khác, có đúng không bác?

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

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

 

[SA_DQ]

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

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ã

Họ và 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]

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

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ã

Họ và 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 quá. Em cảm ơn bác SA_DQ ! Em đã áp dụng được vào file của mình.

 

[VetMini]

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

 

[SA_DQ]

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]

Em có một trường hợp lấy một danh sách tương ứng với các các chữ cái A, B, C, D, … trong các trường hợp (9 trường hợp) hiển thị
Yêu cầu: Các chữ cái A, B, C, D, ... xuất hiện không trùng nhau theo hàng dọc và không trùng nhau ở hàng ngang trong 9 trường hợp trên
Em có gửi file mẫu ví dụ để các bác trên GPE giúp đỡ viết đoạn code VBA chạy thực hiện yêu cầu trên. Em xin cảm ơn GPE!

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

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]

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

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 đã test thử code của bác. Kết quả cho đúng các chữ cái không trùng nhau ở cột và hàng. Em cảm ơn bác đã quan tâm và giúp đỡ ạ.

 

[duong22000]

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]

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]

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]

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