Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and the Yahoo Answers website is now in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.

Excel VBA陣列宣告與使用 十四問 ORZ (20點)

這問題可能對懂的人來說很蠢

不過真的搞不懂

所以一次全問清楚

並且希望每題解答多是一行程式碼解決 (這有可能嗎?)

ORZ 謝謝

有三組數據

每個數據為 1.00000~9999.99999 不等 但也有可能是空白無資料

每組有10個數據

A1~A10

B1~B10

C1~C10

陣列中A1,B1,C1與儲存格互動

問題一: 如何讓 儲存格X1,X2,X3的值等於陣列中A1,B1,C1

問題二: 問題一的反問 如何讓陣列的值等於儲存格的值

問題三: 如何讓 儲存格X1,Y1,Z1的值等於陣列中A1,B1,C1

問題四: 問題三的反問 如何讓陣列的值等於儲存格的值

問題五: 如何讓 儲存格X3,Y1,Z8的值等於陣列中A1,B1,C1

問題六: 問題五的反問 如何讓陣列的值等於儲存格的值

儲存格X1,X2,X3與陣列的互動

問題七: 如何讓 儲存格X1,X2,X3的值等於陣列中A7,A8,A9

問題八: 問題七的反問 如何讓陣列的值等於儲存格的值

問題九: 如何讓 儲存格X1,X2,X3的值等於陣列中A8,A1,A3

問題十: 問題九的反問 如何讓陣列的值等於儲存格的值

問題十一: 如何讓 儲存格X1,X2,X3的值等於陣列中B8,A1,C3

問題十二: 問題十一的反問 如何讓陣列的值等於儲存格的值

儲存格與陣列的互動

問題十三: 如何讓 儲存格X3,Y2,Z8的值等於陣列中B8,A1,C3

問題十四: 問題十三的反問 如何讓陣列的值等於儲存格的值

謝謝 ORZ

Update:

謝謝各位大大

開板新的問題與修正問法

還望指教 謝謝

http://tw.knowledge.yahoo.com/question/question?qi...

3 Answers

Rating
  • 1 decade ago
    Favorite Answer

    'Q1:

    Cells(X1R,X1C)=A1

    Cells(X2R,X2C)=B1

    Cells(X3R,X3C)=C1

    'Q2:

    A1=Cells(X1R,X1C)

    B1=Cells(X2R,X2C)

    C1=Cells(X3R,X3C)

    'Q3:

    Cells(X1R,X1C)=A1

    Cells(Y1R,Y1C)=B1

    Cells(Z1R,Z1C)=C1

    'Q4:

    A1=Cells(X1R,X1C)

    B1=Cells(Y1R,Y1C)

    C1=Cells(Z1R,Z1C)

    'Q5:

    Cells(X3R,X3C)=A1

    Cells(Y1R,Y1C)=B1

    Cells(Z8R,Z8C)=C1

    'Q6:

    A1=Cells(X3R,X3C)

    B1=Cells(Y1R,Y1C)

    C1=Cells(Z8R,Z8C)

    'Q7:

    Cells(X1R,X1C)=A7

    Cells(X2R,X2C)=A8

    Cells(X3R,X3C)=A9

    'Q8:

    A7=Cells(X1R,X1C)

    A8=Cells(X2R,X2C)

    A9=Cells(X3R,X3C)

    'Q9:

    Cells(X1R,X1C)=A8

    Cells(X2R,X2C)=A1

    Cells(X3R,X3C)=A3

    'Q10:

    A8=Cells(X1R,X1C)

    A1=Cells(X2R,X2C)

    A3=Cells(X3R,X3C)

    'Q11:

    Cells(X1R,X1C)=B8

    Cells(X2R,X2C)=A1

    Cells(X3R,X3C)=C3

    'Q12:

    B8=Cells(X1R,X1C)

    A1=Cells(X2R,X2C)

    C3=Cells(X3R,X3C)

    'Q13:

    Cells(X3R,X3C)=B8

    Cells(Y2R,Y2C)=A1

    Cells(Z8R,Z8C)=C3

    'Q14:

    B8=Cells(X3R,X3C)

    A1=Cells(Y2R,Y2C)

    C3=Cells(Z8R,Z8C)

    2009-05-13 15:53:04 補充:

    To BlowExpress大大~~您說的對!!

    本來也想說宣告的部份也要說一下的

    如~~Dim A(10),B(10),C(10)As Integer

    可是板大的問題1~問題14好像都沒提到

    (板大所謂的陣列好像是A1~A10....才疏學淺搞不清楚 )

    他又說要逐題用程式碼解釋

    ~~~~~~~~

    所以小弟我就只好依板大的意思

    在不知甚解下回答了~~

    當然我跟樓上的大大們的疑問都相同 ^^"

    (指相似的問題問了14次)

  • 1 decade ago

    你的這一堆問題好像都差不多嘛!

    因為知識+是免費的,所以就這樣卯起來問嗎?

    知道 "舉一反三" 是什麼意思吧!?

    2009-05-13 04:33:06 補充:

    去看 worlonzeng 大俠的這篇網誌吧:

    http://tw.myblog.yahoo.com/jw!_DIL5waFHwVKfL8odMZ4...

    2009-05-13 12:48:20 補充:

    TO jaco:

    A1, A2......等等是陣列元素嗎?

    VB (VBA) 的陣列不是這樣寫吧?!

    2009-05-13 17:20:53 補充:

    夏日說的沒錯!要這樣:

    Dim A(10) as Integer, B(10) as Integer, C(10) As Integer

    才會都是 Integer

    而若在程式裡沒有宣告就直接寫:

    A1 = .......

    A1 就是 variant 型別變數,

    A1 和 A(1) 是不一樣的東西

  • 夏日
    Lv 5
    1 decade ago

    建議你的問題拆開來5題來慢慢問,雖是小問題但很容易一問再問的答的人要有耐性。

    一次問這多可能只會得到一個人的說法,分五題問可能可以多參考別人的說法。

    2009-05-13 17:08:32 補充:

    常看到用vba這樣子宣告法

    Dim A(10), B(10), C(10) As Integer

    Dim x, y, z,i, j As Integer

    其實這樣子寫不如不要dim感覺沒差vba的用法不比vb等其他語言來的方便。

    以上只有

    C(10) ,j 是整數型別,其他都是variant型別。

Still have questions? Get your answers by asking now.