excelのVBAで、シートを作成、シート名を設定という動作をさせています。for nextで必要な数のシートを
作成して、

シートの新規作成×10枚
新規作成"sheet1"→"個人情報1"に名称変更
新規作成"sheet2"→"個人情報2"に名称変更
・・・・・・
新規作成"sheet10"→"個人情報10"に名称変更
という動作をさせた場合、あと5枚足りないという場合、
次に作成されるシートの名称は、"sheet11"からになりますよね?
この場合sheet1から名称変更する命令なので、一旦ファイルをとじて、もう一度開かなくてはなりません。
作業中に、新規作成するシート名をsheet1にリセット
する方法は、ないものでしょうか?
また、オートシェイブの"circle1"とかも
できないもんでしょうか?
宜しくお願い致します。

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

A 回答 (2件)

こんなアプローチではどうでしょうか。


たぶんやろうとされていることは実現できると思うのですが。

1.現在あるシート/オートシェイプの数をカウント。
2.シート/オートシェイプを追加、同時に変数に代入。
3.先ほど追加したシート/オートシェイプの名前を[名前の固定値]+連番に変更(2で代入した変数を対象)。

コードにするとこんな感じで

Sub makeSht()
Dim ShtNum As Integer
Dim ShtName As String
Dim NewSht As Object

ShtNum = ActiveWorkbook.Sheets.Count
ShtName = "顧客情報" & ShtNum + 1
Set NewSht = Sheets.Add(after:=Worksheets(Worksheets.Count))
NewSht.Name = ShtName

End Sub

Sub AddAtShp()
Dim AtShpNum As Integer
Dim AtShpName As String
Dim NewAtShp As Object

With ActiveSheet
AtShpNum = .DrawingObjects.Count
AtShpName = "図形" & AtShpNum + 1
Set NewAtShp = .Shapes.AddShape(msoShapeDonut, 70 + AtShpNum * 10, 32.25, 39, 39)
NewAtShp.Name = AtShpName
End With
End Sub

(Excel97にて確認)
    • good
    • 0

現在ワークシート等を指定されるときに


( Worksheets("Sheet1")  )
というような指定をしておられると思いますが、
その部分を
Indexで指定されると良いと思います
( Worksheets(1) 記述で)
そうすると11枚目のワークシートを追加した場合でも
Worksheets(11) という記述で指定できます。
    • good
    • 0
この回答へのお礼

有り難うございました。早速やってみます。

お礼日時:2001/03/12 20:12

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

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

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

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

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

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

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

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

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

Aベストアンサー

こんにちは。

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

Q新規シートを作成してそのシートにマクロ

VBAで以下の様なマクロを組みたいです。
新規シートを作成する→その作られたシートにボタンを設置→ボタンにコードを組み込む
というマクロを組みたいのですが、そういうのは難しいでしょうか・・・

どなたかよろしくお願いします。

Aベストアンサー

>新規シートを作成する→その作られたシートにボタンを設置→ボタンにコードを組み込む
ですが、
新規シートを作成する→コードを組み込みこまれたボタンを張り付ける
では、だめなのでしょうか。

必要なコードを組み込んだボタンを準備しておいて

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

Qシートをコピーして新規シートへ値貼付け後、指定フォルダへ保存

題名の通りのVBAコードを作成したのですが、ファイルの保存先が、指定フォルダでは無く、
最後に指定したフォルダへ保存されてしまいます。

どこがおかしいのかご教示頂けますでしょうか。

Private Sub シート保存_Click()

Windows("A.xlsm").Activate
Dim FLname As String
Range("F11,G11").Select
FLname = "申込書_" & Range("F11") & "_" & Range("G11") & ".xlsx"

Workbooks.Add

ActiveWorkbook.SaveAs Filename:=FLname, FileFormat:=xlOpenXMLWorkbook

Windows("A.xlsm").Activate
Cells.Select
Selection.Copy
Windows(FLname).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ChDir "\\TEST\test"
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

題名の通りのVBAコードを作成したのですが、ファイルの保存先が、指定フォルダでは無く、
最後に指定したフォルダへ保存されてしまいます。

どこがおかしいのかご教示頂けますでしょうか。

Private Sub シート保存_Click()

Windows("A.xlsm").Activate
Dim FLname As String
Range("F11,G11").Select
FLname = "申込書_" & Range("F11") & "_" & Range("G11") & ".xlsx"

Workbooks.Add

ActiveWorkbook.SaveAs Filename:=FLname, FileFormat:=xlOpenXMLWorkbook

Windows("A.xlsm...続きを読む

Aベストアンサー

こんにちは


>ファイルの保存先が、指定フォルダでは無く、
>最後に指定したフォルダへ保存されてしまいます。
保存先としたいフォルダは、\\TEST\testということでしょうか?

>ActiveWorkbook.SaveAs~~
のところで、思い通りにならないのかと想像しますが、パラメータに
 Filename:="\\TEST\test\" & FLname
を加えてもうまくいきませんか?
https://msdn.microsoft.com/ja-jp/library/office/ff841185.aspx

Q車のシートがベージュ

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


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


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

Aベストアンサー

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

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

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

QVBAでの新規シート作成について

VBA初心者です。Excel2007、XPを使用しています。

シート1のA列からH列まで、数千行データがあります。
1行目は見出しです。

その中でG列に値が入っている、且つH列に指定文字以外の時、
D~Hを新規シートに表示したいです。

(例)
D / E / F / G / H
ID / 名前 / 品名 / 文言 / メーカー
123456 / 名前1 /  / A社
678910 / 名前2 / ○ / B社
111213 / 名前3 /  / C社
141516 / 名前4 / × / D社


→新規シート[B社]
678910 / 名前2 / ○ / B社

→新規シート[D社]
141516 / 名前4 / × / D社


こういった動作は可能でしょうか。
恐れ入りますが、ご教授お願い致します。

Aベストアンサー

補足を拝見しました。
ちょっとこれでも良く分かりませんが、つまり、

・G列に値が入っている
・H列が「E社」「F社」「G社」ではない

この二つを満たす場合に、D~H列を新規シートに、ということですね。
転記する新規シートはどこなのか、という条件が分かりませんが、例示によると、H列の値を
シート名とするシート、ということでいいんでしょうか。

D~H列まで5項目ありますが、データが4つしかないのは何か意味はありますか。
>678910 / 名前2 / ○ / B社


ざっくりでいえば、以下の方針で可能と思われます。

1.シート1の2行目から最終行までのループ
2.各行ごとにIf文で条件分岐
  G列が空白でない かつ H列が指定文字ではない
3.上記のIf文を満たしたら、転記すべきシート名を取得
  (H列の値?)
4.転記すべきシートが決まったら、そのシートの最終行を取得
5.そこにコピペ
6.繰り返し

Q内装がベージュの軽

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

Aベストアンサー

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

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

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

Q指定文字のみSheet1からSheet2へコピー

ExcelSheet1に表ー1のように氏名の列に記号が入力されています。
B列の指定記号(A,C,F,H)のみSheet2にVBAコードにてコピーしたいのですが。
尚、A列氏名は元々入力されています。
因みに、Sheet2の先頭列がSheet1と同様ですがコピー位置がE1等、任意に設定したいのですが。
どなたか解る方よろしくお願いします。

Aベストアンサー

>sheet2へ列をずらして(先頭列CをFへ)コピーできないでしょうか。どうかよろしくお願いします。

Sub ボタン1_Click()
Dim r As Range
ST = InputBox("元データの列")
EN = InputBox("挿入先の列")
For Each r In Range(ST & "1:" & ST & 10)
If WorksheetFunction.CountIf(Range("B10:B20"), r.Value) Then
Sheets("sheet2").Range(EN & r.Row).Value = r.Value
Else
Sheets("sheet2").Range(EN & r.Row).Value = ""
End If
Next
End Sub

こういった書き方は参考になるでしょうか。
エラー処理はしていません。
コピーしたい元データ列を取得する方法
データを入れたい列の取得する方法は?
とりあえず Inputbox にしましたが。

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

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

Aベストアンサー

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

QVBA yがシート名の時Sheets(y)としたい

VBAにて

sheets("5") ”5”という名前のシートが有るとして、

y=5の時に
Sheets(y)としてSheet("5")と同じことを意味するには、
Sheets(y)のyをどのように書けば良いのでしょうか?

例えばSheets("y")ではダメですよね。
どなたか教えてください。お願いします。

Aベストアンサー

下記でもできますが
方法をすぐに忘れてしまいますね。
前の回答のほうがいいと思います。
もしくは、
数字でない文字を組み合わせたシート名にすればご希望のような書き方ができると思います。

Dim y As Long
y = 5
Sheets("" & y & "").Select


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

人気Q&Aランキング

おすすめ情報