Vòng lặp do ... until bị treo (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
D

doantrungtuan

Thành viên mới
Tham gia
1/11/19
Bài viết
16
Được thích
0
Nhờ anh/ chị giúp mình dừng code này. Cần thêm lệnh gì và đặt ở đâu?
Chẳng hạn: mỗi khi random thì cho ra giá trị khác chứ không được trùng vs giá trị trước đó. Và nếu không tìm thấy thì thông báo và dừng vòng lặp do ..until
Mình không rành về code lắm, chỉ cố gắng được đến đây.
Anh/ chị có giải pháp nào tốt hơn không? Xin cám ơn nhiều!
 
Lần chỉnh sửa cuối:
doantrungtuan đã viết:
Nhờ anh/ chị giúp mình File này. Khi chạy hay bị treo, Không biết có phải do dữ liệu trùng không? Khi giảm điều kiện KT xuống cũng bị treo (chẳng hạn chỉ kiểm tra ST2=ST4=ST6; ST3=ST5=ST7). Có khi chỉ chạy trên 1 sheet cũng bị treo (cứ chạy đươc 4 hoặc 6 lần là bị treo mặc dù không có trùng dữ liệu với các sheet khác, lúc này end sub đi chạy lại được).
Mình không rành về code lắm, chỉ cố gắng được đến đây.
Anh/ chị có giải pháp nào tốt hơn không? Xin cám ơn nhiều!
Nhấp chuột vào đây để mở rộng...
Mình không xem code nhưng mà nên chuyển dùng vòng lặp không xác định thay bằng cái khác đi.Mình dùng điện thoại bạn có thể copy code lên xem nào.
 
snow25 đã viết:
Mình không xem code nhưng mà nên chuyển dùng vòng lặp không xác định thay bằng cái khác đi.Mình dùng điện thoại bạn có thể copy code lên xem nào.
Nhấp chuột vào đây để mở rộng...
Sub XUATGT()
Application.ScreenUpdating = False

Static i, j, k, cc, lra, lrb, pt As Integer
Static GT As String
Static KT As Boolean

lra = Cells(Rows.Count, 1).End(xlUp).Row
lrb = WorksheetFunction.CountIf(Range("F9:F" & lra), "x")
pt = lra - Cells(6, 3) * 2
Columns("H:BB").Delete
Cells(1, 10) = lra
Cells(1, 11) = lrb
Cells(1, 12) = pt
'xuat giam thi 1 - lan 1

For i = 9 To Cells(6, 3) + 8
Do
GT = WorksheetFunction.Index(Range("B9:B" & lra), Int(Rnd() * ((lrb + 1) - 1) + 1))
KT = GT = Sheet3.Cells(i, 10) Or GT = Sheet3.Cells(i, 11) Or GT = Sheet3.Cells(i, 16) Or GT = Sheet3.Cells(i, 17) _
Or GT = Sheet4.Cells(i, 10) Or GT = Sheet4.Cells(i, 11) Or GT = Sheet4.Cells(i, 16) Or GT = Sheet4.Cells(i, 17) _
Or GT = Sheet5.Cells(i, 10) Or GT = Sheet5.Cells(i, 11) Or GT = Sheet5.Cells(i, 16) Or GT = Sheet5.Cells(i, 17) _
Or GT = Sheet6.Cells(i, 10) Or GT = Sheet6.Cells(i, 11) Or GT = Sheet6.Cells(i, 16) Or GT = Sheet6.Cells(i, 17) _
Or GT = Sheet7.Cells(i, 10) Or GT = Sheet7.Cells(i, 11) Or GT = Sheet7.Cells(i, 16) Or GT = Sheet7.Cells(i, 17) _
Or GT = Sheet8.Cells(i, 10) Or GT = Sheet8.Cells(i, 11) Or GT = Sheet8.Cells(i, 16) Or GT = Sheet8.Cells(i, 17) _
Or GT = Sheet9.Cells(i, 10) Or GT = Sheet9.Cells(i, 11) Or GT = Sheet9.Cells(i, 16) Or GT = Sheet9.Cells(i, 17) _
Or GT = Sheet10.Cells(i, 10) Or GT = Sheet10.Cells(i, 11) Or GT = Sheet10.Cells(i, 16) Or GT = Sheet10.Cells(i, 17) _
Or GT = Sheet11.Cells(i, 10) Or GT = Sheet11.Cells(i, 11) Or GT = Sheet11.Cells(i, 16) Or GT = Sheet11.Cells(i, 17) _
Or GT = Sheet12.Cells(i, 10) Or GT = Sheet12.Cells(i, 11) Or GT = Sheet12.Cells(i, 16) Or GT = Sheet12.Cells(i, 17) _
Or GT = Sheet13.Cells(i, 10) Or GT = Sheet13.Cells(i, 11) Or GT = Sheet13.Cells(i, 16) Or GT = Sheet13.Cells(i, 17) _
Or GT = Sheet14.Cells(i, 10) Or GT = Sheet14.Cells(i, 11) Or GT = Sheet14.Cells(i, 16) Or GT = Sheet14.Cells(i, 17)
k = 0
For j = 9 To Cells(6, 3) + 8
If GT = Cells(j, 10) Then
k = k + 1
End If
Next j
Loop Until k = 0 And KT = False
If k = 0 Then
Cells(i, 10) = GT
End If
Next i
'xuat giam thi 2 - lan 1
For i = 9 To Cells(6, 3) + 8
Do
k = 0
GT = WorksheetFunction.Index(Range("B9:B" & lra), Int(Rnd() * ((lrb + 1) - 1) + 1))
KT = GT = Sheet3.Cells(i, 10) Or GT = Sheet3.Cells(i, 11) Or GT = Sheet3.Cells(i, 16) Or GT = Sheet3.Cells(i, 17) _
Or GT = Sheet4.Cells(i, 10) Or GT = Sheet4.Cells(i, 11) Or GT = Sheet4.Cells(i, 16) Or GT = Sheet4.Cells(i, 17) _
Or GT = Sheet5.Cells(i, 10) Or GT = Sheet5.Cells(i, 11) Or GT = Sheet5.Cells(i, 16) Or GT = Sheet5.Cells(i, 17) _
Or GT = Sheet6.Cells(i, 10) Or GT = Sheet6.Cells(i, 11) Or GT = Sheet6.Cells(i, 16) Or GT = Sheet6.Cells(i, 17) _
Or GT = Sheet7.Cells(i, 10) Or GT = Sheet7.Cells(i, 11) Or GT = Sheet7.Cells(i, 16) Or GT = Sheet7.Cells(i, 17) _
Or GT = Sheet8.Cells(i, 10) Or GT = Sheet8.Cells(i, 11) Or GT = Sheet8.Cells(i, 16) Or GT = Sheet8.Cells(i, 17) _
Or GT = Sheet9.Cells(i, 10) Or GT = Sheet9.Cells(i, 11) Or GT = Sheet9.Cells(i, 16) Or GT = Sheet9.Cells(i, 17) _
Or GT = Sheet10.Cells(i, 10) Or GT = Sheet10.Cells(i, 11) Or GT = Sheet10.Cells(i, 16) Or GT = Sheet10.Cells(i, 17) _
Or GT = Sheet11.Cells(i, 10) Or GT = Sheet11.Cells(i, 11) Or GT = Sheet11.Cells(i, 16) Or GT = Sheet11.Cells(i, 17) _
Or GT = Sheet12.Cells(i, 10) Or GT = Sheet12.Cells(i, 11) Or GT = Sheet12.Cells(i, 16) Or GT = Sheet12.Cells(i, 17) _
Or GT = Sheet13.Cells(i, 10) Or GT = Sheet13.Cells(i, 11) Or GT = Sheet13.Cells(i, 16) Or GT = Sheet13.Cells(i, 17) _
Or GT = Sheet14.Cells(i, 10) Or GT = Sheet14.Cells(i, 11) Or GT = Sheet14.Cells(i, 16) Or GT = Sheet14.Cells(i, 17)

For j = 9 To Cells(6, 3) + 8
If GT = Cells(j, 10) Or GT = Cells(j, 11) Then
k = k + 1
End If
Next j
Loop Until k = 0 And KT = False
If k = 0 Then
Cells(i, 11) = GT
End If
Next i
'xuat giam thi 3 - lan 1
For i = 9 To pt
Do
k = 0
GT = WorksheetFunction.Index(Range("B9:B" & lra), Int(Rnd() * (lra - 7 - 1)) + 1)
For j = 9 To pt + 8
KT = GT = Cells(j, 10) Or GT = Cells(j, 11) Or GT = Cells(j, 12)
If KT = True Then
k = k + 1
End If
Next j
Loop Until k = 0 And KT = False
If k = 0 Then
Cells(i, 12) = GT
End If
Next i
'xuat giam thi 1 - lan 2
For i = 9 To Cells(6, 3) + 8
Do
GT = WorksheetFunction.Index(Range("B9:B" & lra), Int(Rnd() * ((lrb + 1) - 1) + 1))
KT = GT = Sheet3.Cells(i, 10) Or GT = Sheet3.Cells(i, 11) Or GT = Sheet3.Cells(i, 16) Or GT = Sheet3.Cells(i, 17) _
Or GT = Sheet4.Cells(i, 10) Or GT = Sheet4.Cells(i, 11) Or GT = Sheet4.Cells(i, 16) Or GT = Sheet4.Cells(i, 17) _
Or GT = Sheet5.Cells(i, 10) Or GT = Sheet5.Cells(i, 11) Or GT = Sheet5.Cells(i, 16) Or GT = Sheet5.Cells(i, 17) _
Or GT = Sheet6.Cells(i, 10) Or GT = Sheet6.Cells(i, 11) Or GT = Sheet6.Cells(i, 16) Or GT = Sheet6.Cells(i, 17) _
Or GT = Sheet7.Cells(i, 10) Or GT = Sheet7.Cells(i, 11) Or GT = Sheet7.Cells(i, 16) Or GT = Sheet7.Cells(i, 17) _
Or GT = Sheet8.Cells(i, 10) Or GT = Sheet8.Cells(i, 11) Or GT = Sheet8.Cells(i, 16) Or GT = Sheet8.Cells(i, 17) _
Or GT = Sheet9.Cells(i, 10) Or GT = Sheet9.Cells(i, 11) Or GT = Sheet9.Cells(i, 16) Or GT = Sheet9.Cells(i, 17) _
Or GT = Sheet10.Cells(i, 10) Or GT = Sheet10.Cells(i, 11) Or GT = Sheet10.Cells(i, 16) Or GT = Sheet10.Cells(i, 17) _
Or GT = Sheet11.Cells(i, 10) Or GT = Sheet11.Cells(i, 11) Or GT = Sheet11.Cells(i, 16) Or GT = Sheet11.Cells(i, 17) _
Or GT = Sheet12.Cells(i, 10) Or GT = Sheet12.Cells(i, 11) Or GT = Sheet12.Cells(i, 16) Or GT = Sheet12.Cells(i, 17) _
Or GT = Sheet13.Cells(i, 10) Or GT = Sheet13.Cells(i, 11) Or GT = Sheet13.Cells(i, 16) Or GT = Sheet13.Cells(i, 17) _
Or GT = Sheet14.Cells(i, 10) Or GT = Sheet14.Cells(i, 11) Or GT = Sheet14.Cells(i, 16) Or GT = Sheet14.Cells(i, 17)
k = 0
For j = 9 To Cells(6, 3) + 8
If GT = Cells(j, 16) Or GT = Cells(j, 10) Then
k = k + 1
End If
Next j
Loop Until k = 0 And KT = False
If k = 0 Then
Cells(i, 16) = GT
End If
Next i
'xuat giam thi 2 - lan 2
For i = 9 To Cells(6, 3) + 8
Do
k = 0
GT = WorksheetFunction.Index(Range("B9:B" & lra), Int(Rnd() * ((lrb + 1) - 1) + 1))
KT = GT = Sheet3.Cells(i, 10) Or GT = Sheet3.Cells(i, 11) Or GT = Sheet3.Cells(i, 16) Or GT = Sheet3.Cells(i, 17) _
Or GT = Sheet4.Cells(i, 10) Or GT = Sheet4.Cells(i, 11) Or GT = Sheet4.Cells(i, 16) Or GT = Sheet4.Cells(i, 17) _
Or GT = Sheet5.Cells(i, 10) Or GT = Sheet5.Cells(i, 11) Or GT = Sheet5.Cells(i, 16) Or GT = Sheet5.Cells(i, 17) _
Or GT = Sheet6.Cells(i, 10) Or GT = Sheet6.Cells(i, 11) Or GT = Sheet6.Cells(i, 16) Or GT = Sheet6.Cells(i, 17) _
Or GT = Sheet7.Cells(i, 10) Or GT = Sheet7.Cells(i, 11) Or GT = Sheet7.Cells(i, 16) Or GT = Sheet7.Cells(i, 17) _
Or GT = Sheet8.Cells(i, 10) Or GT = Sheet8.Cells(i, 11) Or GT = Sheet8.Cells(i, 16) Or GT = Sheet8.Cells(i, 17) _
Or GT = Sheet9.Cells(i, 10) Or GT = Sheet9.Cells(i, 11) Or GT = Sheet9.Cells(i, 16) Or GT = Sheet9.Cells(i, 17) _
Or GT = Sheet10.Cells(i, 10) Or GT = Sheet10.Cells(i, 11) Or GT = Sheet10.Cells(i, 16) Or GT = Sheet10.Cells(i, 17) _
Or GT = Sheet11.Cells(i, 10) Or GT = Sheet11.Cells(i, 11) Or GT = Sheet11.Cells(i, 16) Or GT = Sheet11.Cells(i, 17) _
Or GT = Sheet12.Cells(i, 10) Or GT = Sheet12.Cells(i, 11) Or GT = Sheet12.Cells(i, 16) Or GT = Sheet12.Cells(i, 17) _
Or GT = Sheet13.Cells(i, 10) Or GT = Sheet13.Cells(i, 11) Or GT = Sheet13.Cells(i, 16) Or GT = Sheet13.Cells(i, 17) _
Or GT = Sheet14.Cells(i, 10) Or GT = Sheet14.Cells(i, 11) Or GT = Sheet14.Cells(i, 16) Or GT = Sheet14.Cells(i, 17)

For j = 9 To Cells(6, 3) + 8
If GT = Cells(j, 16) Or GT = Cells(j, 17) Or GT = Cells(j, 11) Then
k = k + 1
End If
Next j

Loop Until k = 0 And KT = False
If k = 0 Then
Cells(i, 17) = GT
End If
Next i
'xuat giam thi 3 - lan 2
For i = 9 To pt
Do
k = 0
GT = WorksheetFunction.Index(Range("B9:B" & lra), Int(Rnd() * ((lra - 7) - 1) + 1))
For j = 9 To pt + 8
If GT = Cells(j, 16) Or GT = Cells(j, 17) Or GT = Cells(j, 18) Then
k = k + 1
End If
Next j
Loop Until k = 0
If k = 0 Then
Cells(i, 18) = GT
End If
Next i
Call DINHDANG
Application.ScreenUpdating = False

End Sub
 
Nhồm vô câu lệnh này thấy mà kinh dị:
KT = GT = Sheet3.Cells(i, 10) Or GT = Sheet3.Cells(i, 11) Or GT = Sheet3.Cells(i, 16) Or GT = Sheet3.Cells(i, 17) _
Or GT = Sheet4.Cells(i, 10) Or GT = Sheet4.Cells(i, 11) Or GT = Sheet4.Cells(i, 16) Or GT = Sheet4.Cells(i, 17) _
Or GT = Sheet5.Cells(i, 10) Or GT = Sheet5.Cells(i, 11) Or GT = Sheet5.Cells(i, 16) Or GT = Sheet5.Cells(i, 17) _
Or GT = Sheet6.Cells(i, 10) Or GT = Sheet6.Cells(i, 11) Or GT = Sheet6.Cells(i, 16) Or GT = Sheet6.Cells(i, 17) _
Or GT = Sheet7.Cells(i, 10) Or GT = Sheet7.Cells(i, 11) Or GT = Sheet7.Cells(i, 16) Or GT = Sheet7.Cells(i, 17) _
Or GT = Sheet8.Cells(i, 10) Or GT = Sheet8.Cells(i, 11) Or GT = Sheet8.Cells(i, 16) Or GT = Sheet8.Cells(i, 17) _
Or GT = Sheet9.Cells(i, 10) Or GT = Sheet9.Cells(i, 11) Or GT = Sheet9.Cells(i, 16) Or GT = Sheet9.Cells(i, 17) _
Or GT = Sheet10.Cells(i, 10) Or GT = Sheet10.Cells(i, 11) Or GT = Sheet10.Cells(i, 16) Or GT = Sheet10.Cells(i, 17) _
Or GT = Sheet11.Cells(i, 10) Or GT = Sheet11.Cells(i, 11) Or GT = Sheet11.Cells(i, 16) Or GT = Sheet11.Cells(i, 17) _
Or GT = Sheet12.Cells(i, 10) Or GT = Sheet12.Cells(i, 11) Or GT = Sheet12.Cells(i, 16) Or GT = Sheet12.Cells(i, 17) _
Or GT = Sheet13.Cells(i, 10) Or GT = Sheet13.Cells(i, 11) Or GT = Sheet13.Cells(i, 16) Or GT = Sheet13.Cells(i, 17) _
Or GT = Sheet14.Cells(i, 10) Or GT = Sheet14.Cells(i, 11) Or GT = Sheet14.Cells(i, 16) Or GT = Sheet14.Cells(i, 17)

Mà nó có tác dụng gì vậy bạn chủ bài đăng?
 
Giá trị GT là lấy tên ngẫu nhiên trong danh sách cho trước. Rồi đem KT (=GT) đem so sánh với với các giá trị ở ô trong sheet khác cùng dòng. Chỉ cần phát hiện trùng với bất kì 1 dòng nào trong các cột đó thì lặp lại tìm giá trị GT khác.
Mình nghĩ nó bị trùng và không thoát được vòng lặp. ( cái này chắc chịu thua)
Nhưng có khi chỉ chạy trên 1 sheet và các sheet khác không có dữ liệu để so sánh. Mà cũng bị treo khi chạy đảo GT. Mà nó treo ở lần thứ 4 thì lần sau chạy lại cũng là lần thứ 4 lại treo
 
Bạn thử sửa lại đoạn này:

Static thành Dim

Dim i, j, k, cc, lra, lrb, pt As Integer
Dim GT As String
Dim KT As Boolean
 
Để kiểm tra vòng lặp bị treo bạn có thể khai báo 1 biến đếm, biến này tăng 1 ở ngay đầu vòng lặp. Đặt con trỏ ở lệnh nằm dưới lệnh Loop rồi bấm F9 để đặt breakpoint ở đó. Trong cửa sổ watch, bạn thêm giá trị cần theo dõi là biến đếm ở trên, chọn Break khi biến này đạt giá trị nào đó (1 triệu chẳng hạn). Khi vòng lặp chạy quá nhiều thì code sẽ dừng.
 
Hau151978 đã viết:
Để kiểm tra vòng lặp bị treo bạn có thể khai báo 1 biến đếm, biến này tăng 1 ở ngay đầu vòng lặp. Đặt con trỏ ở lệnh nằm dưới lệnh Loop rồi bấm F9 để đặt breakpoint ở đó. Trong cửa sổ watch, bạn thêm giá trị cần theo dõi là biến đếm ở trên, chọn Break khi biến này đạt giá trị nào đó (1 triệu chẳng hạn). Khi vòng lặp chạy quá nhiều thì code sẽ dừng.
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn mình sẽ thử
 
doantrungtuan đã viết:
Nhờ anh/ chị giúp mình File này. Khi chạy hay bị treo, Không biết có phải do dữ liệu trùng không? Khi giảm điều kiện KT xuống cũng bị treo (chẳng hạn chỉ kiểm tra ST2=ST4=ST6; ST3=ST5=ST7). Có khi chỉ chạy trên 1 sheet cũng bị treo (cứ chạy đươc 4 hoặc 6 lần là bị treo mặc dù không có trùng dữ liệu với các sheet khác, lúc này end sub đi chạy lại được).
Mình không rành về code lắm, chỉ cố gắng được đến đây.
Anh/ chị có giải pháp nào tốt hơn không? Xin cám ơn nhiều!
Nhấp chuột vào đây để mở rộng...
Phân công coi thi không trùng dể bị chạy mãi không dừng, nếu dừng ngang thì không ra được kết quả
Mô tả dữ liệu ban đầu, yêu cầu xử lý kết quả để các bạn trên diễn đàn viết lại toàn bộ sẽ nhanh hơn sửa code
 
HieuCD đã viết:
Phân công coi thi không trùng dể bị chạy mãi không dừng, nếu dừng ngang thì không ra được kết quả
Mô tả dữ liệu ban đầu, yêu cầu xử lý kết quả để các bạn trên diễn đàn viết lại toàn bộ sẽ nhanh hơn sửa code
Nhấp chuột vào đây để mở rộng...
Em nhìn cái code dài lê thê.Bạn này chắc cũng chịu khó viết code.Để đọc hiểu cái code này chắc viết cái code mới có vẻ nhanh hơn anh à.
 
batman1 đã viết:
Đập đi xây mới thôi.
Nhấp chuột vào đây để mở rộng...
Anh / xem file excel dùm. Nếu cần viết code lại thì sẽ viết như thế nào?
Yêu cầu:
1. Giữ nguyên sheet "PhanCong" và sheet "DanhSach"
2. Lọc và phân ra các sheet ST2 ST3 .... dựa trên sheet DANHSACH và mục chấm chung trong sheet PHANCONG
3. Danh sách giám thị không được trùng nhau giữa các sheet st2 ct2 st3 ct3 ....
 
doantrungtuan đã viết:
Anh / xem file excel dùm. Nếu cần viết code lại thì sẽ viết như thế nào?
Yêu cầu:
1. Giữ nguyên sheet "PhanCong" và sheet "DanhSach"
2. Lọc và phân ra các sheet ST2 ST3 .... dựa trên sheet DANHSACH và mục chấm chung trong sheet PHANCONG
3. Danh sách giám thị không được trùng nhau giữa các sheet st2 ct2 st3 ct3 ....
Nhấp chuột vào đây để mở rộng...
Bạn nhờ thì cứ nhờ mọi người. Gọi tên tôi nhưng chắc gì tôi có hứng, có thời gian. Mà quan trọng là chưa chắc tôi biết làm.
 
Đại khái thì mấu chốt code này có một cái trị Rnd().
Mà ở đây dùng Rnd() lại không có Randomize cho nên chỉ là giả random. Cho nên mỗi lần mở lên chạy sẽ ra in hệt nhau. Mỗi lần chạy có khác nhau không thì tuy theo có đóng Project chưa.

Còn lại thì bố tôi cũng chẳng biết. Code không có chú thích thì ai biết do thuật toán sai hay code đi sai thuật toán.

Gợi ý: So sánh 1 giá trị nhiều lần thì có hai cách
1. dùng hàm Array nhét đám cần so sánh vào một mảng rồi dùng hàm Match mà dò.
2. dùng Select Case.
 
Lần chỉnh sửa cuối:
VetMini đã viết:
Đại khái thì mấu chốt code này có một cái trị Rnd().
Mà ở đây dùng Rnd() lại không có Randomize cho nên chỉ là giả random. Cho nên mỗi lần mở lên chạy sẽ ra in hệt nhau. Mỗi lần chạy có khác nhau không thì tuy theo có đóng Project chưa.
Nhấp chuột vào đây để mở rộng...
Phải rồi đó bạn. Mặc dù không có dữ liệu trùng. Nhưng cứ treo thì mở sub lại vẫn treo. Khắc phục như thế nào vậy bạn
 
Chào bạn mình ko biết code gi đau,nhưng nếu bạn có hoặc code chuong trinh phan cong giam thi canh thi hoc kỳ thì cho mình xin nhé , cảm ơn bạn
 
khoa186 đã viết:
Chào bạn mình ko biết code gi đau,nhưng nếu bạn có hoặc code chuong trinh phan cong giam thi canh thi hoc kỳ thì cho mình xin nhé , cảm ơn bạn
Nhấp chuột vào đây để mở rộng...
Mình không biết yêu cầu khi phân công của bạn như thế nào? Bạn tìm trên mạng có phần mềm PCGT 1.6 của tác giả Hoàng cường xem có giúp được gì không.
Còn fle của mình theo điều kiện tổ và có gv chấm chung
 
VetMini đã viết:
Mà ở đây dùng Rnd() lại không có Randomize cho nên chỉ là giả random
Nhấp chuột vào đây để mở rộng...
Cháu đọc trên goolge thấy bảo là hàm rnd nếu đưa tham số nhận giá trị âm vào thì nó có chức năng giống hàm randomize, mà đến khi chạy thử để test thì nó lại khác nhau, thế là sao hả bác?, có khi nào không cần dùng hàm randomize mà vẫn ngẫu nhiên thật sự không ạ.
 
HeSanbi đã viết:
Dim i, j, k, cc, lra, lrb, pt As Integer
Nhấp chuột vào đây để mở rộng...
Rất nhiều người thường hay mắc lỗi nhỏ nhưng kết quả lỗi không hề nhỏ về khai báo biến như thế này. Các biến trên khi đọc vào ta nghĩ nó là kiểu Integer, nhưng thực chất chỉ có biến pt mới là kiểu Integer, các biến còn lại là Variant.

1575967922694.png
 
truongvu317 đã viết:
Cháu đọc trên goolge thấy bảo là hàm rnd nếu đưa tham số nhận giá trị âm vào thì nó có chức năng giống hàm randomize, mà đến khi chạy thử để test thì nó lại khác nhau, thế là sao hả bác?, có khi nào không cần dùng hàm randomize mà vẫn ngẫu nhiên thật sự không ạ.
Nhấp chuột vào đây để mở rộng...
Tôi nhớ không lầm thì giá trị âm dùng để đặt hạt giống cho hàm.
a = Rnd(-2)
b = Rnd(-3)
c = Rnd(-2)
===> a = c, và a <> b

Vào cửa sổ immediate gõ cái này
? Rnd(-1) = Rnd(-1); Rnd(1) = Rnd(1)
Kết quả
True False
 
VetMini đã viết:
Tôi nhớ không lầm thì giá trị âm dùng để đặt hạt giống cho hàm.
a = Rnd(-2)
b = Rnd(-3)
c = Rnd(-2)
===> a = c, và a <> b

Vào cửa sổ immediate gõ cái này
? Rnd(-1) = Rnd(-1); Rnd(1) = Rnd(1)
Kết quả
True False
Nhấp chuột vào đây để mở rộng...
Đúng như bác nói luôn.

Mã: 
    Debug.Print Rnd(-10)
    Debug.Print Rnd()
    Debug.Print Rnd()
    Debug.Print Rnd()
    Debug.Print Rnd()


Code trên chạy 10 lần thì đề cho kết quả giống nhau.

Mã: 
 0.3276443
 0.9140207
 0.5095669
 0.8464025
 0.9029734

Mã: 
    Randomize -10
    Debug.Print Rnd()
    Debug.Print Rnd()
    Debug.Print Rnd()
    Debug.Print Rnd()
    Debug.Print Rnd()

code này thì nó chạy chằng lần nào giống lần nào, có cái gì đó sai sai hay sao ý ạ.
Bài đã được tự động gộp:

Hai Lúa Miền Tây đã viết:
Rất nhiều người thường hay mắc lỗi nhỏ nhưng kết quả lỗi không hề nhỏ về khai báo biến như thế này. Các biến trên khi đọc vào ta nghĩ nó là kiểu Integer, nhưng thực chất chỉ có biến pt mới là kiểu Integer, các biến còn lại là Variant.

View attachment 229751
Nhấp chuột vào đây để mở rộng...
Cái này sách viết rõ lém rồi, cơ mà vẫn sai, tóm lại đẳng cấp của chúng ta không thể hiện qua việc viết tắt. Dùng cái đầu đậu hũ để quan tâm những chuyện trăng sao thì hay hơn, chứ nhớ mấy cái viết tắt này mệt lemsmmmmmmmmmmm.
 
truongvu317 đã viết:
...
Mã: 
    Randomize -10
    Debug.Print Rnd()
    Debug.Print Rnd()
    Debug.Print Rnd()
    Debug.Print Rnd()
    Debug.Print Rnd()

code này thì nó chạy chằng lần nào giống lần nào, có cái gì đó sai sai hay sao ý ạ.
Nhấp chuột vào đây để mở rộng...
.
Copied từ sách vở:
Dòng thứ ba trong Rules có nói rõ là không dùng được.
Và trong Tips and Gotchas dặn rằng nếu muốn thì gọi một Rnd(số âm) đặt trước lệnh Randomize [số]


1576049362155.png
 
Chưa gì chủ thớt đã xóa file khỏi bài viết, nên không biết trợ giúp bằng cách nào.

Buồn buồn nên rút gọn Code lại 1 chút xíu:

---------------
PHP: 
Sub XUATGT()
  Application.ScreenUpdating = False
  Dim i&, j&, k&, cc&, lra&, lrb&, pt&
  Dim C&, M&, N&
  Dim GT As String, KT As Boolean
  lra = Cells(Rows.Count, 1).End(xlUp).Row
  lrb = WorksheetFunction.CountIf(Range("F9:F" & lra), "x")
  pt = lra - Cells(6, 3).Value2 * 2
  Columns("H:BB").Delete
  Cells(1, 10).Value = lra: Cells(1, 11).Value = lrb: Cells(1, 12).Value = pt
Matrix1: C = 10: GoSub Matrix
Matrix2: C = 11: GoSub Matrix
GoSub Check
Matrix3: C = 16: GoSub Matrix
Matrix4: C = 17: GoSub Matrix
GoSub Check
  'Call DINHDANG
  Application.ScreenUpdating = False
Exit Sub

Matrix:
  For i = 9 To Cells(6, 3) + 8
    Do
      GT = Range("B9")(Int(Rnd() * ((lrb + 1) - 1) + 1), 1).Value2
      KT = False
      For M = 3 To 14
        For N = 10 To 11
          KT = (GT = ThisWorkbook.Worksheets(M).Cells(i, N).Value2) _
          Or (GT = ThisWorkbook.Worksheets(M).Cells(i, N + 6).Value2)
          If KT Then Exit For
        Next N
        If KT Then Exit For
      Next M
      k = 0
      For j = 9 To Cells(6, 3) + 8
        If (C = 10 And GT = Cells(j, C)) _
        Or (C = 11 And (GT = Cells(j, 10).Value2 Or GT = Cells(j, 11).Value2)) _
        Or (C = 16 And (GT = Cells(j, 10).Value2 Or GT = Cells(j, 16).Value2)) _
        Or (C = 17 And GT = Cells(j, 16).Value2 Or GT = Cells(j, 17).Value2 Or GT = Cells(j, 11).Value2) _
        Then k = k + 1
      Next j
    Loop Until k = 0 And KT = False
    If k = 0 Then Cells(i, C).Value = GT
  Next i
Return
Check:
  For i = 9 To pt
    Do
      k = 0
      GT = Range("B9")(Int(Rnd() * (lra - 7 - 1)) + 1, 1).Value2
      For j = 9 To pt + 8
        KT = GT = Cells(j, C - 1).Value2 Or GT = Cells(j, C).Value2 Or GT = Cells(j, C + 1).Value2
        If KT = True Then k = k + 1
      Next j
    Loop Until k = 0 And KT = False
    If k = 0 Then Cells(i, C + 1).Value = GT
  Next i
Return
End Sub
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

T
  • Question Question
Code VBA tra cứu kết quả trả về mảng dữ liệu
    • Cười
Trả lời
10
Đọc
208
HUONGHCKT
H
S
Xin hỏi các pro. Em muốn copy các dữ liệu ô họ tên đã bị gộp từ B9 đến E9. Em muốn pass sang ô B9 (sheet mới).
Trả lời
0
Đọc
15
samthai8017
S
T
  • Question Question
Xin giúp em mã lệnh tổng hợp tự động lên bảng tổng hợp!
Trả lời
1
Đọc
24
Hoàng Tuấn 868
H
T
Nhờ anh chị tìm giúp nguyên nhân không nhảy dữ liệu Pivotable
Trả lời
0
Đọc
25
thuhacoicoi
T
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính (1 người xem)
    • Thích
Trả lời
4
Đọc
880
nguyendang95
N
Gà Công Nghệ
Nhờ anh chị chuyển hộ font chữ excel
Trả lời
2
Đọc
57
Gà Công Nghệ
Gà Công Nghệ
V
Quản lý xuất nhập vật tư trong kho
Trả lời
19
Đọc
746
LOGANWover
L
phuongnam366377
Học C++ từ số 0 – Bài học đầu tiên
    • Cảm ơn
Trả lời
4
Đọc
337
phuongnam366377
phuongnam366377
F
Mấy cao thủ giúp dùm mình với. File excel bị lỗi mà mình không biết lỗi chỗ nào để sửa. (1 người xem)
Trả lời
2
Đọc
94
firstbood
F
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (5 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
438
Đọc
58K
sát thủ uyên ương
S
X
Làm thế nào để ẩn "Blank" trong Pivot table
    • Thích
Trả lời
15
Đọc
36K
nguyenngochieu761321
nguyenngochieu761321
H
Đánh số thự theo lượt
Trả lời
5
Đọc
147
hongminh_0306
H
D
XIN PHẦN MỀM XẾP TKB TIỂU HỌC BẰNG EXCEL
Trả lời
2
Đọc
197
danhpheo
D
A
  • Question Question
Copy 2 form sang file khác, có 1 form Show, 1 form không Show (2 người xem)
Trả lời
2
Đọc
146
AnhThu-1976
A
R
Các bác có kinh nghiệm excel cho em xin công thức đánh số thứ tự theo ngày tháng này vợi ạ. (1 người xem)
Trả lời
5
Đọc
214
truc.duong87
T
H
Tự động cập nhật dữ liệu từ 2 file word
Trả lời
1
Đọc
158
LOGANWover
L
N
Nhờ giúp Drop down list theo tỉnh xã mới.
Trả lời
7
Đọc
344
ongke0711
ongke0711
E
VBA copy ô trong excel khi đang lọc filter (1 người xem)
Trả lời
8
Đọc
212
eagle12
E
N
Không sử dụng được phím tắt Ctrl + Shift + mũi tên xuống
Trả lời
1
Đọc
3K
aFdangthacmac
A
L
  • Question Question
Gõ và chọn tên trong ComboBox hiển thị giá trị trong textbox
    • Cười
Trả lời
8
Đọc
453
ongke0711
ongke0711
Xem thêm…

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

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom