12
返回列表 上一主題 發帖

[發問] 是否可加速搜尋的速度

shuo1125

帖子
121 
主題
8 
精華
0 
積分
170 
點名
62  
作業系統
win10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2021-1-21 
最後登錄
2024-8-20 
11# 跳轉到 »
發表於 2023-11-28 14:47 | 只看該作者
本帖最後由 shuo1125 於 2023-11-28 14:49 編輯

回復 10# Andy2483
感謝Andy大分享For Each另解，原來xlCellTypeConstants包含常數的儲存格也能這樣使用，
以下有錯在煩請指正。

        ' 遍歷 xA 中的每一個儲存格，排除標題
    For Each A In xA.Offset(1, 0).SpecialCells(2)
        ' 在字典中添加項目，鍵為A 值為xA
        Z(A.Value) = xA.Cells(1, A.Column).Value
    Next A

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-12-5 
12#
發表於 2023-11-28 15:15 | 只看該作者
回復 11# shuo1125


    謝謝前輩一起學習

       ' ↓遍歷 xA 中的標題下方每一個非空格儲存格，
    For Each A In xA.Offset(1, 0).SpecialCells(2)
        ' ↓在字典中添加項目，Key為A儲存格值 ,Item為A儲存格所在欄位標題列的標題值
        ' ↓A是通用型變數,在此處是物件(儲存格),所以要以A的值納入字典,所以要加.Value或加 & ""
        Z(A.Value) = xA.Cells(1, A.Column).Value
    Next A
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
12
返回列表 上一主題