lấy số ngẫu nhiên (1 người xem)

[trungudec]

chào các bác em muốn lấy ngẫu nhiên từ 1.05 đến 1.15 các bác giúp với. Em có 1 thắc mắc em sử dụng hàm randbetween nhưng muốn nó chỉ nhẩy ngẫu nhiên 1 lần duy nhất, chứ cứ mở file nó lại cho 1 số khác. thank các bác nhiều chúc các bác 1 buổi tối vui vẻ

 

[khoavu87]

bạn dùng hàm này

bạn dùng hàm Randomize
bạn mở excel lên ấn Alt +f11 cho chuột phải vào sheet bất kì chọn inert chọn module
và copy đoạn code này vào module nè]

Sub ngaunhien()
Dim a
Randomize 'khoi tao bo cap phat ngau nhien
a = Val((0.5 * Rnd) + 1) 'tra vè s? t? 1--->1.15
Range("a1").Value = a
Dim so As Double
If (so = a) Then
MsgBox ("ban da doan dung")
ElseIf (so > a) Then
MsgBox ("so ban doan lon hon so toi nghi")
Else
MsgBox ("so ban doan nho hon so toi nghi")
End If
End Sub
''''Sau khi viết code đó xong bạn nhấn f5 để chạy chương trình nhé và quay lại àmn hình ex xem kq

 

[ChanhTQ@]

chào các bác em muốn lấy ngẫu nhiên từ 1.05 đến 1.15 các bác giúp với.
Em có 1 thắc mắc em sử dụng hàm randbetween nhưng muốn nó chỉ nhẩy ngẫu nhiên 1 lần duy nhất, chứ cứ mở file nó lại cho 1 số khác. thank các bác nhiều chúc các bác 1 buổi tối vui vẻ

(*) Nếu bạn chỉ ần số ngẫu 1 lần duy nhứt, thì:

C1: Cứ nhập vô 1 số nào bất kỳ mà bạn nghĩ ra;

C2: Dùng hàm như bạn nói, song sau đó phải Copy & paste Special ... Value là được hoài

(Nếu không phải, thì mình chưa thật hiểu í bạn rồi!)

 

[duongdv]

chào các bác em muốn lấy ngẫu nhiên từ 1.05 đến 1.15 các bác giúp với. Em có 1 thắc mắc em sử dụng hàm randbetween nhưng muốn nó chỉ nhẩy ngẫu nhiên 1 lần duy nhất, chứ cứ mở file nó lại cho 1 số khác. thank các bác nhiều chúc các bác 1 buổi tối vui vẻ

Đã gọi là ngẫu nhiên thì tất nhiên nó phải thay đổi và cho kết quả một cách ngẫu nhiên. Nếu muốn không thay đổi thì bạn làm như bạn ChanhTQ@.

 

[trungudec]

e muốn nó ngẫu nhiên nhưng nó chỉ nhảy 1 lần thôi các bác..............., ví dụ nó nhảy số ngẫu nhiên là 60 sau đó lần sau mở file ra vẫn là số 60, ý của em là nó chỉ nhảy 1 lần thui bác nbào có cao kiến gì không??

 

[ndu96081631]

e muốn nó ngẫu nhiên nhưng nó chỉ nhảy 1 lần thôi các bác..............., ví dụ nó nhảy số ngẫu nhiên là 60 sau đó lần sau mở file ra nó lại lại nhảy số khác, ý của em là nó chỉ nhảy 1 lần thui bác nbào có cao kiến gì không??

Cách có thiếu gì ---> Có điều tôi nghĩ bạn nên nói rõ mục đích thì hay hơn (vì bạn sẽ nhận những gợi ý hay hơn)

 

[trungudec]

cám ơn các bác đã rất nhiều tình giúp em? thank các bác nhiều.
C2: Dùng hàm như bạn nói, song sau đó phải Copy & paste Special ... Value là được hoài
ý kiến của bác này rất hay nhưng thủ công quá, mỗi lần copy - paste.....
không biết bác nào có hàm nào không để hàm đó chỉ lấy ngẫu nhiên 1 lần duy nhất.

 

[SA_DQ]

Bạn xài thử hàm này

Option Explicit
[B]Function FromComputer() As Double[/B]
 Dim jJ As Long, Timer_ As Double
 Timer_ = Timer
 Do
   jJ = jJ + 1
   If jJ > 6543210 Then Exit Do
 Loop Until Timer - Timer_ > 1
 FromComputer = 1.05 + (jJ \ 10 ^ 5) * 10 ^ (-3)
[B]End Function[/B]

Chú ý: Hoàn toàn tùy thuộc vô máy của bạn cái số ngẫu này

& hãy tự điều chỉnh để được như ý!