| |
"複数シート 処理","シート名 変数"で検索をかけても対策を見いだせなかったので質問させて下さい。
(1)処理するbookには,"集計","報告書","支店a","支店b","支店c","支店d","支店e","支店f"の8枚のsheetがあります。
(2)処理の対象sheetは支店a〜支店fまでの6枚です。
(3)其々の支店sheetには同一項目のﾃﾞｰﾀが入っています。但しﾃﾞｰﾀ量は異なります。
(4)ﾏｸﾛは別bookに記述します。
(5)一枚のsheetに対応するｺｰﾄﾞは完成しています。
上記の条件で其々の支店sheetに同一の処理を行うのですが
支店sheetを順次選択する方法が解りません。
sheet名に変数を使って順次処理を行わせるのかな？と考え
無い知恵絞ったのですが…。
(例)こんな感じです。
'***********************************************************
Sub 対象シート処理()
Dim Sname1 As String, Sname2 As String, Sname3 As String
Dim Sname4 As String, Sname5 As String, Sname6 As String
Dim Sname As String
Dim i As Byte
Sname1 = "札幌"
Sname2 = "仙台"
Sname3 = "東京"
Sname4 = "名古屋"
Sname5 = "大阪"
Sname6 = "福岡"
For i = 1 To 6
Sheets(Sname & i).Select
Range("A1").Value = Sname & i
Next i
End Sub
'***********************************************************
根本的に間違ってる気がしています…。
(1)ヒントを下さい。
(2)上記ｺｰﾄﾞのどこが根本的に間違っているのか御指示頂ければ嬉しいです。
|
|
おぢちゃん
- 11/8/18(木) 9:30 -
