- Sub Up()
- '
- ' Up Macro
- '
- ' Keyboard Shortcut: Ctrl+w
- '
- ActiveCell.Offset(-1, 0).Range("A1").Select
- ActiveCell.FormulaR1C1 = "=R[1]C+1"
- ActiveCell.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Application.CutCopyMode = False
- ActiveCell.Select
- End Sub
- Sub Right()
- '
- ' Right Macro
- '
- ' Keyboard Shortcut: Ctrl+d
- '
- ActiveCell.Offset(0, 1).Range("A1").Select
- ActiveCell.FormulaR1C1 = "=RC[-1]+1"
- ActiveCell.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Application.CutCopyMode = False
- End Sub
- Sub Down()
- '
- ' Down Macro
- '
- ' Keyboard Shortcut: Ctrl+s
- '
- ActiveCell.Offset(1, 0).Range("A1").Select
- ActiveCell.FormulaR1C1 = "=R[-1]C+1"
- ActiveCell.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Application.CutCopyMode = False
- ActiveCell.Select
- End Sub
- Sub Left()
- '
- ' Left Macro
- '
- ' Keyboard Shortcut: Ctrl+a
- '
- ActiveCell.Offset(0, -1).Range("A1").Select
- ActiveCell.FormulaR1C1 = "=RC[1]+1"
- ActiveCell.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Application.CutCopyMode = False
- ActiveCell.Select
- End Sub
- Sub Clear()
- Cells.Select
- Selection.ClearContents
- Range("i8").Select
- ActiveCell.FormulaR1C1 = "0"
- Range("I8").Select
- End Sub
[text] Mapping Code
Viewer
Editor
You can edit this paste and save as new: