PCDVD數位科技討論區
PCDVD數位科技討論區   註冊 常見問題 標記討論區為已讀

回到   PCDVD數位科技討論區 > 其他群組 > 疑難雜症區
帳戶
密碼
 

回應
 
主題工具
mxla
Regular Member
 
mxla的大頭照
 

加入日期: Mar 2002
您的住址: 台北市
文章: 91
excel vba 在目前儲存格插入一行的問題

各位先進~我知道在指定位置插入一行的指令碼為(x代表位置)
Rows("x:x").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
但是我想要的效果是 不管目前儲存格是什麼位置,按下按鈕後,就是目前儲存格向下插入一行。
這似乎有關RangeSelection.address,但是我試好久都一直試不出來…希望有經驗的前輩指教一下,謝謝。
     
      
舊 2009-03-23, 04:31 PM #1
回應時引用此文章
mxla離線中  
mxla
Regular Member
 
mxla的大頭照
 

加入日期: Mar 2002
您的住址: 台北市
文章: 91
自已找到答案了,自問自答…將下列程式碼貼到按鈕中就可以了
Sub InsertRow()
Dim rRow As Long
rRow = Selection.Row
ActiveSheet.Rows(rRow).Insert
 
舊 2009-03-23, 05:17 PM #2
回應時引用此文章
mxla離線中  


回應


POPIN
主題工具

發表文章規則
不可以發起新主題
不可以回應主題
不可以上傳附加檔案
不可以編輯您的文章

vB 代碼打開
[IMG]代碼打開
HTML代碼關閉



所有的時間均為GMT +8。 現在的時間是04:54 PM.


vBulletin Version 3.0.1
powered_by_vbulletin 2026。