VBA小白求助大神，謝謝各位了-有解無憂

VBA小白求助大神，謝謝各位了；根據第E列的資訊，通過VBA語言，設定一個按鈕，第C列自動帶出對應的資訊；

[/img]

uj5u.com熱心網友回復：

代碼:

Option Explicit



Public Sub ShowData()

    Dim dctData As Object

    Set dctData = CreateObject("scripting.dictionary")

    

    Dim i As Integer

    i = 10

    

    ' 讀取對應關系到字典物件.

    Do While True

        If Range("K" & i) = "" Then

            Exit Do

        Else

            dctData.Add CStr(Range("K" & i)), CStr(Range("L" & i))

        End If

        

        i = i + 1

    Loop

    

    ' 將資料填充到列,注意處理合并單元格.

    For i = 1 To 100

        Dim strKey As String

        strKey = Range("E" & i).MergeArea.Cells(1, 1)

        

        If dctData.exists(strKey) Then

            Range("C" & i) = dctData(strKey)

        End If

    Next

    

End Sub

演示:

下載地址:
鏈接：https://pan.baidu.com/s/1QPA7xKtGeDcAnCm3KGoniw
提取碼：0k0f

uj5u.com熱心網友回復：

參考 1 樓 milaoshu1020的回復:

代碼:

Option Explicit



Public Sub ShowData()

    Dim dctData As Object

    Set dctData = CreateObject("scripting.dictionary")

    

    Dim i As Integer

    i = 10

    

    ' 讀取對應關系到字典物件.

    Do While True

        If Range("K" & i) = "" Then

            Exit Do

        Else

            dctData.Add CStr(Range("K" & i)), CStr(Range("L" & i))

        End If

        

        i = i + 1

    Loop

    

    ' 將資料填充到列,注意處理合并單元格.

    For i = 1 To 100

        Dim strKey As String

        strKey = Range("E" & i).MergeArea.Cells(1, 1)

        

        If dctData.exists(strKey) Then

            Range("C" & i) = dctData(strKey)

        End If

    Next

    

End Sub

演示:

下載地址:
鏈接：https://pan.baidu.com/s/1QPA7xKtGeDcAnCm3KGoniw
提取碼：0k0f

謝謝大神,非常好用，!!

uj5u.com熱心網友回復：

參考 1 樓 milaoshu1020的回復:

代碼:

Option Explicit



Public Sub ShowData()

    Dim dctData As Object

    Set dctData = CreateObject("scripting.dictionary")

    

    Dim i As Integer

    i = 10

    

    ' 讀取對應關系到字典物件.

    Do While True

        If Range("K" & i) = "" Then

            Exit Do

        Else

            dctData.Add CStr(Range("K" & i)), CStr(Range("L" & i))

        End If

        

        i = i + 1

    Loop

    

    ' 將資料填充到列,注意處理合并單元格.

    For i = 1 To 100

        Dim strKey As String

        strKey = Range("E" & i).MergeArea.Cells(1, 1)

        

        If dctData.exists(strKey) Then

            Range("C" & i) = dctData(strKey)

        End If

    Next

    

End Sub

演示:

下載地址:
鏈接：https://pan.baidu.com/s/1QPA7xKtGeDcAnCm3KGoniw
提取碼：0k0f

大神，可以留個聯系方式嗎，有些小問題想咨詢下，謝謝。

uj5u.com熱心網友回復：

參考 1 樓 milaoshu1020的回復:

代碼:

Option Explicit



Public Sub ShowData()

    Dim dctData As Object

    Set dctData = CreateObject("scripting.dictionary")

    

    Dim i As Integer

    i = 10

    

    ' 讀取對應關系到字典物件.

    Do While True

        If Range("K" & i) = "" Then

            Exit Do

        Else

            dctData.Add CStr(Range("K" & i)), CStr(Range("L" & i))

        End If

        

        i = i + 1

    Loop

    

    ' 將資料填充到列,注意處理合并單元格.

    For i = 1 To 100

        Dim strKey As String

        strKey = Range("E" & i).MergeArea.Cells(1, 1)

        

        If dctData.exists(strKey) Then

            Range("C" & i) = dctData(strKey)

        End If

    Next

    

End Sub

演示:

下載地址:
鏈接：https://pan.baidu.com/s/1QPA7xKtGeDcAnCm3KGoniw
提取碼：0k0f

大神，有個小問題想單獨溝通交流下，可否給個聯系方式，急用。非常感謝！

uj5u.com熱心網友回復：

[email protected]

有什么問題在這里問不就好了.

uj5u.com熱心網友回復：

感謝 milaoshu1020 大神的及時回復，早上用了大神提供的代碼，非常好用，感謝。

還有個小問題，應該是之前沒有表述清楚導致的，具體請見圖片；

uj5u.com熱心網友回復：

改好了,代碼:



Option Explicit



Public Sub ShowData()

    Dim dctData As Object

    Set dctData = CreateObject("scripting.dictionary")

    

    Dim i As Integer

    i = 10

    

    ' 讀取對應關系到字典物件.

    Do While True

        If Worksheets(2).Range("K" & i) = "" Then

            Exit Do

        Else

            dctData.Add CStr(Worksheets(2).Range("K" & i)), CStr(Worksheets(2).Range("L" & i))

        End If

        

        i = i + 1

    Loop

    

    ' 將資料填充到列,注意處理合并單元格.

    For i = 1 To 100

        Dim strKey As String

        strKey = Worksheets(1).Range("E" & i).MergeArea.Cells(1, 1)

        

        If dctData.exists(strKey) Then

            Worksheets(1).Range("C" & i) = dctData(strKey)

        End If

    Next

    

End Sub

下載地址:
鏈接：https://pan.baidu.com/s/1thlM2odduc1PTf9kHRdn9w
提取碼：yf0i

uj5u.com熱心網友回復：

參考 7 樓 milaoshu1020的回復:

改好了,代碼:



Option Explicit



Public Sub ShowData()

    Dim dctData As Object

    Set dctData = CreateObject("scripting.dictionary")

    

    Dim i As Integer

    i = 10

    

    ' 讀取對應關系到字典物件.

    Do While True

        If Worksheets(2).Range("K" & i) = "" Then

            Exit Do

        Else

            dctData.Add CStr(Worksheets(2).Range("K" & i)), CStr(Worksheets(2).Range("L" & i))

        End If

        

        i = i + 1

    Loop

    

    ' 將資料填充到列,注意處理合并單元格.

    For i = 1 To 100

        Dim strKey As String

        strKey = Worksheets(1).Range("E" & i).MergeArea.Cells(1, 1)

        

        If dctData.exists(strKey) Then

            Worksheets(1).Range("C" & i) = dctData(strKey)

        End If

    Next

    

End Sub

下載地址:
鏈接：https://pan.baidu.com/s/1thlM2odduc1PTf9kHRdn9w
提取碼：yf0i

感謝大神。!!!!!

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/36940.html

標籤：VBA

上一篇：vb小白，求高人指點！

下一篇：VB自定義控制元件如何在設計時自動貼頂？比如工具列控制元件。