請教如何設置一個全工作簿的變數，在其他工作表可以取其值？

vba

lin520 2021-07-09 12:15:20 ‧ 1626 瀏覽

分享至

    Set Arr = CreateObject("Scripting.Dictionary")
                BgnRow = 2
                EndRow = .Cells(Rows.Count, "A").End(xlUp).Row
        
                 For i = BgnRow To EndRow
                    If .Cells(i, "D").Value = "V" Then
                        Arr(i) = .Cells(i, "A").Value
                    End If
                 Next i

要如何設置這樣的變數，在其他工作表可以直接引用他的值，比如：Arr.count，或他的Key或Items的值？

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

japhenchen

iT邦超人 1 級 ‧ 2021-07-09 12:36:21

=工作表1!$A$1 + 工作表2!$B$1

VBA比照辦理

sum = Worksheets("工作表1").cells(1,1) + Worksheets("工作表2").cells(2,1)

打完收工

回應 3
分享
檢舉

japhenchen iT邦超人 1 級 ‧ 2021-07-09 12:40:43 檢舉

再補一個，跨工作簿(XLS檔)

Workbooks("c:\excel\20210709.xls").Worksheets("工作表1").cells(1,1)

japhenchen iT邦超人 1 級 ‧ 2021-07-09 12:43:24 檢舉

啊如果是跨電腦.......(有分享)

Workbooks("\\張三的電腦\sharedir\excel\20210709.xls").Worksheets("工作表1").cells(1,1)

lin520 iT邦新手 4 級 ‧ 2021-07-10 09:42:00 檢舉

謝謝！感恩！

登入發表回應

海綿寶寶

iT邦大神 1 級 ‧ 2021-07-09 12:55:10

用Public 或 Global 宣告變數

回應 3
分享
檢舉

blanksoul12 iT邦研究生 5 級 ‧ 2021-07-09 13:14:12 檢舉

sorry delete

blanksoul12 iT邦研究生 5 級 ‧ 2021-07-09 13:15:37 檢舉

sorry sorry

lin520 iT邦新手 4 級 ‧ 2021-07-10 10:01:42 檢舉

請教若使用Public或Global宣告，以Arr為例，
Public Arr as Variant
Public k as Variant
public t as Variant

             For i = BgnRow To EndRow
                If .Cells(i, "D").Value = "V" Then
                    Arr(i) = .Cells(i, "A").Value
                End If
             Next i
        End With
        k=Arr.Keys
        t=Arr.Items

可否直接宣告一個Public Arr as Variant，其他k 或t值，於sub程式再利用k=Arr.Keys 或t=Arr.Items取得？我的嘗試會錯誤，請教該如何設置？

登入發表回應

blanksoul12

iT邦研究生 5 級 ‧ 2021-07-09 13:12:46

其中一種做法

Dim temp_arr As Double
Sub test()
    Set arr = CreateObject("Scripting.Dictionary")
    BgnRow = 2
    EndRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

     For i = BgnRow To EndRow
        If ActiveSheet.Cells(i, "D").Value = "V" Then
            arr(i) = ActiveSheet.Cells(i, "A").Value
        End If
     Next i
     temp_arr = arr.Count
End Sub
Sub other() '先行這個
    test
    MsgBox temp_arr
End Sub

另一種做法

Function temp_arr()
    Set arr = CreateObject("Scripting.Dictionary")
    BgnRow = 2
    EndRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

     For i = BgnRow To EndRow
        If ActiveSheet.Cells(i, "D").Value = "V" Then
            arr(i) = ActiveSheet.Cells(i, "A").Value
        End If
     Next i
     temp_arr = arr.Count
End Function
Sub other()
    MsgBox temp_arr
End Sub