表示するSheetを変えるボタンを作っています。宜しくお願いします。

ファイル(1)のSheet1~Sheet5 と Sheet7 のそれぞれのシートにSheet6へ行くボタンを作っています。
「WorkSheets("Sheet6").Activate」でしています。
で、Sheet6には戻るボタンを作りたいのですが、どこのシートから来たのかを認識して、該当シートへ戻るようにしたいのですがどのようにしたらよいでしょうか?(シート6へ行くボタンを押したシートに戻る)

更に、同様の処理が、WorkBook間でも処理ができるようにしたいのです。
ここは、「WorkBooks(ファイル(2).Xls)WorkSheets(”Sheet1”).Activate」をファイル(1)の各シートに書いて処理させています。ここから戻るボタンの方法もお願いします。

宜しくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (5件)

Public fukkiSheetNo As Integer '復帰するシート番号


を標準モジュールに書いていませんか?
以前の終了ボタンと同じで、ThisWorkbookのコードウインドウに貼り付けます。2つのブックの開き方も終了ボタンの時と同じです。終了ボタンがうまくいっていればこれも同じ理屈ですが・・・
    • good
    • 0
この回答へのお礼

すみませんでした!ファイル名をタイプしていました。本当にすみません!お恥かしい次第です。

ばっっっっりちOKです。

ありがとうございました。

お礼日時:2001/06/18 22:57

移動Book1.xls(シート1~7)、移動Book2.xls で書きました。

ファイル名は変更してください。

'シート1~5、7にはボタン2個。各シートのコードウインドウに貼り付けます。
Private Sub cmdJump6_Click() 'シート6に行くボタン
Workbooks("移動Book1.xls").fukkiSheetNo = Right(Me.Name, 1)
Worksheets("Sheet6").Activate
End Sub

Private Sub cmdJumpBook2_Click() 'ブック2に行くボタン
Workbooks("移動Book1.xls").fukkiSheetNo = Right(Me.Name, 1)
Workbooks("移動Book2.xls").Worksheets("Sheet1").Activate
End Sub

'シート6はボタン1個。シートのコードウインドウに貼り付けます。
Private Sub cmdFukki_Click() '元のシートに復帰するボタン
Dim jmpNo As Integer '復帰するシート番号
jmpNo = Workbooks("移動Book1.xls").fukkiSheetNo
Worksheets("Sheet" & jmpNo).Activate
End Sub

'ThisWorkbookのコードウインドウに貼り付けます。これをBook2から参照する。
Public fukkiSheetNo As Integer '復帰するシート番号

'ブック2のシート1のコードウインドウに貼り付けます。
Private Sub cmdJumpBook1_Click()
Dim jmpNo As Integer '復帰するシート番号
jmpNo = Workbooks("移動Book1.xls").fukkiSheetNo
Workbooks("移動Book1.xls").Worksheets("Sheet" & jmpNo).Activate
End Sub

この回答への補足

ありがとうございます。

早速試してみましたが、
   Workbooks("移動Book1.xls").fukkiSheetNo = Right(Me.Name, 1)
でのところで止まります。

  ”オブジェクトは、このプロパティまたはメソッドをサポートしていません。”

と出ます。なぜでしょう????????

ファイル名は、自分のものに変えました。よろしくお願いします。

補足日時:2001/06/17 03:03
    • good
    • 0

>ファイル(1)のSheet1~Sheet5 と Sheet7 のそれぞれのシートにSheet6へ行くボタンを作っています。


>「WorkSheets("Sheet6").Activate」でしています。
>で、Sheet6には戻るボタンを作りたいのですが、どこのシートから来たのかを認識して、該当シートへ戻るように
>したいのですがどのようにしたらよいでしょうか?(シート6へ行くボタンを押したシートに戻る)

考え方だけ説明の為に書きましたので、きたない書き方になってます。

■Sheet1(シート6に移動する)

Private Sub CommandButton1_Click()

Sheets("Sheet6").Select
Sheets("Sheet6").Cells(1, 1).Value = "Sheet1" ←実際にはCells(1, 1)にワークの情報を書いたら邪魔
                             になるので、邪魔にならない場所に書く

End Sub



■Sheet2(シート6に移動する)

Private Sub CommandButton1_Click()

Sheets("Sheet6").Select
Sheets("Sheet6").Cells(1, 1).Value = "Sheet2" ←実際にはCells(1, 1)にワークの情報を書いたら邪魔
                             になるので、邪魔にならない場所に書く

End Sub

■Sheet3~5も同様

■Sheet6 (呼ばれたシートに戻る所)

Private Sub CommandButton1_Click()

Sheets(Cells(1, 1).Value).Select

End Sub

>更に、同様の処理が、WorkBook間でも処理ができるようにしたいのです。
>ここは、「WorkBooks(ファイル(2).Xls)WorkSheets(”Sheet1”).Activate」をファイル(1)の各シート
>に書いて処理させています。ここから戻るボタンの方法もお願いします。

上記と同じ考え方で、ファイル名のセルを追加します。
試しに、確認用のマクロを書いて見たら1回目はうまく動きましたが、2回目以降は、既に開いているEXCELシート
をまた、開きに行くので確認メッセージが出てしまいました。(出さない為の指定方法とか有るかもしれないが調べていません、分からないようでした質問してください。その時調べます。)
この問題は、別問題なので取りあえず参考にして下さい。

この回答への補足

ありがとうございます。うまくいきました。
>2回目以降は、既に開いているEXCELシートをまた、開きに行くので確認メッセージが出てしまいました。
については、もう少しじっくり考えてみます。

補足日時:2001/06/17 02:54
    • good
    • 0

こんにちは



 以下のページがご参考になるのでは?

【エクセル技道場】-ツールバー-マクロでツールバー作成
http://www2.odn.ne.jp/excel/waza/toolbar.html#SE …

参考URL:http://www2.odn.ne.jp/excel/waza/toolbar.html#SE …
    • good
    • 0

移動先のシートの見えないセルに、どこから呼ばれたか書いておいたらどうでしょうか?(WorkBook名とシート名)

この回答への補足

すみません!まだまだ初心者なので、どこからどうしたら呼ばれたかを書く方法が分かりません。よろしかったら、詳しくお願いできませんか?

補足日時:2001/06/15 20:53
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qチャイルドシートは、汚れが目立つの?(ベージュ)

チャイルドシートの購入を考えています。
実際に利用されている方に質問です・・

実際に使ってみると、チャイルドシートは、
どれくらい汚れるものでしょうか?

車の内装にあわせ、ベージュ、白系のチャイルドシートの
購入を考えていますが、汚れが目立つのでは?っと心配しています。
アドバイスをお願い致します。

Aベストアンサー

こんにちは。

うちもベージュ系ですが、汚れはそんなに目立ちませんよ!
座ってるだけなので、靴の汚れやたまにパンやお茶を飲ませたりするのでその汚れぐらいです。
以前ベビーカーを購入したときに、赤ちゃんの汚れはミルクやよだれが多いので却って黒など濃い色の方が目立ちますよって店員さんに言われました。

QWorksheets("Sheet1").ActivateのActivateの反対語は

ACCESSのVBAからの操作です
-----------------------------------------------

Set Xls = GetObject(myFile2)
Xls.Application.Windows(1).Visible = True
Xls.Application.worksheets("Sheet1").Activate<---
------------------------------------------------
上記でActivate、の反対にしたいとき、何ですか
最後のポイント↓を入れると
("Sheet1").<---
選択値が出てくる場合がありますが(この場合ではない)
この場合選択値がでないので、

よろしくお願いします

Aベストアンサー

通常、どれかのシートが Active 状態なので、
他のどれかのシートを Activate します。
すると前のシートはアクティブではなくなります。

英語上では Disactivate ですが、Excel VBA の Worksheet オブジェクトには Disactivate メソッドがありません。

Q新車購入について相談 (内装・シートカバー・スライドドア・ナビ・購入時期など)

トヨタのシエンタ(パールシルバー)のGグレード購入を考えてます。
1年以上検討したので、焦らないほうがとは思いますが、レンタカー代などもかかり、今月中には買いたいと・・・。
1つでもご回答お願いします。

(1)Gグレードを選ぶと、内装は自動的にベージュです。
(内装を黒にしたいならSエディションになる)内装はベージュの方が広く感じそうだと異議なしのつもりでしたが、兄は「外装白にするなら絶対黒だと思う」と。しかしSエディションにすると、標準装備が落ちます。
やはり内装はベージュより黒のほうが合いますか?

(2)シートカバーについて
母は純正ベージュ皮調シートカバーや、インテリアの木目調パネルに惹かれていますが、高いし購入に迷っています。
どう思われますか?

(3)Gグレードは助手席側後席が電動スライドドア標準装備です。運転席側後席も電動にしたいならプラス5万です。以前「両側電動スライドドアは本当に便利」という声を何度か読んだのですが(口コミの掲示板)どうですか?

(4)純正HDDナビを考えてます。デュアル画面(助手席ではDVDが見え運転席ではナビが見れる、また運転中でも助手席ではナビの操作をできるというもので、惹かれますが一番高い)はいいですか?
また、音楽保存できるんだからMDはいらないと思ってましたが、自分の手持ちのMDの多さや、乗車する人がMDを聞きたいかもと思い、MD付がいいかと迷っています。
また、ハンディフリーなどのblueなんとかとかは、便利ですか?
画面の種類もいろいろあります。
純正ナビでお勧めはなんですか?

(5)購入時期ですが、11月中に買おうとしていますが、
ちょっとのことで1月までまてば「19年前期車」となり査定の時など全然違うと聞きましたがどう思われますか?

トヨタのシエンタ(パールシルバー)のGグレード購入を考えてます。
1年以上検討したので、焦らないほうがとは思いますが、レンタカー代などもかかり、今月中には買いたいと・・・。
1つでもご回答お願いします。

(1)Gグレードを選ぶと、内装は自動的にベージュです。
(内装を黒にしたいならSエディションになる)内装はベージュの方が広く感じそうだと異議なしのつもりでしたが、兄は「外装白にするなら絶対黒だと思う」と。しかしSエディションにすると、標準装備が落ちます。
やはり内装はベージュ...続きを読む

Aベストアンサー

(1)車のキャラからいって、内装はベージュのほうが合っている感じがします。(もう少し言うと、キャラから考えて白はあまりふさわしくないような・・・)

(2)どちらもいらないと思いますが・・・特にシエンタに木目は不要だと思います。車格が低いので。

(3)実際に後席ドアをどれだけ使うかの頻度によって違ってくると思いますし、駐車場の関係で、どちら側をよく使うかというのも関係するでしょう。また、坂道に止めることが多ければかなり重宝するでしょうね。ただ、シエンタくらいのコンパクトな車のドアは、比較的軽く閉められるので、展示車などで効果のほどを確かめたほうが良いと思います。

(4)私個人の考えですが、助手席側だけDVDを観るシチュエーションが想像できません。普通のものでじゅうぶんだと思います。ただ、私は社外品をオススメします。身内が今年購入したヴィッツの純正HDDナビ、「最低」でした。道路や案内ルートがよく似た色ばかり使って本当に見づらく、操作性も悪くて、直感的に使えない駄作だなと思いました。カロッツェリアの楽ナビあたりなら、親切度や測位も高レベルで安価ですよ。MD再生OKの機種もありますし、カー用品店の作業員に頼めば、走行中の操作もOKになりますしね(運転者は走行中操作しないこと!)。ハンズフリーやbluetoothは、よほど頻繁にかかってくる人でない限り実用性はないでしょう。

(5)「全然違う」とまではいかないと思います。確かに2年くらいで乗り捨てるようであれば大きく変わるでしょうが、5年、10年使うならさほど変わらないでしょう。5年で4,5万(2,3万かも)の違い、10年でほとんど違いなしかと思います。シエンタは来年あたりには生産中止で消滅濃厚モデルなので、プレミアがつくか、マイナー不人気中古車になるかですが・・・おそらく後者が濃厚なので、長く乗りつぶしてあげるほうが吉だと思います。

(1)車のキャラからいって、内装はベージュのほうが合っている感じがします。(もう少し言うと、キャラから考えて白はあまりふさわしくないような・・・)

(2)どちらもいらないと思いますが・・・特にシエンタに木目は不要だと思います。車格が低いので。

(3)実際に後席ドアをどれだけ使うかの頻度によって違ってくると思いますし、駐車場の関係で、どちら側をよく使うかというのも関係するでしょう。また、坂道に止めることが多ければかなり重宝するでしょうね。ただ、シエンタくらいのコンパクトな車のドアは...続きを読む

QエクセルVBAでSheet1.ActivateとSheet(n).Activate

エクセル2000です。
VBAでの疑問点を教えてください。

Sub test1()
Sheet1.Activate
MsgBox ActiveSheet.Name
End Sub

これは問題なく作動します。

Sub test2()
x = ThisWorkbook.Worksheets.Count
For n = 1 To x
Sheet(n).Activate
MsgBox ActiveSheet.Name
Next
End Sub

これは「SubまたはFunctionがていぎされていません」というエラーになります。

もちろん、
Sub test3()
x = ThisWorkbook.Worksheets.Count
For n = 1 To x
Sheets(n).Activate
MsgBox ActiveSheet.Name
Next
End Sub
のように書けばOKなのは存じておりますが、これではSheet名に係らず、左から順番となってしまいます。

Sub test4()
x = ThisWorkbook.Worksheets.Count
For n = 1 To x
Sheets("Sheet" & n).Activate
MsgBox ActiveSheet.Name
Next
End Sub
のように明確にシート名として記述すればOKなのですが、それでは、Test1のSheet1.Activate が通って、Sheet(n).Activate が通らないのはなぜでしょう?
しょうもない質問でごめんさない。

エクセル2000です。
VBAでの疑問点を教えてください。

Sub test1()
Sheet1.Activate
MsgBox ActiveSheet.Name
End Sub

これは問題なく作動します。

Sub test2()
x = ThisWorkbook.Worksheets.Count
For n = 1 To x
Sheet(n).Activate
MsgBox ActiveSheet.Name
Next
End Sub

これは「SubまたはFunctionがていぎされていません」というエラーになります。

もちろん、
Sub test3()
x = ThisWorkbook.Worksheets.Count
For n = 1 To x
Sheets(n).Activate
MsgBox ActiveSheet.Name
Nex...続きを読む

Aベストアンサー

Sheet1 は Sheet1 という(Worksheet を継承した)オブジェクトなんです。

Sheets(n) や Sheets("Sheet" & n) は

Sheets コレクションのなかの n 番目、"Sheet" & n というシートということです。Sheets(index)プロパティで Worksheet オブジェクトを返します。

Sheet(n) はそもそも Sheet というオブジェクトがないのでエラーになってしまうというわけです。

Q車のシートがベージュ

車のシートがベージュだと汚れやすいですか?
万が一珈琲やコーラ等の黒い液体をこぼした場合、
染みになりますか?
それともある程度撥水してすぐ拭き取れば大丈夫ですか?


新車を購入するのですが、
欲しい車の好きな色だとシートの色がベージュしかないのです。
(フィットハイブリットの赤)


子どもが小さくて汚すので、
ベージュのシートは不安です・・・。
実際に淡い色のシートをお使いの方、感想を教えてください<(_ _)>

Aベストアンサー

私は5ヶ月前に新車でランドクルーザープラドを購入しました。が、東日本大震災やタイの洪水などあって納車は3ヶ月半待ち。私も内装は黒が好きなので(ボディーはパールホワイト)黒を注文しました。
しかしディーラーの注文ミスで標準色のベージュが来てしまいました。再度注文と担当者に言いましたが、また同じ様に3ヶ月ほど納期がかかるという事で10万円分の追加オプションを付けて貰いしぶしぶ納得しました。今まで内装は黒しか乗った事が無いので最初は本当に抵抗ありました。でも人間なんでも慣れですね。普通に乗っていると少し時間が経つとなんだベージュもなかなか良いじゃん。ってなりました。
私もなんで内装は黒かと言うとやはり汚れです。黒はホコリなどは目立ちますが、飲み物をこぼした時などサッと拭いておけば全く目立ちませんもんね。ベージュだとそう言う訳には行きませんからね。そこで私もオススメなのがシートカバーです。純正品は高価なのでホームセンターなど売っている自社ブランドでほぼ全サイズ適用なシートに被せるだけの物が売っています。運転、助手席はもちろん2列目シートに付けてます。お子様の食べこぼしや飲みこぼし位ならほぼこれで防げると思いますよ。カバーが汚れればまた買えば良いんですからね。ちなみに運転、助手席は各980円後部座席は1480円でした。3つ合わせても4000円弱ですからね。内装色か嫌だからってボディーのカラーは絶対に妥協しない方が良いですよ。

本当にグタグタ長々と申し訳ありませんでした。

私は5ヶ月前に新車でランドクルーザープラドを購入しました。が、東日本大震災やタイの洪水などあって納車は3ヶ月半待ち。私も内装は黒が好きなので(ボディーはパールホワイト)黒を注文しました。
しかしディーラーの注文ミスで標準色のベージュが来てしまいました。再度注文と担当者に言いましたが、また同じ様に3ヶ月ほど納期がかかるという事で10万円分の追加オプションを付けて貰いしぶしぶ納得しました。今まで内装は黒しか乗った事が無いので最初は本当に抵抗ありました。でも人間なんでも慣れですね。普通...続きを読む

Qsheets() と worksheets() の違い

基本的な内容になるのかもしれませんが、ヘルプや他の方のプログラムなどを読んでも、いまひとつ理解できないので、質問させていただきました。

EXCELのVBAの記述で、仮に

Worksheets("sheet1").Select
Worksheets("sheet1").Visible = False
としても

Sheets("sheet1").Select
Sheets("sheet1").Visible = False

としても同じ結果になります。私は普段後者のSheets()という記述をしているのですが、人によってはWorksheets()を使用されている方も見受けられます。

この2つどのような違いがあるか教えていただければ、とてもうれしいのでが。

Aベストアンサー

エクセルのシートにはワークシート以外にもグラフシートやダイアログシートなどがあります。
Sheets("sheet1")は、そういうシートの種類を区別せず、sheet1という名前のシートを指します。
Worksheets("sheet1")は、あくまでワークシートの中でsheet1という名前のシートを指します。
実際には、グラフシートやダイアログシートなどの名前をワークシートと同じにすることが出来ないので区別しなくとも通常は影響しませんが、シートの種類を限定してなんらかの操作を行ないたい場合には明確に使い分けなくてはなりません。

Q内装がベージュの軽

内装がベージュ系統の軽を探しています。現在検討しているのは、スズキMRワゴンかラパン、ホンダライフ等なんですが、色々見ているうちに自分の希望がわからなくなってしまいました。以前は興味なかったものでも真剣に考えたり、またその逆だったり。。。そこで何かみなさんの意見が聞きたいのです。勿論内装の話だけでなく、視界の見渡し、運転のしやすさ、手入れのしやすさ等の意見も聞かせてください。他の軽もお勧めがありましたら宜しくお願いします。
とにかくベージュ仕様(白~ベージュ~オレンジ系統。青~グレー~黒系統を除いたもの)を第一条件と考えています。安らぐような、やわらかい可愛い雰囲気が希望です。日産マーチ(普通車ですが)のエクリュみたいなものだと可愛いんですが、ちょっと汚れが心配。。。その辺はどうなんでしょうね。ちなみに日産モコは可愛いのですが割高?なので検討外です。

Aベストアンサー

こんばんはです。
お勧めは絶対にラパんです。
私は、ラパン、MRワゴンをディーラーの展示車を見てきてます。ラパンは室内の開放感が良く、室内のシートなど布製品の触り心地が感動でした。あと運転席から車のボンネットの左右の角がよく見え運転しやすそうでした。

 MRワゴンは室内の開放感がラパンに比べて苦しかったです。座ってみて肩の上からの頭上空間がせまいのです、ドアガラスが近いような気が・・・。

やっぱり高い買い物なので後悔のないように展示車や試乗車を運転したり触ったりして、comuneさん自身の感覚で決めるのが一番だと思いますよ。

QSheet1に元がありSheet2で分けたものをSheet1で選択する方法がないですか?

またまた、質問させてください。

Sheet1が元ファイルSheet2に分けたものがあります。

-----------------------------------------
Sheet1

  A  B  C  D
1 sb
2 sg
3 sh
4 sm
5 ko

-----------------------------------------
Sheet2

  A  B  C  D
1 sb  sg  sh sm
2 ko
3 
4
-----------------------------------------

Sheet2のA列のものだけSheet1で選択したいのですがなにか方法がないでしょうか?

Aベストアンサー

No.1です。

>コピーして隣のセルに貼り付けすると詰まって貼り付けされてしまいますがそのまま貼り付けすることはできるのでしょうか?

単純にSheet2のA列データをSheet1のA列と一致する行のB列に表示すればよいわけですね?
やり方を全く変えてみました。
今回も標準モジュールです。

Sub Sample3()
Dim i As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
For i = 1 To wS.Cells(Rows.Count, "A").End(xlUp).Row
Set c = .Range("A:A").Find(what:=wS.Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(, 1) = wS.Cells(i, "A")
End If
Next i
End With
End Sub

何とかお望みどおりにならないでしょうか?m(_ _)m

No.1です。

>コピーして隣のセルに貼り付けすると詰まって貼り付けされてしまいますがそのまま貼り付けすることはできるのでしょうか?

単純にSheet2のA列データをSheet1のA列と一致する行のB列に表示すればよいわけですね?
やり方を全く変えてみました。
今回も標準モジュールです。

Sub Sample3()
Dim i As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
For i = 1 To wS.Cells(Rows.Count, "A").End(xlUp).Row
Set c = ....続きを読む

Q車の内装の合皮補修内装の合皮部分が汚れていて、内装を拭くシートで擦ったら、合皮は黒なのですが、擦っ

車の内装の合皮補修
内装の合皮部分が汚れていて、内装を拭くシートで擦ったら、合皮は黒なのですが、擦った部分が少し白きなってしまいました…
自分で補修したいと考えてますが、何か良い補修クリームみたいな物はないでしょうか?
傷は付いていません、擦りすぎで少し白くなってしまったのです…
良い物があれば、教えて下さい。
お願いします。

Aベストアンサー

多少ツヤ質感差は出てしまいますが、革靴用の”乳化性クリーム”黒を少量薄く塗って乾拭きすれば良いです。
WAX系の靴墨と間違えない様にしてください。
合成皮革の汚れを落とす場合、車用の内装クリーナーだとアルコール系の溶剤が入っていることがあるのでお勧めしません。
薄めた中性洗剤を含ませて絞ったタオルで拭くか、革靴用の汚れ落とし用クリーナーで拭くのが良いです。

QIE6で戻るボタンを大きくしたい

IE6で戻るボタンを大きくしたいのですが、設定でボタン名を表示する、大きいアイコンにはしていますがこれ以上大きくするのは不可能でしょうか?
IE5.5のときより小さくなったような気がしますが・・・

Aベストアンサー

BackSpaceのキーで代用するのもアリかと、、、


人気Q&Aランキング

おすすめ情報