帖子: 12
主題: 6
精華: 0
積分: 66
點名: 0
作業系統: Excel.PowerPoint.Word
軟體版本: 2010.2013.2007
閱讀權限: 20
性別: 女
來自: 臺灣
註冊時間: 2016-12-6
最後登錄: 2021-2-23

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2020-7-3 10:03 | 只看該作者

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

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

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

小數點後面都去掉.jpg (147 KB)

樓主熱帖

Helen

吳瑩瑩

中學生 Rank: 2

帖子: 12
主題: 6
精華: 0
積分: 66
點名: 0
作業系統: Excel.PowerPoint.Word
軟體版本: 2010.2013.2007
閱讀權限: 20
性別: 女
來自: 臺灣
註冊時間: 2016-12-6
最後登錄: 2021-2-23

9^#

發表於 2020-7-7 16:53 | 只看該作者

回復 8# ML089

謝謝貓貓大大~~~

Helen

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

8^#

發表於 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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

hcm19522

大學生 Rank: 4

帖子: 1392
主題: 4
精華: 0
積分: 1402
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-12-26

熱烈參與勳章

7^#

發表於 2020-7-6 17:49 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589216489

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

吳瑩瑩

中學生 Rank: 2

帖子: 12
主題: 6
精華: 0
積分: 66
點名: 0
作業系統: Excel.PowerPoint.Word
軟體版本: 2010.2013.2007
閱讀權限: 20
性別: 女
來自: 臺灣
註冊時間: 2016-12-6
最後登錄: 2021-2-23

6^#

發表於 2020-7-6 16:42 | 只看該作者

回復 5# ML089

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

Helen

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089