「VBA」Range()で指定ワークシートのセル範囲に値を入力するサンプル

書式
If ワークシート変数名.Name = “ワークシート名"
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Sub funcA()
Dim ws As Worksheet
'For Each コレクションWorksheets
For Each ws In Worksheets
'シート名SheetBarkgame
If ws.Name = "SheetBarkgame" Then
'セル範囲 C3:E6
ws.Range("C3:E6").Value = "study skill in arkgame"
End If
Next
End Sub
Sub funcA() Dim ws As Worksheet 'For Each コレクションWorksheets For Each ws In Worksheets 'シート名SheetBarkgame If ws.Name = "SheetBarkgame" Then 'セル範囲 C3:E6 ws.Range("C3:E6").Value = "study skill in arkgame" End If Next End Sub
Sub funcA()
  Dim ws As Worksheet
  
  'For Each コレクションWorksheets
  For Each ws In Worksheets
   'シート名SheetBarkgame
     If ws.Name = "SheetBarkgame" Then
     'セル範囲 C3:E6
       ws.Range("C3:E6").Value = "study skill in arkgame"
       End If
    Next
End Sub

 

Excel VBA

Posted by arkgame