返回列表 上一主題 發帖

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

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-22 14:55 | 只看該作者

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

本帖最後由 mark15jill 於 2013-1-22 14:57 編輯

說明
要用A.xls Form表單 讀取 B.xls Form表單

資料為
B.xls 資料 為 一列 10欄 (從B欄位讀取到 J欄位 ，A欄位不讀取但有判斷)
表單元件 3*3 Textbox
cmbox(2).Text 為 Combobox陣列的第二個 作為序號對應用


疑問點
1.要怎把原始碼那三行濃縮成一行？
因有間隔問題    如： 陣列 X*0 <X為0-2> 為  B 欄 ~ D欄 、陣列 X*1 <X為0-2> 為  E 欄 ~ G欄、陣列 X*2 <X為0-2> 為  H 欄 ~ J欄

2.若將 陣列3*3 視為連續元件(如 txt1(0~8)   )並搭配原始碼  要如何搭配？


原始碼

        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
收藏 分享

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

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

  少看=只看不做也枉然

GBKEE

帖子
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
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim kkex, R, C, txt1(0 To 2, 0 To 2)
  4.     kkex = 0: R = 1
  5.     For C = 2 To 10 Step 3
  6.         txt1(kkex, 0) = Cells(R, C).Value
  7.         txt1(kkex, 1) = Cells(R, C + 1).Value
  8.         txt1(kkex, 2) = Cells(R, C + 2).Value
  9.         kkex = kkex + 1
  10.     Next
  11. End Sub
複製代碼

TOP

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

高中生Rank: 3Rank: 3

帖子
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

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

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

  少看=只看不做也枉然

TOP

Hsieh

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

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
學海無涯_不恥下問

TOP

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

高中生Rank: 3Rank: 3

帖子
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 欄位讀取失效

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

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

  少看=只看不做也枉然

TOP

Hsieh

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

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
學海無涯_不恥下問

TOP

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

高中生Rank: 3Rank: 3

帖子
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    '紅字須請大大教導

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

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

  少看=只看不做也枉然

TOP

Hsieh

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

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?

把檔案上傳說明吧!
學海無涯_不恥下問

TOP

stillfish00

帖子
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

TOP

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

高中生Rank: 3Rank: 3

帖子
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 謝謝兩位大大的教導

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

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

  少看=只看不做也枉然

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題