VBAでシート１のデータを他シートに入力させるには

Question

sheet１に
　　Ａ　Ｂ　　Ｃ　D
１　Ｈ　２２　．　４
２　　　　　　　　５
　　　　　　　　　６と入力しています
sheet２には売り上げの表があります

現在sheet１のコード表示をクリックして、下記を入力しています。
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets(2).Name = Range("A1")
End Sub
それでsheet２にはＨ２２．４、以下sheet３　４　・・としています。

sheet２には売り上げの表があってその表題をsheet１に入力されている
Ｈ２２．４
　　　　５を使って
平成［sheet1のＢ１のデータ］年［sheet1のＤ１のデータ］月分売上高というように入力させたいのですが、色々勉強しましたが
いまいち良くわかりません。
宜しくお願いします。

CC_T · Accepted Answer

全角半角の変換にはStrConv関数が使えますね。
～～～
Private Sub Worksheet_Change(ByVal Target As Range)
 
 Dim m
 Dim th As String

For m = 2 To 10　
  Sheets(m).Name = "H" & Range("A1") & "." & m + 2
  th = "平成" & Range("A1") & "年" & m + 2 & "月分売上高"
  Sheets(m).Cells(1, 1) = StrConv(th, vbWide)
 Next m
 
 For m = 11 To 13
  Sheets(m).Name = "H" & Range("A1") + 1 & "." & m - 10
  th = "平成" & Range("A1") & "年" & m - 10 & "月分売上高"
  Sheets(m).Cells(1, 1) = StrConv(th, vbWide)
 
 Next m

End Sub
～～～

これで各シートA1セルに入力される文字列が「平成２５年６月分売上高」など全角にできますね。
シート名も変更したければ、同様にStrConvを使った操作で実現できますよ。

CC_T · Answer

参考までに、作成したブックをアップローダーに入れておきます。
パスは00000

参考URL：http://www.dotup.org/uploda/www.dotup.org1945644.lzh.html

CC_T · Answer

> それから上記のはsheet１のコード表示をクリックして
> worksheet　changeってそこに入力しましたが、その下に入力
> すればいいのですか？それでは動かなかったのですが？

おや？
新規ブックを立ち上げて、シート１3枚分用意して、一番左のシートでコードの表示クを
リックしてでworksheetのchangeの下窓にさっきのをペースト。
で、同じ左端シートのA1セルに数字を入れる…っと。ちゃんと動きますけどね…？
Excelのバージョンは何でしょうか？

～～～
ワークシートのイベントではシートのセルの入力都度にこのマクロが動くことになる
はずなので、「常時動いている」という表現しました。
PCにとっても些細な負荷にすぎないのでしょうけど、年に１回のために平素から
働かせるのもなんだかね、ってところです。

ちなみに下の
Sub Macro1()
　から
End Sub
までの行分は、マクロに登録して、シートを12枚用意したブックでマクロの実行して下さい。
シートの枚数数えて必要数シートを挿入するってあたりまでは含めていませんので。

CC_T · Answer

シート１の平成○年に合わせて他のシートのタイトルとセルの値を一気に更新したい、というわけですね。

であれば、例えば
Private Sub Worksheet_Change(ByVal Target As Range)
  For m = 2 To 10
   Sheets(m).Name = "H" & Range("A1") & "." & m + 2
   Sheets(m).Cells(1, 1) = "平成" & Range("A1") & "年" & m + 2 & "月分売上高"
  Next m
  For m = 11 To 13
   Sheets(m).Name = "H" & Range("A1") + 1 & "." & m - 10
   Sheets(m).Cells(1, 1) = "平成" & Range("A1") + 1 & "年" & m - 10 & "月分売上高"
  Next m
End Sub
でご希望の動作が実現できるでしょう。シート１はA1セルに「２３」など数字を入れるだけで、あとは記入不要。
Cells(1,1)でＡ１セルを指定して「平成○年●月分売上」を入力していますので、ここで任意のセルを指定できます。
もし各シートでグラフを作成されているなら、グラフタイトルは上記で入力したセルを参照すればいいでしょう。

～～～

こうなるとsheet1が無駄に思えるのと、マクロが常に動いているってのは個人的にはなんだか落ち着きませんので、
個別のマクロにして必要な時に呼び出す方法も書いておきます。下記をマクロに登録して実行してみてください。

Sub Macro1()
　Dim Y, m
　Y = InputBox("年度を入力（例：平成２４年度なら２４を入力）")
　 For m = 1 To 9
　   Sheets(m).Name = "H" & Y & "." & m + 3
　   Sheets(m).Cells(1, 1) = "平成" & Y & "年" & m + 3 & "月分売上高"
　  Next m
　  For m = 10 To 12
　   Sheets(m).Name = "H" & Y + 1 & "." & m - 9
　   Sheets(m).Cells(1, 1) = "平成" & Y + 1 & "年" & m - 9 & "月分売上高"
　  Next m
End Sub

売上高のbookにマクロを登録すると、売上高を記入していく際に毎回「マクロ有効にするか？」なんて
セキュリティー確認が表示されて鬱陶しいので、別のブックに登録して必要時に読み込む方がいいかもしれません。

mu2011 · Answer

NO1です。
>シートの年月と表の年月は同じものが入るので問題はありません。
　⇒不正な入力等、不測の事態に対応できていないと思ったからです。
　　（仮にSheet1でA1に入力していない、不正なデータを入力等は、マクロ実行エラーとなる）

その他については、シート１のＡ１には、「Ｈ」、又は「Ｈ２２．４」の何れが入力されているのか、又、この日付シートの役割が読み取れませんでしたので回答しました。

この辺りについてもう少し判り易く補足して再質問されては如何でしょうか。

CC_T · Answer

「売り上げの表題」が何を指すのかによって、作業が異なります。
質問タイトルにあるように「シート１のデータを他シートに入力させる」だけならVBAを使うまでもない。
="平成"&Sheet1!B1&"年"&Sheet1!D1&"月売上高"
をシート２の任意のセルに入れるなどすれば済むわけですからね。

そんなわけでご質問の意図を正しく理解できたか今一つ自信がありません。
意図とは異なる現状と、理想とする状態を明確にして、質問を補足されることをお勧めします。

～～～

とりあえず、sheet１には
・Ａ１に元号の”H"
・Ｂ１に和暦
・Ｃ１にピリオド
・Ｄ列には月を順に
入力してあり、それを基にしてSheet2以下に作成済みの売り上げ表のタイトルを変えたい、
という内容かと思ったのですが、
>　sheet２にはＨ２２．４、以下sheet３　４　・・としています。
とありますので、「H22.4」シートにある「売上表グラフ」のタイトルを「平成22年4月分売上高」、「H22.5」シートにある「売上表グラフ」のタイトルを「平成22年5月分売上高」、としていきたいということなのでしょうか？
しかし、
> Sheets(2).Name = Range("A1")
としているところから見ると、シート２の名前を変えたいがsheet1のセルの値を変えた時点でsheet2の名称が”H”に変わってしまう状態で困っている…ということにも見受けられますよ？

もし目的が
・シート２以降に月ごとの売上高の表を作るための下準備がしたい
ということで、理想状態が、
・シート２の名称を「平成22年4月分売上高」、シート３の名称を「平成22年5月分売上高」…という風にシート１の入力に応じて自動で設定したい
ということであれば、シート数が不足する場合に新規シートを挿入するなんてことまで考える必要もあるでしょうし、新たな月を作成する際にシート２以降に記載済の内容とシートのタイトルがズレてしまう可能性があるなど悪影響が想定されますから、ワークシートのイベントでシート名を変えるような操作はお勧めできませんね。

mu2011 · Answer

先ずはマクロの前にセルの表示形式を学習する必要があると思う。
特に日付形式は、エクセルが認識している日付シリアル値を利用する方が表示編集等に有効です。
例えば、FORMAT関数を使用すれば、日付シリアル値からご希望の表題は簡単に表示できます。

この日付表示について理解できれば以下の点を再考してみては如何でしょうか。
・日付表示内容をセル分割にしておく必要があるのか？
・日付リストにしている用途は何なのか？

因みに現在のコードは、Sheet1内の任意セルが変更された場合、無条件にSheet2タブ名を変更するが問題ないのか？

以上、不躾ですが今一度、やりたい事を見直しをされては如何でしょうか。

VBAでシート１のデータを他シートに入力させるには

全角半角の変換にはStrConv関数が使えますね。

参考までに、作成したブックをアップローダーに入れておきます。

この回答への補足

> それから上記のはsheet１のコード表示をクリックして

この回答への補足

シート１の平成○年に合わせて他のシートのタイトルとセルの値を一気に更新したい、というわけですね。

この回答への補足

NO1です。

この回答への補足

「売り上げの表題」が何を指すのかによって、作業が異なります。

この回答への補足

先ずはマクロの前にセルの表示形式を学習する必要があると思う。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング