返回列表 上一主題 發帖

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

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

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

哪個大大可以救我~~[attachimg]32247[/
小數點後面都去掉.jpg
Helen

  1. int(Rand().........)
複製代碼

TOP

回復 2# ikboy


  大大~~  無法也!!!
Helen

TOP

回復 1# 吳瑩瑩

Sub ex1()
Range("A7:A26") = "=int(rand()*(215-(1))+(1))"
Range("A7:A26") = Range("A7:A26").Value
End Sub
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 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

回復 5# ML089


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

TOP

隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集7000篇 EXCEL函數

TOP

回復 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

回復 8# ML089


    謝謝貓貓大大~~~
Helen

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題