返回列表 上一主題 發帖

請教vba的撰寫問題

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-4-30 18:06 | 顯示全部帖子

請教vba的撰寫問題

本帖最後由 lionliu 於 2014-4-30 18:07 編輯

各位大哥好
小弟試著寫出下列程式但是會有問題，請教要如何解
第9行會代出公式，但是代不出資料。
第10行會出錯。

1.  Sub trnprg()
2.  Dim myrow As Long
3.  Dim myrange As Range
4  Dim i As Integer
5  myrow = Range("a1").End(xlDown).Row
6 For i = 2 To myrow
7    Set myrange = Cells(i, 1)
              
8       If myrange <> Empty Then
9             Cells(i, 2).FormulaR1C1 = "=VLOOKUP(CELLS(1,I),Jsc_Data!A:G,6,FALSE)"
10          Cells(i, 5).FormulaR1C1 = "=CONCATENATE(""代墊款""," - ",LEFT(cells(i,2))"
         
11      End If
12  Next i
     
  13 Set myrange = Nothing
   
14  End Sub
收藏 分享
lionliu

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
2#
發表於 2014-5-2 08:26 | 顯示全部帖子
感謝gbkee大個的教學：
      
     謝謝GB大哥解惑喔，原來還有這麼多的訣竅在裡面。
我想好多基本觀念都被我給忽略掉了，在大哥詳細解說下又幫我開了一扇窗。
我要趕快來測試啦，有問題在向大家報告。

:D :D :D
lionliu

TOP

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
3#
發表於 2014-5-2 14:07 | 顯示全部帖子
GB大大
  經過測試後VLOOKUP的部分還是不行，只出現公式
可否幫我看一下。
test.rar (10.2 KB)
lionliu

TOP

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
4#
發表於 2014-5-2 16:48 | 顯示全部帖子
本帖最後由 lionliu 於 2014-5-2 16:50 編輯

回復 5# GBKEE
謝謝gb的解答已經可以了。
請叫大哥有關於類似位址的寫法，是否都可用  """ & cells(i ,j) & """   這樣來處理呢
還是這是取該欄位的值，若要取位置(A2)應如何處理
lionliu

TOP

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
5#
發表於 2014-5-4 08:58 | 顯示全部帖子
回復 7# GBKEE


   謝謝gb大哥，測試已可以。
lionliu

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題