Soru Hareketli başla ve durdur

[bjk42]

arkadaşlar örnek olarak excell ekledim 1 sayfada 1 den 10 a kadar sayılar var ve başla ve durdur var başlaya basınca her seferinde başka sayıdan başlasın durdur a basınca durdurup sonucu sağ aşağıda köşede göstersin yer açtım onada ama sayıların üstünde de her hangi bir görsel veya imleç olsun ki görsellik katsın excell e şimdiden tşk ederim.

 

[Trilenium]

Set ws = Worksheets("Sayfa1")
BottomNo = 1
TopNo = 10

ws.Range("J13") = WorksheetFunction.RandBetween(BottomNo, TopNo)

 

[bjk42]

Set ws = Worksheets("Sayfa1")
BottomNo = 1
TopNo = 10

ws.Range("J13") = WorksheetFunction.RandBetween(BottomNo, TopNo)

sağolun ama bunu nasıl kullanacağımı bilmiyorum

 

[ÖmerBey]

Eki inceleyiniz.