Chọn giá trị ngẫu nhiên

[minhnhutpham07089099]

Nhờ các bạn hỗ trợ mình trong trường hợp mình muốn chọn ra giá trị ngẫu nhiên từ 1 bảng danh sách có sản. Và khi chọn ra thì các giá trị cùng hàng cũng se đi theo luôn.
Khi giá trị được chon ra không trùng

 

[leonguyenz]

Nhờ các bạn hỗ trợ mình trong trường hợp mình muốn chọn ra giá trị ngẫu nhiên từ 1 bảng danh sách có sản. Và khi chọn ra thì các giá trị cùng hàng cũng se đi theo luôn.
Khi giá trị được chon ra không trùng

Nên gửi file Excel lên nha bạn.
Về lấy giá trị ngẫu nhiên, bạn dùng hàm RANDBETWEEN, kết hợp INDEX. Ví dụ dữ liệu có 50 dòng, công thức như sau: =INDEX(vùng dữ liệu,RANDBETWEEN(1,50),cột cần lấy)
Lưu ý: hàm RANDBETWEEN sẽ thay đổi ngẫu nhiên khi Excel thực thi tính toán.

 

[minhnhutpham07089099]

Nên gửi file Excel lên nha bạn.
Về lấy giá trị ngẫu nhiên, bạn dùng hàm RANDBETWEEN, kết hợp INDEX. Ví dụ dữ liệu có 50 dòng, công thức như sau: =INDEX(vùng dữ liệu,RANDBETWEEN(1,50),cột cần lấy)
Lưu ý: hàm RANDBETWEEN sẽ thay đổi ngẫu nhiên khi Excel thực thi tính toán.

Nhờ bạn hỗ trợ mình trường hợp này.
Mình muốn chọn giá trị ngẫu nhiên từ bảng màu vàng qua bảng kế bên. Và giá trị trong 1 ngày k trung lập lại. Cảm ơn bạn giúp mình

 

[snow25]

Nhờ bạn hỗ trợ mình trường hợp này.
Mình muốn chọn giá trị ngẫu nhiên từ bảng màu vàng qua bảng kế bên. Và giá trị trong 1 ngày k trung lập lại. Cảm ơn bạn giúp mình

Cái này báo cáo khống à bạn.

 

[VetMini]

Cái này báo cáo khống à bạn.

Loại báo cáo này chỉ dùng để nghía thôi.
(Từ nghía trong tiếng Việt có nghĩa là "ngắm nhìn".)

Nên gửi file Excel lên nha bạn.
...

Nhắn ác min: bài này đăng ở góc "Mừng sinh nhật..."

 

[ptm0412]

View attachment 229903
Loại báo cáo này chỉ dùng để nghía thôi.
(Từ nghía trong tiếng Việt có nghĩa là "ngắm nhìn".)

Đã sửa, cám ơn anh

 

[SA_DQ]

Sub LaySoLieuKhongTrungTrongNgay()
Dim Rws As Long, J As Long, W As Integer, Col As Integer
On Error GoTo LoiCT

Randomize:                                         Application.ScreenUpdating = False
With Sheet1
    Rws = .[A65500].End(xlUp).Row - 1:    Col = .[N2].End(xlToLeft).Column
    For J = 3 To Rws
        If IsDate(Cells(J, "A").Value) Then
            W = 1 + 7 * Rnd() \ 1:               
            If J = 3 And W < 3 Then W = 3 + W
        ElseIf Cells(J, "A").Value = "" Then
            W = W + 1 + 2 * Rnd() \ 1
        Else
            Exit For
        End If
        .Cells(W, "o").Resize(, Col).Copy Destination:=.Cells(J, "B")
    Next J
End With
Err_:                                                   Application.ScreenUpdating = True
Exit Sub
LoiCT:
  If Err = 1004 Then
    Resume Next
Else
    GoTo Err_
End If
End Sub