SHARE
TWEET

棚番を入力するVBA.vbs

filledwithgarbages Jan 22nd, 2020 234 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub 棚番を入力する()
  2.     Dim number As Long
  3.     Dim offset As Long
  4.     offset = 200
  5.     Dim selectedPoint As String
  6.     selectedPoint = "D12:H13"
  7.     Dim prefix As String
  8.     prefix = "GD."
  9.    
  10.     For number = 2 To Sheets.Count
  11.    
  12.         Sheets(number).Select
  13.         Range(selectedPoint).Select
  14.         ActiveCell.FormulaR1C1 = prefix & number + offset - 1
  15.        
  16.     Next number
  17.    
  18. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top