返回列表 上一主題 發帖

vba如何取代字串

jerrystock

帖子
79 
主題
26 
精華
0 
積分
111 
點名
0  
作業系統
winxp 
軟體版本
office 2010 
閱讀權限
20 
註冊時間
2011-12-20 
最後登錄
2022-8-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-3-21 16:21 | 顯示全部帖子

vba如何取代字串

請問欄位S2公式為VLOOKUP(AK2,'2641'!$A$2:$F$250,2,0)
如何在C2欄位輸入數字後取代S2欄位的2641工作表名稱 C3.C4...輸入也會取代S3.S4的工作表名稱
謝謝
收藏 分享

jerrystock

帖子
79 
主題
26 
精華
0 
積分
111 
點名
0  
作業系統
winxp 
軟體版本
office 2010 
閱讀權限
20 
註冊時間
2011-12-20 
最後登錄
2022-8-3 
2#
發表於 2015-3-21 22:10 | 顯示全部帖子
回復 2# lpk187
謝謝大大快速回覆程式碼執行無誤
我在S2公式更改為=IF(AND(AK2<>"",import!O1>=profitB!AK2),VLOOKUP(AK2,'2641'!$A$2:$F$250,2,0),"") 因為沒數據欄位會出現#N/A所以加上去
嘗試自己試試看結果沒概念的我就用這樣
Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = Cells(Target.Row, "C").Address Then
            i = Chr(39) ' 取單冒號
            Cells(Target.Row, "S") = "=IF(AND(AK" & Target.Row & <>""  & "," & "import" & "!O1">=AK"  & Target.Row) & "," & "VLOOKUP(AK" & Target.Row & "," & i & Cells(Target.Row, 3) & i & "!$A$2:$F$250,2,0) & "," "")"
        End If
    End Sub
眼睛快花掉了  還是不行 請大大是否能再次指導愚弟  謝謝

TOP

jerrystock

帖子
79 
主題
26 
精華
0 
積分
111 
點名
0  
作業系統
winxp 
軟體版本
office 2010 
閱讀權限
20 
註冊時間
2011-12-20 
最後登錄
2022-8-3 
3#
發表於 2015-3-22 09:03 | 顯示全部帖子
回復 5# lpk187
謝謝大大說明教學 幫我解決疑問  不知道如何跟您道謝 只能在此跟您說聲無盡的感謝
您是好人^^

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題