麻辣家族討論版版 » VB 與 VB.Net » 亂數帶入RAND，如何試算出小數點後面都去掉

吳瑩瑩 發表於 2020-7-3 10:03

亂數帶入RAND，如何試算出小數點後面都去掉

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

哪個大大可以救我~~[attachimg]32247[/

ikboy 發表於 2020-7-3 14:25

[code]int(Rand().........)[/code]

吳瑩瑩 發表於 2020-7-3 15:08

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=112389&ptid=22626]2#[/url] [i]ikboy[/i] [/b]


  大大~~  無法也!!!

ML089 發表於 2020-7-4 10:34

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=112385&ptid=22626]1#[/url] [i]吳瑩瑩[/i] [/b]

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

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=112385&ptid=22626]1#[/url] [i]吳瑩瑩[/i] [/b]

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

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=112394&ptid=22626]5#[/url] [i]ML089[/i] [/b]


    謝謝貓貓大大∼~~  哪可以程式加上不重複的數嗎?　也就是說亂數＋不重複＋排序

hcm19522 發表於 2020-7-6 17:49

[url]https://blog.xuite.net/hcm19522/twblog/589216489[/url]

ML089 發表於 2020-7-6 22:40

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=112412&ptid=22626]6#[/url] [i]吳瑩瑩[/i] [/b]

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

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=112421&ptid=22626]8#[/url] [i]ML089[/i] [/b]


    謝謝貓貓大大~~~

查看完整版本: 亂數帶入RAND，如何試算出小數點後面都去掉