- ベストアンサー
VBAでシート名の定義を変更する方法
- VBAを使用して、セルに日付情報を含んだシート名を定義する方法について教えてください。
- VBAでセルに日付情報を含んだ連続したシート名を定義するためのスマートなコーディング方法を教えてください。
- VBAを使用して、for～Next文を使って連続したセルにシート名を定義する方法を教えてください。
- mr_r00
- お礼率6% (5/78)
- Visual Basic
- 回答数2
- ありがとう数0
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
> Worksheet("test" & TY).Cells(15, 6).name ="DD" & TY & "0101" > Worksheet("test" & TY).Cells(16, 6).name ="DD" & TY & "0102" > Worksheet("test" & TY).Cells(17, 6).name ="DD" & TY & "0103" > Worksheet("test" & TY).Cells(18, 6).name ="DD" & TY & "0104" > Worksheet("test" & TY).Cells(19, 6).name ="DD" & TY & "0105" この部分だけをForで回すとしたら、 For I=1 to 5 Worksheet("test" & TY).Cells(I+14, 6).name ="DD" & TY & & format(I+100,"0000") Next I さて、これがスマートかどうかは、その人のセンスによります。 ではでは
その他の回答 (1)
- imogasi
- ベストアンサー率27% (4737/17069)
>VBAでシート名の定義を変更したいのですが しかし、質問のコード例では、セル（の安易）に名前をつけているのでは。 ＝＝＝ 私の経験はたいしたことはないが、質問や回答を６－７年見てきて、セルに軒並みなまえをつける例を記憶にない。 定義して、その後コーディング上すっきりするとかの、目算はあるのですか。 ＝＝＝ コード例ではどこが変化すつところかな。 それが伝わらない（例だけでは意図は文章にしないと伝わりにくい）のだ ●＞Cells(15, 6の１５ は変化させるのだろうが ●後は"0101"の部分だけか？ ＞日付に近い形にしたいのですがここをどう 近いなんてあいまいな書き方はどういうことを意味するのか。 ０１０１－０１０２－・・・－０１３１－０２０１－・・・０２２９ー００３０１－０３０２・・と暦の年月をくっつけばよいのか。 ＝＝ ＞いっぱいあります test,TY,DDは変わらないのだな。 まさかDDは日付でないでしょうね。紛らわしい。
