Ｐａｇｅ 328 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼複数のシートを利用したいのですが・・ 山口 02/11/11(月) 14:03 ┗Re:複数のシートを利用したいのですが・・ Jaka 02/11/11(月) 15:10 ┗Re:複数のシートを利用したいのですが・・ 山口 02/11/11(月) 15:46 ┗Re:複数のシートを利用したいのですが・・ 山口 02/11/11(月) 16:28 ┗Re:複数のシートを利用したいのですが・・ Jaka 02/11/11(月) 16:49 ┗Re:複数のシートを利用したいのですが・・ 山口 02/11/11(月) 19:12 ─────────────────────────────────────── ■題名 ： 複数のシートを利用したいのですが・・ ■名前 ： 山口 ■日付 ： 02/11/11(月) 14:03 -------------------------------------------------------------------------
| 初めての質問です。 全くの初心者で、既存のマクロを修正して何とか利用している状況です。 下記のマクロで、所定の列のセル（シート１）をクリックすると 別のシート（シート２・・"業務処理簿"）の所定のセルに移動するようにして 利用していたのですが、 新しいシートを追加して（シート３・・"業務処理簿２"）の所定のセルに移動させたい のですが、どうしても出来ません。 下記のマクロをどのように加工していけばよろしいのでしょうか？ エクセルは『２０００』です。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 列 = Target.Column If 列 = 7 Then 行 = Target.Row 選択範囲 = Cells(行, 列 + 1) Worksheets("業務処理簿").Activate Worksheets("業務処理簿").Range(選択範囲).Select End If End Sub |
| こんにちは。 業務処理簿の変わりに業務処理簿２を選択するんだったら、 Worksheets("業務処理簿").Activate Worksheets("業務処理簿").Range(選択範囲).Select 上の"業務処理簿"を選択したいシート名に変えるだけです。 Worksheets("業務処理簿２").Activate こんな感じに。 業務処理簿は、選択しないで良いんですよね？ |
| 早速の回答有難う御座いました。 お礼と同時に厚かましいのですが、また質問です。 実は、"業務処理簿"と"業務処理簿２"を両方利用したいと考えております。 （前者のデータが膨大になりすぎたためです） 将来的には、"業務処理簿３"なんていうことも考えております。 |
| 自己レスなんですが、基本的に当初のマクロでは無理のような気がしてきました・・・。 基本がなっていないと大変なんですね。 |
| ▼山口 さん： >自己レスなんですが、基本的に当初のマクロでは無理のような気がしてきました・・・。 >基本がなっていないと大変なんですね。 質問の内容がちんぷんかんぷんでした。 ヒントになるかわからないけど．．。 こんな感じにすれば良いと思います。 条件式については、ヘルプで「条件」を調べてください。 If 業務処理簿が選択したいと思ったときの条件式 Then シート名 = "業務処理簿" ElseIf 業務処理簿２が選択したいと思ったときの条件式 Then シート名 = "業務処理簿２" Else シート名 = "業務処理簿３" End If Worksheets(シート名).Activate Worksheets(シート名).Range(選択範囲).Select がんばってください。 |
| 出来ました！ 原始的なやり方ではあるけれど、自分なりに何とか当初の目的を達成することが 出来て満足しております。 ＜ヒントが大変役立ちました＞ 本当に有難う御座いました！！ |