挿入用マクロ
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
挿入用マクロ
Sub Row_Insret()
' Row_Insret
' マクロ記録日 : 2001/5/23 ユーザー名 : Massy.Keegan
'
' Keyboard Shortcut: Ctrl+i
'
'カーソル位置の記録
Dim c, r
c = ActiveCell.Column
r = ActiveCell.Row
'行の挿入
Application.CutCopyMode = False
Selection.EntireRow.Insert
Range("ORG_K").Select
Application.CutCopyMode = False
Selection.Copy
Range("EXP_K").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:...
False, Transpose:=False
Range("ORG_Q").Select
Application.CutCopyMode = False
Selection.Copy
Range("EXP_Q").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:...
False, Transpose:=False
Application.Goto Reference:="R" & r & "C" & c
End Sub
終了行:
挿入用マクロ
Sub Row_Insret()
' Row_Insret
' マクロ記録日 : 2001/5/23 ユーザー名 : Massy.Keegan
'
' Keyboard Shortcut: Ctrl+i
'
'カーソル位置の記録
Dim c, r
c = ActiveCell.Column
r = ActiveCell.Row
'行の挿入
Application.CutCopyMode = False
Selection.EntireRow.Insert
Range("ORG_K").Select
Application.CutCopyMode = False
Selection.Copy
Range("EXP_K").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:...
False, Transpose:=False
Range("ORG_Q").Select
Application.CutCopyMode = False
Selection.Copy
Range("EXP_Q").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:...
False, Transpose:=False
Application.Goto Reference:="R" & r & "C" & c
End Sub
ページ名: