GIúp viết lệnh Random cho excel!

[vietbake]

Các bạn chỉ mình cách viết lệnh cho excel tự cho một số ngẫu nhiên, ví dụ như viết lệnh random(1:1000) = 1 số bất kỳ nằm trong phạm vi đó ko?

 

[nghiaphuc]

Các bạn chỉ mình cách viết lệnh cho excel tự cho một số ngẫu nhiên, ví dụ như viết lệnh random(1:1000) = 1 số bất kỳ nằm trong phạm vi đó ko?

Bạn sử dụng hàm RAND() rồi biến thể một xíu. VD: =ROUND(RAND()*1000,0) sẽ cho ra một số nguyên ngẫu nhiên trong phạm vi 0 - 1000.

 

[ndu96081631]

Các bạn chỉ mình cách viết lệnh cho excel tự cho một số ngẫu nhiên, ví dụ như viết lệnh random(1:1000) = 1 số bất kỳ nằm trong phạm vi đó ko?

Bạn hỏi công thức hay VBA vậy?
Công thức thì vầy:

=RANDBETWEEN(1,1000)

Công thức này đòi hỏi phải có Add-In Analysis ToolPak
Hoặc:

=INT(RAND() * 1000) + 1

Còn VBA thì:

Sub Test()
  MsgBox Int(Rnd() * 1000) + 1
End Sub

-------------------
Nguyên tắc chung:
1> Với công thức:

=Int(RAND() * (Top - Bottom + 1)) + Bottom

2> Với VBA

Int(Rnd() * (Top - Bottom + 1)) + Bottom

Với Bottom là số nhỏ và Top là số lớn

 

[vietbake]

Thanks anh! nhưng khi ta nhập thêm ô khác thì ô đã viết công thức lại đổi số theo! làm sao để nó nhảy 1 lần thôi anh

 

[ndu96081631]

Thanks anh! nhưng khi ta nhập thêm ô khác thì ô đã viết công thức lại đổi số theo! làm sao để nó nhảy 1 lần thôi anh

Dùng công thức thì phải chịu vậy thôi ---> Muốn cố định thì chỉ có cách dùng VBA hoặc là làm bằng tay bằng cách Paste Values

 

[t2bg88]

các bác ơi, sao em dùng đoạn code này mà nó chỉ ra 1 giá trị duy nhất khi mở workbook nhỉ :

Private Sub Workbook_Open()
MsgBox Int(Rnd() * 100) + 1
End Sub

 

[Phuocam]

Private Sub Workbook_Open()
Randomize' Thêm dòng này vào
MsgBox Int(Rnd() * 100) + 1
End Sub

 

[t2bg88]

Private Sub Workbook_Open()
Randomize' Thêm dòng này vào
MsgBox Int(Rnd() * 100) + 1
End Sub

thật vi diệu

 

[phihndhsp]

thật vi diệu

hihi Bây giờ thì thấy vi diệu, nhưng vài hôm nữa đăng đàn bảo thêm tính năng này thêm tính năng nọ thôi hihi

 

[t2bg88]

hihi Bây giờ thì thấy vi diệu, nhưng vài hôm nữa đăng đàn bảo thêm tính năng này thêm tính năng nọ thôi hihi

haha, thì người ta luôn muốn tìm tòi thêm mà bác )
Nhân đây em cũng đang muốn thêm điều kiện mỗi ngày nó chỉ cho ra 1 kết quả duy nhất thì có được không nhỉ

 

[phihndhsp]

haha, thì người ta luôn muốn tìm tòi thêm mà bác )
Nhân đây em cũng đang muốn thêm điều kiện mỗi ngày nó chỉ cho ra 1 kết quả duy nhất thì có được không nhỉ

Mọi thứ điều được, nhưng nếu bạn muốn người ta giúp nhanh gọn và lẹ thì bạn có thể mô tả công việc cụ thể của bạn và có file ví dụ đính kèm thì mọi người sẽ giúp, chứ những cái này nói không thì người ta giúp đi giúp lại nên nhiều người sẽ ngại, còn nếu bạn muốn mày mò tôi có thể cho bạn 1 ý tưởng
b1 nhập tự do
b2 kiểm tra xem nó đã có trong danh sách chưa
nếu chưa thì cho nạp vào danh sách rồi thôi không cho nhập nữa
nếu có rồi thì quay lại bước 1

 

[t2bg88]

Mọi thứ điều được, nhưng nếu bạn muốn người ta giúp nhanh gọn và lẹ thì bạn có thể mô tả công việc cụ thể của bạn và có file ví dụ đính kèm thì mọi người sẽ giúp, chứ những cái này nói không thì người ta giúp đi giúp lại nên nhiều người sẽ ngại, còn nếu bạn muốn mày mò tôi có thể cho bạn 1 ý tưởng
b1 nhập tự do
b2 kiểm tra xem nó đã có trong danh sách chưa
nếu chưa thì cho nạp vào danh sách rồi thôi không cho nhập nữa
nếu có rồi thì quay lại bước 1

ok, để mình mày mò trước rồi nếu không không được sẽ đăng đàn hỏi ý kiến các bác cao thủ