• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：シート及びファイル名の付け方 その２）

シート及びファイル名の付け方 その２

このQ&Aのポイント
  • Windows XP EXCEL 2003で、マクロを実行した時に、アクティブなシートに関係なく、シート「FUKU」に名前が付くようにしたいです。
  • マクロを使用して、アクティブなシートに関係なくシート「FUKU」に名前を付ける方法について教えてください。
  • Windows XP EXCEL 2003でのマクロ実行時に、アクティブなシートに関係なくシート「FUKU」に名前を付ける方法を教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • hige_082
  • ベストアンサー率50% (379/747)
回答No.1

http://okwave.jp/qa5337026.html とほぼ同じ質問ではないのか？ この様な質問の仕方は禁止（禁止事項ガイドラインで）されているはず worksheets("FUKU").name = target.value

dorasuke
質問者

お礼

このような質問をしたのは悪意はなかったのです。 前の質問が何となく説明不足を感じより分かりやすくとマクロが違っていたので再度質問するような形になり深く反省しています。 誠にご指導いただき有難うございました。 私が思う通りにできました。　

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • シート及びファイル名の付け方

    Windows XP EXCELL2003です。 いつもお世話になります。 すでに下記でご指導いただきました。 http://oshiete1.goo.ne.jp/qa5331087.html ご教授を仰ぎたいのは 　マクロを実行 した時この場合は アクティブなシートに名前がつきますが これをアクティブなシートに関係なく、シート「FUKU」に名前が付くようにしたい野ですがご教授いただけないでしょうか。 マクロは下記のように入っています。 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then ActiveSheet.Name = Target.Value ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Target.Value End If End Sub よろしく御願いします。

  • ファイル名を半自動から自動化に

    いつも御世話になります。 現在は下記のようにしてファイル名を半自動で保存しています。 ご指導をいただきたいのは可能ならばもう一歩進めて完全に自動化できないかを仰ぎたく考えています。 全然無知な私が考えるに、マクロを何らかに変えれば可能性があるような気がするのですが如何でしょうか。 もしなんらかの方法で可能ならばご教授いただければ幸です。 現在の半自動とは　　A4　にある値を　 コピー 編集 形式を選択して貼り付け 値 A1(FUのところに)に貼り付けるとそのままファイル名てとして保存されます。 当然「シートFU」にも名前がつきます。 シート「FU」には次のように マクロ Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then ActiveSheet.Name = Target.Value ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Target.Value End If End Sub 数式 A4 = A5 & " " & B5 A5 =IF(A7="","",TEXT(A8,"mm")&A7) A7 =納請書１!A2 A8 =納請書１!G4 B5 =納請書１!B6

  • シートの移動又はコピー　したシートの値のクリアー

    WINDOWS XP EXCELL ２００３です。 「値のクリァー」のマクロはすでに、 ここで御指導いただいたマクロは下記です。 http://okwave.jp/qa/q6663748.html Sub Clear() On Error Resume Next range("H2,G4,C10,C15,F15,G15").SpecialCells(xlCellTypeConstants).ClearContents End Sub 上記マクロは「納請書３」にそうにして「シート追加」で「納請書４」作成したところ下記のマクロを実行すると「納請書３」のシートの値がクリアーになります。 御指導いただきたいのは既に「納請書３」値が有りこれはクリアーしたくありません。 新たにシートを追加してゆくと前のシートの値か残り追加シートの値をクリアーするにはクリアーは可能でしょうか。 もし可能ならば「値のクリアー」のマクロをどう変更すればいいのかご教授いただけないでしょうか。 よろしく御願いします。 ※　参考で既に「納請書３」のシートには下記マクロの２点が登録しています。 １　　「シートの追加」のマクロが下記です。 Sub シートの追加() 　　 Dim NewNo As Integer 　　NewNo = Sheets("月請求書").Index Sheets("納請書3").Copy Before:=Sheets("月請求書") 　　ActiveSheet.Name = "納請書" & NewNo 　 ActiveSheet.Range("G4").Value = "" End Sub ２　　日付とシート表示の色付け 　　　Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$10" Then Target.Offset(-6, 2).Value = Date End If If Target.Address = "$G$15" Then ActiveSheet.Tab.ColorIndex = 49 End If End Sub

  • マクロでのシートの連番について

    WindowsXP EXCELL2003 いつも御世話になります。 「マクロ実行」でシートの追加はすでに下記でご指導いただきました。 http://oshiete1.goo.ne.jp/qa5351508.html ご指導を仰ぎたいのは、 「納請書」が現在　１～３　迄は作成しています。 例えば 下記マクロを実行して このシート(納請書)を順次追加した時に シート名が「納請書4」「納請書5」「納請書6」と表示することは可能でしょうか Sub シートの追加() Sheets("納請書3").Copy Before:=Sheets("月請求書") ActiveSheet.Name = "納請書" & Worksheets.Count End Sub 　このマクロで実行すると「納請書10」からはじまります。 現在、シート数は　９シートを使用している結果だと思います。 もし可能ならば、 ご指導よろしく御願いしくます。

  • 同ブック内でシートを追加したときにシート名と連番が

    WindowsXP EXCELL2003 いつも御世話になります。 何とか自分で作りたく色々調べてトライしましたが分からなくなりご教授を願う事になりよろしく御願いします。 仰ぎたいのは 納品書と請求書が一緒になった　・シート名「納請書１」、　がA4で１枚になったシートがあります。 とりあえずこの納請書なるものは３シート用意しています。 受注が追加されるごとに「納請書３」のシートコピーをして「納請書４」その都度追加します。 これをマクロの実行とか何かの方法で追加することは可能でしょうか。 もし可能ならばいい方法をご指導いただけませんでしょうか。 取り合えず１例で下記のマクロを Sub シートの追加とプロパティ操作() Dim NewWS As Worksheet Set NewWS = Worksheets.Add(After:=Worksheets("納請書3")) With NewWS .Name = "納請書4" .Columns.ColumnWidth = 20 End With End Sub このやり方は私か調べた物でトンチンカンかも知りません。 「マクロの実行」 Sheet3シートの追加とプロパティ操作 で「実行」すると次のように出ます。 「インデックスが有効範囲にありません」

  • セルの値をファイル名にするには

    現在下記のマクロを入力しています。 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$10" Then Target.Offset(-6, 2).Value = Date End If End Sub この時　ファイル名を　SHEET1のA1　セルの値を利用してファイル名にするために下記の内容を入れてブックを保存したいと考えています。 上記のマクロが入っていないときは上手く行くのですが下記を追加するにはどうすればいいかご指導いただけませんでしょうか。 宜しく御願いします。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then ActiveSheet.Name = Target.Value ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Target.Value End If End Sub

  • マクロで値なしでシートをコピーしたい

    受注が追加されるたびに「納請書3」をペースに下記のマクロでシートを追加コピーします。 シートを追加すると　G4 の発行日の値もそのままにコピーされ追加の都度消しています。 ご指導を仰ぎたいのは、 シートをコピーしたときは　G4 　の値は表示させたくないことが可能でしょうか。 可能ならご指導いただけませんでしょうか。 ※C10 に件名を入れたときにG4に発行日が表示されるマクロは下記です。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$10" Then Target.Offset(-6, 2).Value = Date End If End Sub ※シートの追加のマクロです。 Sub シートの追加() Dim NewNo As Integer NewNo = Sheets("月請求書").Index Sheets("納請書3").Copy Before:=Sheets("月請求書") ActiveSheet.Name = "納請書" & NewNo End Sub 宜しく御願いします。

  • シートを追加したときにタイトルの連番も自動で

    WindowsXP EXCELL2003 いつも御世話になります。 納品書と請求書が一緒になった　「納請書」　がブックには３シートを用意しています。 受注が追加されるごとにこの「納請書3」のコピーとして追加します。 図で言うと「納請書4」という具合にです。 この場合 「納請書3」のコピーですからタイトルは B3　納品書(３) B32 請求書(３)　　　となりこれを B3　納品書(４) B32 請求書(４) と自動的に変えられる方法はないでしょうか。 可能ならばご指導いただけませんでしょうか。 ※現在は　入力規則　でその都度、手動で対応していますが結構変更ミスが多く防止をしたいためです。 シートのコピーのマクロは以下です。 Sub シートの追加() Dim NewNo As Integer NewNo = Sheets("月請求書").Index Sheets("納請書3").Copy Before:=Sheets("月請求書") ActiveSheet.Name = "納請書" & NewNo End Sub

  • シート名を自動で

    久し振りにお世話になります。 よろしく御願いします。 windowsXP EXCELL2003 です。 下記を採用しました。 表題 「エクセルのセルに名前を入力するだけで自動的にそのシートタブもその名前に」 アドレス http://oshiete1.goo.ne.jp/qa5775792.html 内容 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Cells = Range("A1") And Range("A1") <> "" Then ActiveSheet.Name = Range("A1").Value End If End Sub でばっちりできました。 ただ　何かのミスで A1 の内容を変更した場合シート名が変わりません。 １　もし A1 が変更された時シート名も変更されることが可能でしょう　　か。 ２　大変厚かましいのですが追加の要望としてシートの色(コード２０)　　もつけられれば良いのですが。 もし可能ならば上記の「内容」をどう変更すればいいかご教授ご指導を仰ぎたいです。 よろしく御願いします。

  • VBA中の”シート名”を”アクティブシート”に変更

    いつもお世話になっております。 非常に初歩的な質問なのですが、下記の2つのVBA中のシート名をアクティブシートに変更したいのですが、 sheetName = ActiveSheet.Name で試行錯誤するもうまくいきません。 実際のコードは下記の通りです。 これらのシート名”申請書”をアクティブシートに変更したいのです。 このコードは過去にここで教えて頂いたコードで出来ればこれを修正したいので宜しくお願いします。 １．Sub 申請書登録() Dim NewBookName As String With ThisWorkbook.Sheets("申請書") Windows("1.新規・変更登録申請書(原紙)･ﾘｽﾄ②T用.xlsm").Activate For i = 5 To Sheets("規格登録・変更ﾘｽﾄ").Range("A1048576").End(xlUp).Row + 1 If Sheets("規格登録・変更ﾘｽﾄ").Range("B" & i).Value = "" Then With Sheets("規格登録・変更ﾘｽﾄ") .Range("A" & i).Value = Sheets("申請書").Range("E3").Value .Range("B" & i).Value = Sheets("申請書").Range("O3").Value .Range("C" & i).Value = Sheets("申請書").Range("E4").Value ・・・・・・・・・・・・・・・・・・・ 2.Sub 申請書保存() Dim NewBookName As String With ThisWorkbook.Sheets("申請書") NewBookName = .Range("F22").Value & " " & .Range("E4").Value & " " & .Range("A2").Value & " " & .Range("A1").Value Worksheets("申請書").ExportAsFixedFormat Type:=xlTypePDF, Filename:="\***\XXXX\1.申請書\申請書" & "\" & NewBookName End With End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する