返回列表 上一主題 發帖

[發問] 儲存格往下貼上

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-4-5 19:59 | 顯示全部帖子
本帖最後由 GBKEE 於 2012-4-5 20:08 編輯

回復 6# c_c_lai
VBA 視窗中 程式碼的範圍內 滑鼠點選後, 按F8 逐步 執行程式看看.
  1. Option Explicit
  2. Sub Ex_END()
  3.     MsgBox Range("C5").End(1).Address
  4.     MsgBox Range("C5").End(xlToLeft).Address
  5.    
  6.     MsgBox Range("C5").End(2).Address
  7.     MsgBox Range("C5").End(xlToRight).Address
  8.    
  9.     MsgBox Range("C5").End(3).Address
  10.     MsgBox Range("C5").End(xlUp).Address
  11.    
  12.     MsgBox Range("C5").End(4).Address
  13.     MsgBox Range("C5").End(xlDown).Address
  14. End Sub

  16. Sub Ex()
  17.     MsgBox Range("C5")(1).Address
  18.     MsgBox Range("C5").Cells(1).Address
  19.     MsgBox Range("C5").Cells(1, 1).Address
  20.     MsgBox Range("C5").Cells(1, "A").Address
  21.    
  22.     MsgBox Range("C5")(2).Address
  23.     MsgBox Range("C5").Cells(2).Address
  24.     MsgBox Range("C5").Cells(2, 1).Address
  25.     MsgBox Range("C5").Cells(2, "A").Address
  26.    
  27.     MsgBox Range("C5")(1, 3).Address
  28.     MsgBox Range("C5")(1, "C").Address
  29.     MsgBox Range("C5").Cells(1, 3).Address
  30.     MsgBox Range("C5").Cells(1, "C").Address
  31. End Sub
複製代碼

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題