ようこそ！　醸芳中学校のホームページへ！！

お知らせ

　令和7年度　R7年間行事予定（４／4版）.pdf← クリックでpdfが開きます

　※　年間計画については変更になる場合があります。学年だより等でもご確認ください　

2017年5月7日 19時15分

　５月７日（日）楽しみすぎたGW中の成果は，次の三行です。
　Public Sub SheetName()　　　　　　　　　

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

　End Sub
日本語にすると　
　マクロの名前は，SheetName()
　アクティブシート（今使っている）のA1セルのデータをアクティブシートの名前とせよ
　マクロを終了

と言う感じです。
このマクロをボタンに登録すれば，

ほら，シートの名前を変更する操作が簡単で確実です。
赤い部の文字が，A1セルの文字に置き換えられます。５日もかけて得たものはこれだけです。　