[發問] [發問]陣列內數值間格問題

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-1-22 15:48 | 只看該作者

回復 1# mark15jill
試試看

Option Explicit
Sub Ex()
Dim kkex, R, C, txt1(0 To 2, 0 To 2)
kkex = 0: R = 1
For C = 2 To 10 Step 3
txt1(kkex, 0) = Cells(R, C).Value
txt1(kkex, 1) = Cells(R, C + 1).Value
txt1(kkex, 2) = Cells(R, C + 2).Value
kkex = kkex + 1
Next
End Sub

複製代碼

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2013-1-22 15:51 | 只看該作者

本帖最後由 mark15jill 於 2013-1-22 15:52 編輯

回復 2# GBKEE

TO GBKEE大大
謝謝大大的教導。
大大所提供的教學仍為多行
這點小弟沒說清楚抱歉


   原本程式碼
   For kkex = 0 To 2
         txt1(kkex, 0).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 2).value
         txt1(kkex, 1).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 5).value
         txt1(kkex, 2).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 8).value
      Next

   想變成
      For kkex = 0 To 2
         txt1(kkex, kkey).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 2).value '紅字部份為疑問點    kkey 為陣列中的循環
      Next

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

Hsieh

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-1-22 16:31 | 只看該作者

回復 1# mark15jill

      For kkex = 0 To 2
         txt1(kkex, kkex).Text = oSheet.Cells(cmbox(2).Text + 1, kkex * 3 + 2).Value
      Next

學海無涯_不恥下問

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

發表於 2013-1-22 16:52 | 只看該作者

本帖最後由 mark15jill 於 2013-1-22 16:53 編輯

回復 4# Hsieh

To Hsieh 大大
謝謝教導
但這樣會造成錯亂

txt1(kkex, kkex).Text = oSheet.Cells(cmbox(2).Text + 1, kkex * 3 + 2).Value

If  kkex = 0 then txt1(kkex, kkex).Text = oSheet.Cells(cmbox(2).Text + 1,  2).Value

If  kkex =1 then txt1(kkex, kkex).Text = oSheet.Cells(cmbox(2).Text + 1,  5).Value

If  kkex = 2 then txt1(kkex, kkex).Text = oSheet.Cells(cmbox(2).Text + 1,  8).Value

若將程式帶入數值的話會變成 2 3 4 6 7 9 10 欄位讀取失效

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

Hsieh

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2013-1-22 16:58 | 只看該作者

回復 5# mark15jill

所以你是要3*3的二維陣列?
      For kkex = 0 To 2
         For i = 0 To 2
         txt1(kkex, i).Text = oSheet.Cells(cmbox(2).Text + 1, i * 3 + 2).Value
         Next
      Next

學海無涯_不恥下問

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 2013-1-22 17:22 | 只看該作者

回復 6# Hsieh

2維的一維陣列...@@"

小弟換個方式說好了...

陣列(3*3)
A1 A2 A3
B1 B2    B3
C1 C2    C3

來源檔案
B欄位至 J欄位(2~10)

      '       For kkex = 0 To 2
      '       txt1(kkex, 0).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 2).value  (B~D欄位)
      '       txt1(kkex, 1).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 5).value  (E~G欄位)
      '       txt1(kkex, 2).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 8).value  (H~J欄位)
      '       Next

想要將那三行合併成一行
kkex 為陣列中的 X值
kkey 為陣列中的 Y值
cmbox(2).Text + 1  可當作單一數值

      '       txt1(kkex, kkey).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 2).value '紅字須請大大教導

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

Hsieh

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2013-1-22 22:16 | 只看該作者

回復 7# mark15jill
到底有幾個TEXTBOX?
有多少儲存格的值要填進去這些TEXTBOX?
若是3*3的物件陣列，只能塞9個值，何來B~D、E~G、H~J?

把檔案上傳說明吧!

學海無涯_不恥下問

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

9^#

發表於 2013-1-23 01:50 | 只看該作者

回復 7# mark15jill

      '       For kkex = 0 To 2
      '       txt1(kkex, 0).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 2).value  (B~D欄位)
      '       txt1(kkex, 1).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 5).value  (E~G欄位)
      '       txt1(kkex, 2).Text = oSheet.cells(cmbox(2).Text + 1, kkex + 8).value  (H~J欄位)
      '       Next
想要將那三行合併成一行

為何要合併 , 合併不會比較清楚
For i = 0 to 8
   txt1(int(i/3), i mod 3).Text = oSheet.cells(cmbox(2).Text + 1, Int(i / 3) + 3 * (i Mod 3) + 2).value
Next

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

10^#

發表於 2013-1-23 08:29 | 只看該作者

回復 9# stillfish00

To Hsieh 大大
從 A欄~J欄共有10欄位 A欄位不算的話有9欄位
如您圖所示，但黃色部分為列不是橫跨三列
例 B1~J1 為一筆資料
cmbox(2).text +1 ==> 如 cmbox(2).text=0
則 cmbox(2).text +1 數值為 1(第一列)。

To stilllfish00 大大
因為該完整程式碼過長(功能設定太多)，
而且程式碼似乎有規律性(分開寫的話)，
才想說能否找方法節省~"~

測試OK 謝謝兩位大大的教導

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然