[text] Mapping Code

Viewer

copydownloadembedprintName: Mapping Code
  1. Sub Up()
  2. '
  3. ' Up Macro
  4. '
  5. ' Keyboard Shortcut: Ctrl+w
  6. '
  7.     ActiveCell.Offset(-1, 0).Range("A1").Select
  8.     ActiveCell.FormulaR1C1 = "=R[1]C+1"
  9.     ActiveCell.Select
  10.     Selection.Copy
  11.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  12.         :=False, Transpose:=False
  13.     Application.CutCopyMode = False
  14.  
  15.     ActiveCell.Select
  16. End Sub
  17. Sub Right()
  18. '
  19. ' Right Macro
  20. '
  21. ' Keyboard Shortcut: Ctrl+d
  22. '
  23.     ActiveCell.Offset(0, 1).Range("A1").Select
  24.     ActiveCell.FormulaR1C1 = "=RC[-1]+1"
  25.     ActiveCell.Select
  26.     Selection.Copy
  27.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  28.         :=False, Transpose:=False
  29.     Application.CutCopyMode = False
  30.  
  31. End Sub
  32. Sub Down()
  33. '
  34. ' Down Macro
  35. '
  36. ' Keyboard Shortcut: Ctrl+s
  37. '
  38.     ActiveCell.Offset(1, 0).Range("A1").Select
  39.     ActiveCell.FormulaR1C1 = "=R[-1]C+1"
  40.     ActiveCell.Select
  41.     Selection.Copy
  42.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  43.         :=False, Transpose:=False
  44.     Application.CutCopyMode = False
  45.  
  46.     ActiveCell.Select
  47. End Sub
  48. Sub Left()
  49. '
  50. ' Left Macro
  51. '
  52. ' Keyboard Shortcut: Ctrl+a
  53. '
  54.     ActiveCell.Offset(0, -1).Range("A1").Select
  55.     ActiveCell.FormulaR1C1 = "=RC[1]+1"
  56.     ActiveCell.Select
  57.     Selection.Copy
  58.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  59.         :=False, Transpose:=False
  60.     Application.CutCopyMode = False
  61.  
  62.     ActiveCell.Select
  63. End Sub
  64. Sub Clear()
  65.     Cells.Select
  66.     Selection.ClearContents
  67.     Range("i8").Select
  68.     ActiveCell.FormulaR1C1 = "0"
  69.     Range("I8").Select
  70. End Sub
  71.  
  72.  

Editor

You can edit this paste and save as new:


File Description
  • Mapping Code
  • Paste Code
  • 02 Dec-2022
  • 1.63 Kb
You can Share it: