VBA!10x10陣列!要依序填入1-100的數字 - iT 邦幫忙::一起幫忙解決難題，拯救 IT 人的一天

0

VBA!10x10陣列!要依序填入1-100的數字

vb

wiwi1221 2013-08-01 01:18:17 ‧ 6482 瀏覽

分享至

不好意思!我又來發問了!如題..我要做出10x10的二維陣列,且要依序填入1-100的數字

Sub xxx()

For Each c In [a1:j10]
 c.Value = Int(Rnd() * 100 + 1)
Next

End Sub

上面的程式碼我試著去跑過,發現他跑出來的會是亂數,該怎麼改成有順序的呢?

看更多先前的討論...收起先前的討論...

halawing iT邦新手 2 級 ‧ 2013-08-01 09:30:36 檢舉

仔細看你的程式碼第三到第五行
每次進入填入欄位值的時候
都會重新取一個亂數
所以不是依序填值

wiwi1221 iT邦新手 5 級 ‧ 2013-08-01 10:18:52 檢舉

嗯!了解了!謝謝你

CalvinKuo iT邦大師 7 級 ‧ 2013-08-01 10:39:24 檢舉

那麼主管下個問題是九九乘法表嗎?

wiwi1221 iT邦新手 5 級 ‧ 2013-08-01 11:12:30 檢舉

maybe....
可是如果他出99乘法表..我應該會做了

showjack iT邦新手 1 級 ‧ 2013-08-08 16:00:36 檢舉

主管??

登入發表討論

直播研討會

{{ item.subject }}

{{ item.channelVendor }} {{ item.webinarstarted }} |

{{ formatDate(item.duration) }}

直播中

1 個回答

18

海綿寶寶

iT邦大神 1 級 ‧ 2013-08-01 07:40:03

最佳解答

妳最好要看得懂
才拿去用
否則被主管一問就

&lt;pre class="c" name="code">
Sub FillSequence()

   v = 0
   For Each c In [a1:j10]
      c.Value = v
      v = v + 1
   Next

End Sub

回應 14
分享
檢舉

看更多先前的回應...收起先前的回應...

skyinlive iT邦新手 2 級 ‧ 2013-08-01 08:59:59 檢舉

我我我竟然看得懂睡覺起來世界都改變了

老鷹(eagle) iT邦高手 1 級 ‧ 2013-08-01 09:05:47 檢舉

我我我....竟然看不懂....
老鷹狀態<<<身體醒著腦袋還在睡

葉承宇 (丁丁) Dean Yeh iT邦大師 4 級 ‧ 2013-08-01 09:27:29 檢舉

Int(Rnd())

...這看來就是個亂數函式 @@

鐵殼心 iT邦高手 1 級 ‧ 2013-08-01 09:48:16 檢舉

我居然也看得懂耶!

ted99tw iT邦高手 1 級 ‧ 2013-08-01 09:51:03 檢舉

居然也看得我懂耶!

wiwi1221 iT邦新手 5 級 ‧ 2013-08-01 10:09:54 檢舉

所以...只有我看不懂!!

wiwi1221 iT邦新手 5 級 ‧ 2013-08-01 10:18:06 檢舉

Sub FillSequence()

v = 0 '變數 V=0
For Each c In [a1:j10] 'C值會寫入值定區域A1-J10中
c.Value = v 'C的值由V得來
v = v + 1
Next

End Sub

我上面的解釋對嗎?v = v + 1..這是代表每跑到下一個儲值格時,數字會加1?
For Each c In & c.Value = v 其實我不太懂,意思用猜測的!錯了大家別介意QQ

老鷹(eagle) iT邦高手 1 級 ‧ 2013-08-01 10:22:31 檢舉

基本語法先掌握....
然後了解它愛上它然後掉進無限coding迴圈

海綿寶寶 iT邦大神 1 級 ‧ 2013-08-01 10:33:08 檢舉

wiwi1221提到：
For Each c

這裡的 c 是指「儲存格」
就是 a1:j10 範圍中的儲存格
加上 For Each 的字面來解釋
就是 a1:j10 範圍中的每「一個」儲存格
因此
就可以透過 c 這個變數
來設定儲存格的相關特性
譬如：值、顏色、字體大小、底線....

另外
這也是當初取變數名字為 c (Cell) 的緣故

wiwi1221 iT邦新手 5 級 ‧ 2013-08-01 11:23:00 檢舉

如果像我這種翻書的初學者,要從那些基本的做起才進步的快呢?

ted99tw iT邦高手 1 級 ‧ 2013-08-01 11:25:41 檢舉

上課時專心聽講...

鐵殼心 iT邦高手 1 級 ‧ 2013-08-01 11:36:03 檢舉

ted99tw提到：
上課時專心聽講...

請泰方丈開示...D槽與方陣的關係

ted99tw iT邦高手 1 級 ‧ 2013-08-01 12:10:58 檢舉

方陣就交給方塊處理，像這種需要真功夫的再交給我...

海綿寶寶 iT邦大神 1 級 ‧ 2013-08-01 12:30:26 檢舉

wiwi1221提到：
如果像我這種翻書的初學者,要從那些基本的做起才進步的快呢?

如果每天都有進步、都有學會新的功能
就算快了

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22206 篇

完賽人數

600 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙