エクセル97で入力したシートをVBAプログラムで最後のシートの後ろにコピーするようにしています。何枚になるかはデータ量によりシート数が違ってきます。

処理が終了した後、コピーしたシートが何枚有るのかをVBAで把握する方法なり、コマンドなりを知りたいのですが。
ご存じの方教えて下さい。

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

A 回答 (1件)

97持ってないんで95でやってみましたがブック全体のワークシート数なら


ActiveWorkbook.Worksheets.Count
で解ります。
    • good
    • 0
この回答へのお礼

ありがとうございました。
カウントできました。
お陰様で、これで、今作っているプログラムが完成します。

お礼日時:2001/02/01 23:42

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

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

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

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

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

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

Aベストアンサー

こんにちは。

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

QエクセルVBAで、シートをコピーした際、コピーされた新しいシートのほう

エクセルVBAで、シートをコピーした際、コピーされた新しいシートのほうを指定する言葉を知りたい。
コマンドボタンにて、(1)内訳用シートをコピーで増やす。(2)新しいシートの番号を連番になるよう1増やす。(3)新しいシートのほうは入力しやすいよう、入力欄を消去する。シート名も1.2.3...とふえていくようにしたい。

新しくコピーされたほうのシートを指定したい場合はどのようなVBA用語になりますか?

いまは、元のシート指定方法しかわからないため、元シートの前にコピー作成し、元シートのNoを1増やし、データ消去で対応していますが、これだと、シート名に表示される内訳(1)(2)・・という番号になるので、できれば、コピーしたほうのシートを指定して、Noを1増やし、データ消去できれば解決するとおもうので。。いま、使ってるVBAはこんな式です。
ちなみにK6はシートNo、("B10:H30")("J10:K30")は入力欄です。


Private Sub CommandButton1_Click()


ActiveSheet.Copy Before:=ActiveSheet
Range("K6").Value = Range("K6").Value + 1

Range("B10:H30").ClearContents
Range("J10:K30").ClearContents


ActiveSheet.Select

ActiveSheet.Name = Range("K6").Value


End Sub

エクセルVBAで、シートをコピーした際、コピーされた新しいシートのほうを指定する言葉を知りたい。
コマンドボタンにて、(1)内訳用シートをコピーで増やす。(2)新しいシートの番号を連番になるよう1増やす。(3)新しいシートのほうは入力しやすいよう、入力欄を消去する。シート名も1.2.3...とふえていくようにしたい。

新しくコピーされたほうのシートを指定したい場合はどのようなVBA用語になりますか?

いまは、元のシート指定方法しかわからないため、元シートの前にコピー作成し、元シートのNoを1増やし、...続きを読む

Aベストアンサー

一番最後尾にデータの入っていないシートを
連番とダブらないような名前で作っておいて
Private Sub CommandButton1_Click()
Sheets(Sheets.Count).Copy Before:=Sheets(Sheets.Count)
NEWWS = Sheets.Count - 1
Sheets(Sheets.Count - 1).Name = NEWWS
End Sub
というのはどうでしょうか。

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

QExcel VBA シートのコピー時に、シート上のコンボボックスもコピーしたい。

こんにちは。
Excel VBAについて質問させていただきます。
やりたいことは、
シートAにボタンとコンボボックスを配置し、
コンボボックスには氏名の一覧を設定しています。
そこで、ボタンを押すとシートAをボタンとコンボボックスごと
シートBという名前でコピーをしたいと思っています。

ActiveSheet.Copy Before:=Worksheets(1)
でシート・ボタン・コンボボックスのコピーはうまく出来たのですが、
コンボボックスに設定していた氏名の一覧はコピーされていませんでした。

コピー先のシートのコンボボックスにもう一度氏名の一覧を
設定するしかないのでしょうか?
それともシートのコピー時に何かいい方法があるのでしょうか。

宜しければアドバイスをお願い致します。
OSはWindows2000Pro
Excelは2000です

Aベストアンサー

こんばんは。再度の登場です。

先の回答は、ListFillRangeプロパティを使用したものですのでコピーしても値は保持されますが、
質問者のように、AddItemメソッドでセットしたものはコピーしても保持されませんので改めてセットする必要があります。

現在”コンボボックスの中身もコピー”されてるようですが、
その中身のコピーを実行するタイミングを誤ると上手くいかない場合があります。
シートのコピーと同時に”中身のコピー”をするとそれは一見上手くいってるようでも
ブックを閉じて再度開いたときにはクリアーされますので、
コピーしてできたシートがActiveになるたびにそのシートのComboboxにも値をセットしなければいけません。
WorkBookOpenイベントでセットしているのは「元のComboboxにのみ」Listをセットしているわけですから。

●要約●
以下、コピーされてできた新しいシートは、見積書2、とする
(方法1)
「見積書2」がアクティブになる度に「見積書」のComoboxのListをコピーする
(方法2)
WorkbookのOpenイベントの”Function SetComboBox()”を標準モジュールへ移し、
「見積書」「見積書2」それぞれのActivateイベントで、”Function SetComboBox()”を呼び出す
その場合、”Function SetComboBox()”のComboboxのコンテナである固有のシート名は使わずに、ActiveSheetに変更しておく
(方法3)
WorkBookのOpenイベントでは、リスト一覧を配列変数に作成しておき
「見積書」「見積書2」がActiveになったときそのシート上のComboBoxのListに配列変数をセットする
 
●もし興味があれば、配列変数をListプロパティに直接セットするコードをアップしてもいいのですが。。。
 
それから、敬称Comboのリストは決まっているようですから、
別なシートのどこかのセルに一覧を作っておき、
ListFillRangeプロパティにセットしておけばいいですね。

以上です。

 

こんばんは。再度の登場です。

先の回答は、ListFillRangeプロパティを使用したものですのでコピーしても値は保持されますが、
質問者のように、AddItemメソッドでセットしたものはコピーしても保持されませんので改めてセットする必要があります。

現在”コンボボックスの中身もコピー”されてるようですが、
その中身のコピーを実行するタイミングを誤ると上手くいかない場合があります。
シートのコピーと同時に”中身のコピー”をするとそれは一見上手くいってるようでも
ブックを閉じて再度開いたとき...続きを読む

Q車のシートがベージュ

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


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


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

Aベストアンサー

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

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

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

Qエクセルの2枚のシートを1枚にコピーしたいです。

エクセルで2つのシートにデータを入力しました。
150人分くらいのデータです。

1枚目と2枚目どちらにも同じ150人の2種類のアンケートのデータが入っています。

これを1枚の紙に2つのアンケートをまとめてコピーしたいのですが、全くやり方がわからなくて困っています。

エクセルには回答のみ入力していまして
コピーする時には問題も付けて1枚にコピーしたいのです。

本当に困ってます。。。
詳しいかた、回答お願いします。

わかりにくい文章ですみません。。。

Aベストアンサー

会社のWORDが2000とのことなので、URLのやり方とはちょっと違います。

>「データファイルを開く」 → 「ワークシート全体」
>で「差し込みフィールドの挿入」で2枚のシートどっちともできるのでしょうか?

まず、これはEXCELのシートを1枚に加工しなおさないとダメです。
そしてWORD2000だと、EXCELの左端のシートしか参照できないので、
1枚差込専用データのシートを作って左端にドラッグします。
もしデータが縦長に入力されていたら、
A B C
1 問1 問2 問3 …
2 はい いいえ はい

こんな感じで横長にします。
EXCELデータを縦から横に並び方を変える方法はご存じですよね?
一応参考までに。
データが入っている範囲をコピー→形式を選択して貼り付け→
行列を入れ替える(E)にチェックを入れ、貼り付けで
縦が横に並び替えできます。

Q内装がベージュの軽

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

Aベストアンサー

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

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

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

Qエクセル97・ワード97・アウトルック97が入ったCD-ROMを小屋から発見しました。何につかえるでしょうか?

小屋の中を整理していたら7年前に買った
エクセル97・ワード97・アウトルック97が入った一枚のCD-ROMを発見しました。
(オフィス○○○○とはどこにも書いてありません)
現在持っている自作パソコンでOEM版のXPホームはあるんですが
エクセルなど高いので買っていませんでしたので
これを気に自作パソコンにインストールしたいと思っています。
そこで質問なんですが。
(1)これはエクセル2003とかにアップグレードすることができるのでし ょうか?
(2)XPでも使えるのでしょうか?
(3)機能的に97は使えるのでしょうか?
(4)その他 何か教えてください

回答お願いします。

Aベストアンサー

追伸です。

http://www.microsoft.com/japan/office/system/upgrade.mspx#EAAA
97はぎりぎりアップグレード版の対象になっているようです。

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

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

Aベストアンサー

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

QVBAでコピーした時コピー元のシートをアクティブ等

いつもお世話になります。
WINDOWS7 EXCELL2010 です。

下記で御指導いただいたばかりです。
http://oshiete.goo.ne.jp/qa/8787962.html

二つ質問があります。

「元本」のシートをコピーした時、コピー先がアクティブになります。
これを「元本」シートがいつもアクティブになるようにしたいのですが。

添付図のように最初にコピーの作業をした時は上手くゆくのですが二回目以降でこのボタンをクリックすると図のようになります。 もう一度クリックすると作動します。
同作業を繰り返すと同現象が発生します。

誠に恐れ入りますが 「1 と 2」の解決方法を御指導いただけないでしょうか。

参考に
Sub SheetCopy()
'
' SheetCopy Macro
' 元本のシートをコピーする
Dim NewSheetName As String

NewSheetName = InputBox("一桁の月及び日でも二桁のMMDD形式で新しいシート名を入力してください")

Sheets("元本").Copy After:=Sheets(1)
Sheets("元本 (2)").Select
Sheets("元本 (2)").Name = NewSheetName
Range("A1").Select
ActiveCell.FormulaR1C1 = NewSheetName
Range("A2").Select

Dim myBut As Object
For Each myBut In ActiveSheet.Buttons
If myBut.Caption = "SheetCopy" Then myBut.Delete
Next
End Sub

いつもお世話になります。
WINDOWS7 EXCELL2010 です。

下記で御指導いただいたばかりです。
http://oshiete.goo.ne.jp/qa/8787962.html

二つ質問があります。

「元本」のシートをコピーした時、コピー先がアクティブになります。
これを「元本」シートがいつもアクティブになるようにしたいのですが。

添付図のように最初にコピーの作業をした時は上手くゆくのですが二回目以降でこのボタンをクリックすると図のようになります。 もう一度クリックすると作動します。
同作業を繰り返すと同現象が発生...続きを読む

Aベストアンサー

最後の End subの直前にでも
Sheets("元本").Select
を挿入することで1は解決するでしょう。

でも2の方は再現できませんでしたのでわかりません。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング