返回列表 上一主題 發帖

[發問] Excel問題

黃志全

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
Win7 
軟體版本
Excel2010 
閱讀權限
10 
註冊時間
2015-10-25 
最後登錄
2015-10-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-10-25 09:51 | 只看該作者

[發問] Excel問題

Excel問題
我在access中有一個Table，內有3個column分別為人名，欄位值，列位值，請問我要在excel中能依據欄I 位值和列位值座標自動顯示人名應如何達成。
人名       欄位值       列位值
黃甲乙       15              12
李丙丁       15              17
李泰山       16              19
收藏 分享

hcm19522

帖子
1369 
主題
4 
精華
0 
積分
1379 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-7-12 

熱烈參與勳章
2#
發表於 2015-10-25 11:21 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/352087114

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2015-10-25 11:40 | 只看該作者
本帖最後由 lpk187 於 2015-10-25 11:47 編輯

回復 1# 黃志全


    若用一般函數！我不會，不過利用VBA可以很容易達成你需要的答案
  1. Public Sub ex()
  2.     Dim myCon As Object
  3.     Dim myRs As Object
  4.     Dim TabName$, Sql$, i, arr
  5.     Set myCon = CreateObject("ADODB.Connection")
  6.     Set myRs = CreateObject("ADODB.Recordset")
  7.     myCon.Open "provider=Microsoft.ACE.OLEDB.12.0;" & _
  8.                "Data Source=" & ThisWorkbook.Path & "\人員.accdb;" '路徑用本程式路徑相同資料庫名稱為"人員.accdb"
  9.     TabName = "人員" 'Tabel 名稱
  10.     Sql = "SELECT * FROM " & TabName & "';" 'SQL語法，在 TabName 表單中拿出所有項目
  11.     Set myRs = myCon.Execute(Sql)
  12.     arr = myRs.GetRows '取出 Recordset 的項目成為陣列
  13.     For i = 0 To UBound(arr, 2)
  14.         Cells(arr(1, i), arr(2, i)) = arr(0, i) '
  15.     Next
  16.     myRs.Close
  17.     myCon.Close
  18.     Set myRs = Nothing
  19.     Set myCon = Nothing
  20. End Sub
複製代碼

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
4#
發表於 2015-10-26 12:14 | 只看該作者
本帖最後由 yen956 於 2015-10-26 12:18 編輯

回復 3# lpk187
謝謝 lpk187 大大, 又學到一招,
但     Cells(arr(1, i), arr(2, i)) = arr(0, i) '
似為  Cells(arr(2, i), arr(1, i)) = arr(0, i)   'arr(2, i)列位值, arr(1, i)欄位值
之手誤! 總之, 謝謝!!

我改用
    Do While Not myRs.EOF
        Cells(myRs("列位值"), myRs("欄位值")) = myRs("人名")
        myRs.MoveNext
    Loop
聽說速度較慢, 但較不易手誤!

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2015-10-26 13:13 | 只看該作者
回復 4# yen956


    謝謝更正，把arr = myRs.GetRows取出陣列，只是讓人家容易在區域變數視窗中觀察其中的值，也沒有比較快，
利於學習而已，實際上還是要用你的方式去做

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題