返回列表 上一主題 發帖

[發問] 變數設定

Scott090

帖子
533 
主題
58 
精華
0 
積分
613 
點名
261  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2026-11-1 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-3-7 14:49 | 顯示全部帖子

[發問] 變數設定

請把陣列中的對應位置值設給變數，VBA如何做，謝謝
  1. Option Base 1
  2. Option Explicit

  4. Sub Test()

  6.     '定義變數
  7.     Dim Qref%, kWref%, COPref%, Qev_ref%, Qcd_ref%, Tchws%, Tchwr%, Tcws%, Tcwr%
  8.     Dim a0%, a1%, a2%, a3%, a4%, a5%
  9.     Dim ar
  10.    
  11.     '變數名稱陣列,   說明: 名稱在陣列中的位置是會變的
  12.     ar = Array("Qref", "kWref", "COPref", "Qev_ref", "Qcd_ref", "Tchws", "Tchwr", "Tcws", "Tcwr", _
  13.                 "a0", "a1", "a2", "a3", "a4", "a5")
  14.    
  15.     '把變數名稱在陣列中的位置設給變數
  16.    
  17.     '(如何寫VBA可以得到期望結果)'?
  18.     'Qref = 1
  19.     'kWref = 2
  20.     'COPref = 3
  21.     'Qev_ref = 4
  22.     'Qcd_ref = 5
  23.    
  24.     '   .
  25.     '   .
  26.     '   .
  27.     'a5 = 15
  28.    
  29.    
  30. End Sub
複製代碼
收藏 分享

Scott090

帖子
533 
主題
58 
精華
0 
積分
613 
點名
261  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2026-11-1 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2016-3-7 18:23 | 顯示全部帖子
回復 2# stillfish00


    謝謝大大的解惑，答案正是所要的，非常感恩

再請教，
假如事先沒變數設定，是否能從名稱陣列中分離出 使成各個變數並賦于在陣列中的位置值?

TOP

Scott090

帖子
533 
主題
58 
精華
0 
積分
613 
點名
261  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2026-11-1 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2016-3-8 07:35 | 顯示全部帖子
回復 4# stillfish00

非結構化性資料表欄位多，做計算的程式易失去可讀性而混亂；
例如:
       AR(i,j) 的 j 代表欄位，欄位多了 ，j 只是一個數字概念，沒有名詞意義；當然，數字用來做迴圈很重要
       Cells(i,"B").offset(,j) 一樣的意思

假如能用欄位名稱當變數 j， 則是：
     AR(i,欄位名稱)
     cells(i,"B").offset(,欄位名稱)

以上請教 大大  有沒有其他的解法

謝謝

TOP

Scott090

帖子
533 
主題
58 
精華
0 
積分
613 
點名
261  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2026-11-1 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章熱烈參與勳章
4#
發表於 2016-3-8 10:26 | 顯示全部帖子
回復 6# ML089


    謝謝大大的回應
抱歉，我沒把問題描述清楚

問題的目標是要 賦值 給 變數，不只是字串在陣列中的位置
例如：
          Qref =1，因為字串 "Qref" 在 陣列的位置 是 1
          Qev_ref = 4, 因為字串 "Qev_ref" 在陣列的位置是 4

TOP

Scott090

帖子
533 
主題
58 
精華
0 
積分
613 
點名
261  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2026-11-1 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2016-3-8 10:42 | 顯示全部帖子
回復 7# stillfish00


之所以發想要以動態的方式處理，
    就是因為欄位很多且位置會變；直接用 Const 會拉得很長，資料位置變動時也不易更改

提議用 ML 版主的字典法 D("Qref") 應可行

測試後再報告

謝謝

TOP

Scott090

帖子
533 
主題
58 
精華
0 
積分
613 
點名
261  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2026-11-1 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章熱烈參與勳章
6#
發表於 2016-3-8 17:21 | 顯示全部帖子
回復 10# GBKEE
回復 9# stillfish00
回復 6# ML089


    謝謝各位大大的幫忙
經測試後，使用 字典法 的 D("Qref") 或 名稱定義 的 [Qref] 替代 變數 Qref 都可以解決問題

再次感恩

TOP

Scott090

帖子
533 
主題
58 
精華
0 
積分
613 
點名
261  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2026-11-1 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章熱烈參與勳章
7#
發表於 2016-3-31 07:11 | 顯示全部帖子
回復 11# Scott090

有看到 clio 的回文通知但看不到全文

請clio 版大再回文

謝謝

TOP

        靜思自在 : 自己害自己，莫過於亂發脾氣。
返回列表 上一主題