Board logo

標題: 亂數帶入RAND，如何試算出小數點後面都去掉 [打印本頁]
作者: 吳瑩瑩    時間: 2020-7-3 10:03     標題: 亂數帶入RAND，如何試算出小數點後面都去掉

請問各位大大∼∼
以下圖示想問，如亂數帶入=RAND()*(215-(1))+(1).......     EXCEL儲存格內如何試算出小數點後面都去掉??
我不想以儲存格各式->數值->內設定

哪個大大可以救我~~[attachimg]32247[/
作者: ikboy    時間: 2020-7-3 14:25

  1. int(Rand().........)
複製代碼
作者: 吳瑩瑩    時間: 2020-7-3 15:08

回復 2# ikboy


  大大~~  無法也!!!
作者: ML089    時間: 2020-7-4 10:34

回復 1# 吳瑩瑩

Sub ex1()
Range("A7:A26") = "=int(rand()*(215-(1))+(1))"
Range("A7:A26") = Range("A7:A26").Value
End Sub
作者: ML089    時間: 2020-7-4 10:45

回復 1# 吳瑩瑩

Sub ex1()
    '亂數計算後取整數
    Range("A7:A26") = "=int(rand()*(215-(1))+(1))"
    Range("A7:A26") = Range("A7:A26").Value

    '排序
    Range("a7:a26").Sort key1:=Range("a7"), order1:=xlAscending, Header:=xlNo
End Sub
作者: 吳瑩瑩    時間: 2020-7-6 16:42

回復 5# ML089


    謝謝貓貓大大∼~~  哪可以程式加上不重複的數嗎?　也就是說亂數＋不重複＋排序
作者: hcm19522    時間: 2020-7-6 17:49

https://blog.xuite.net/hcm19522/twblog/589216489
作者: ML089    時間: 2020-7-6 22:40

回復 6# 吳瑩瑩

Sub ex1()
    '亂數計算後取整數
    Range("A7:A26") = "=int(rand()*(215-(1))+(1))"
    Range("A7:A26") = Range("A7:A26").Value

    '排序
    Range("a7:a26").Sort key1:=Range("a7"), order1:=xlAscending, Header:=xlNo
   
    '取唯一
    ActiveSheet.Range("A7:A26").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
作者: 吳瑩瑩    時間: 2020-7-7 16:53

回復 8# ML089


    謝謝貓貓大大~~~



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)