締切済み

マクロ【シート名に対応した文字を挿入・置換】

2008/09/14 11:32

マクロ【シート名に対応した文字を挿入・置換】御世話になります。【D:\test】内に２つのエクセルファイル（Excel2003）があります。 ※１つ目のファイル名は【季節別表.xls】。中には一番左端のシート名は【起動シート】で、その横は【spring】【summer】【autumn】【winter】という名前のシートがあり、すべてのシートにはサンプルの表がある。 ※２つ目のファイル名は【データシート.xls】。中にはシート名【2008】のみが存在。シート内には下記のような文字を入力している。セルB2：シート名セルC2：季節名セルD2：気候セルB3：spring セルC3：春セルD3：暖かいセルB4：summer セルC4：夏セルD4：熱いセルB5：autumn セルC5：秋セルD5：涼しいセルB6：winter セルC6：冬セルD6：寒い B2・C2・D2はシートの列が何の項目であるかがわかるために入力。 B3～6は【季節別表.xls】に存在するシート名を縦に入力。悩んでいるのは【季節別表.xls】のシート名【起動シート】内にあるマクロボタンに入れるマクロです。理想の処理の流れですが、【データシート.xls】のセルB3のspringというシート名が【季節別表.xls】にあればそのシートにセルB3の右隣であるセルC3の文字列【春】を取得し、【季節別表.xls】のシート名【spring】のセルD35の文字列である【今年の季節名は入学シーズンである。】の【季節名】と置換。また、セルC3の右隣であるセルD3の文字列【暖かい】を取得し、【季節別表.xls】のシート名【spring】のセルF70の文字列である【気候は気候状況。】の文字列【気候状況】と置換。この処理が終わったら、今度は次の行を同じような処理を続け、最終的にはB列が空行になるまで続けられるマクロは可能でしょうか？何か簡単なサンプルコードがあれば助かります。宜しくお願い致します。

beckfloyd
お礼率6% (8/118)

Visual Basic
回答数4
ありがとう数2

みんなの回答 （4）
専門家の回答

みんなの回答

imogasi
ベストアンサー率27% (4737/17070)

2008/09/14 21:23 回答No.4

説明は丁寧に長く書いてあるが、読む側にはわかり難い。下記に別の説明例を挙げてみる。参考にしてみて。持論だが、説明とプログラム作成は密接に関連していると思う。 A.季節別表ブック　　起動シート　　Springシート　　Summerシート　　Autumnシート　　Winterシート B.データシートブック　　2008シートーー情報はデータシート（ブック）ににあり　　その2008シートの　　Ｂ列　　　Ｃ列　　D列　　シート名　季節名　気候　　spring　　春　　　暖かい　　summer　　夏　　　熱い　　autumn　　秋　　　涼しい　　winter　　冬　　　寒い（このようにエクセルの表式に書くと直観的に判りやすいよ）＝＝＝＝＝＝＝＝＝処理したいこと（１）「季節別表ブック」を開く（データシートブックも開く）（２）「季節別表ブック」の各シート名を調べる（３）その１つのシート名が、データシートブックの２００８シート名のB列にあるか調べる。（あるはずしょうね。）（４）２００８シートのB列でシート名が見つかった行の、C列の文字列（データ）で、季節別表のシートのD３５セルの一部の特定の文字列を置換（５）見つかった行のD列の、文字列（データ）で、季節別表のシートのD３５セルの文字列の一部を置換＝＝＝＝＝コード作成の参考事項（１）はVBAの本にもWEBにも書いてある。（２）は下記を参考に Sub test02() Dim sh As Worksheet For Each sh In Worksheets MsgBox sh.Name Next End Sub MsgBox sh.Nameのところに（３）（４）（５）の処理を入れる。（３）は上記で得たシート名がForNextでB列の各行を等しいかIF文で聞いて、一致した行を見つける。（この際は総当り法にしておくのが無難。）（４）（５）の置換は、置換操作をして、マクロの記録を採ってみて考えればわかる。ーーー（６）１つのシートしか対象にしてないVBAに慣れた者には、難しいのは、２つのブックや多数のシートを扱うので、シートやセルを指定するとき、上位のオブジェクトのブックやシート名を明確にエクセルに判るように記述しないとうまく行かない。ーーー上記（６）を含め、質問の書き振りからして、質問者には前途多難と思うが、１つづつやるよりほかなかろう。　　

n-jun
ベストアンサー率33% (959/2873)

2008/09/14 20:57 回答No.3

Sub test() Dim wsDATA As Worksheet Dim ws As Worksheet Dim r As Range 'データシート.xlsの一番左のワークシート Set wsDATA = Workbooks("データシート.xls").Worksheets(1) With wsDATA 'データシート.xlsの一番左のワークシートのB3～B列の最終まで実行する For Each r In .Range(.Range("B3"), .Cells(Rows.Count, 2).End(xlUp)) On Error Resume Next '【spring】【summer】【autumn】【winter】という名前のシートをセット Set ws = ThisWorkbook.Worksheets(r.Value) On Error GoTo 0 '無事にシートが見つかれば、単語の置換を実行 If Not ws Is Nothing Then ws.Range("D35").Value = Replace(ws.Range("D35").Value, "季節名", r.Offset(, 1).Value) ws.Range("F70").Value = Replace(ws.Range("F70").Value, "気候状況", r.Offset(, 2).Value) End If Next End With End Sub ご参考程度に。