返回列表 上一主題 發帖

可不可以輸入需要的數字範圍自動產出

yueh0720

帖子
45 
主題
19 
精華
0 
積分
84 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-9 
最後登錄
2015-4-14 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-8-9 22:39 | 只看該作者

可不可以輸入需要的數字範圍自動產出

例如需要59~101數字產生於rangs("c2")
可以任意輸入數字範圍,但數字必須在rangs("c2") 由小到大排序,該如何處理??
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2010-8-9 23:44 | 只看該作者
C2 到C101
1000 以內數字
  1.     Randomize
  2.     lngNum = 100
  3.     lngNumRangeTo = 1000
  4.     For i = 0 To lngNum
  5.         Range("C2").Offset(i).Value = Int(Rnd * lngNumRangeTo)
  6.     Next
  7.     Range(Range("C2"), Range("C65536").End(xlUp)).Select
  8.     Selection.Sort Key1:=Range("C2"), Order1:=xlAscending
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

yueh0720

帖子
45 
主題
19 
精華
0 
積分
84 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-9 
最後登錄
2015-4-14 
3#
發表於 2010-8-10 09:57 | 只看該作者
執行結果c2=2,10,28,28,36,39,39,47,50,54,64,69....994(亂跳)
可以改成可更改區間的號碼?並顯示在rangs("c2")由小到大
例如數入59~101
執行結果c2=59,60,61,62,63...101
例如輸入20~50
執行結果c2=20,21,22,23,24...50

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2010-8-10 10:49 | 只看該作者
回復 3# yueh0720
  1. Sub Ex()
  2.     Dim A1, A2
  3.     A1 = 51
  4.     A2 = 101
  5.     With Range("C2")
  6.         .Resize(Rows.Count - .Row) = ""
  7.         .Value = A1
  8.         .Offset(1).Resize(A2 - A1) = "=R[-1]C+1"
  9.         .Offset(1).Resize(A2 - A1) = .Offset(1).Resize(A2 - A1).Value
  10.     End With
  11. End Sub
複製代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2010-8-10 16:04 | 只看該作者
回復 3# yueh0720
  1. Sub Ex()
  2. Dim t&
  3. [C2:C65536] = ""
  4. [C2] = InputBox("起始碼")
  5. t = InputBox("結束值")
  6. [C2].Resize(t - [C2] + 1).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
  7.         Step:=1, Trend:=False
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題