EXCEL VBA 工作表名稱變數問題

excel vba

bgcc9527 2020-11-20 10:02:45 ‧ 4110 瀏覽

分享至

請大大指點一下謝謝

我想做到的功能是

EX 工作表1的F2 輸入工作表的名稱
然後工作表1 的欄位去比對 F2所輸的工作表
再覆蓋相對應的欄

下面比對及寫入是正常的，
但請問工作表名稱變數要怎麼設才能讓F2的值變成指定工作表名稱

Public Sub 改工作表比對()
  
  Dim x As Variant
     Set x = 工作表1.Range("F2")
    i = 1
    Do
        i = i + 1
        If x.Range("B" & i) = "" Then Exit Do
        With 工作表1.Range("B2:B50")
            Set c = .Find(x.Range("B" & i), LookIn:=xlValues)
              If Not c Is Nothing Then
                x.Range("h" & i).Value = c.Offset(0, 4).Value
                           
               MsgBox "成功"
           End If
         
        End With
    Loop
End Sub

請大大指點一下非常感謝

登入發表討論

直播研討會

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

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2020-11-20 10:55:56

最佳解答

試看看

Set x = 工作表1.Range("F2")

改成

Set x = Worksheets(工作表1.Range("F2"))

回應 4
分享
檢舉

看更多先前的回應...收起先前的回應...

bgcc9527 iT邦新手 5 級 ‧ 2020-11-20 11:26:30 檢舉

大大，顯示型態不符合，怎麼修正呢?

海綿寶寶 iT邦大神 1 級 ‧ 2020-11-20 11:28:17 檢舉

改成

Set x = Worksheets(工作表1.Range("F2").value)

F2 裡是什麼值？

bgcc9527 iT邦新手 5 級 ‧ 2020-11-20 11:41:56 檢舉

有中英數字，成功運行了，謝謝大大~我搞一天了 >< ~你一秒就解決了
非常感謝

海綿寶寶 iT邦大神 1 級 ‧ 2020-11-20 11:55:30 檢舉

問題解決就好

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22174 篇

完賽人數

597 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙