![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
VBAである規則性があるコードがあるのですがうまく出来ません。どなたかお願いします。
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~Nextでいけると思うのですが・・・
ここにあるのはあくまで一部なのでもっといっぱいあります。
どうスマートなコーディングをしたらいいか迷っています。
最後の0101とかは日付に近い形にしたいのですがここをどうループさせたらいいか迷っています。
フォーマットの関係で出来るだけ日付型は避けたいです。連続でセルに名前をふりたいのでお願いします。
No.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
さて、これがスマートかどうかは、その人のセンスによります。
ではでは
No.1
- 回答日時:
>VBAでシート名の定義を変更したいのですが
しかし、質問のコード例では、セル(の安易)に名前をつけているのでは。
===
私の経験はたいしたことはないが、質問や回答を6-7年見てきて、セルに軒並みなまえをつける例を記憶にない。
定義して、その後コーディング上すっきりするとかの、目算はあるのですか。
===
コード例ではどこが変化すつところかな。
それが伝わらない(例だけでは意図は文章にしないと伝わりにくい)のだ
●>Cells(15, 6の15 は変化させるのだろうが
●後は"0101"の部分だけか?
>日付に近い形にしたいのですがここをどう
近いなんてあいまいな書き方はどういうことを意味するのか。
0101-0102-・・・-0131-0201-・・・0229ー00301-0302・・と暦の年月をくっつけばよいのか。
==
>いっぱいあります
test,TY,DDは変わらないのだな。
まさかDDは日付でないでしょうね。紛らわしい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) VBA*セルに値があればシート名に反映 2 2023/02/21 14:52
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- ノートパソコン タイピングが出来ない…ty gh bn が特に間違えまくります… 遅いのにミスばかり…へこみます… 4 2023/03/01 22:31
- PHP PHP MySql 画像を取得 1 2022/06/04 14:05
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Application.ScreenUpdating = ...
-
phpでボタンを押したときに変数...
-
ACCESS テキストボックスを隙...
-
VB6のLSETをVB2005で実現するに...
-
VBA他のブックから値のみ貼付す...
-
FindFirst を複数条件で検索
-
実行時エラー 3020の対策
-
セグメンテーション違反
-
VBAでPDFのコピーとリネームを...
-
[python] 文字列を変数名として...
-
UWSC:ポップアップウインドウ...
-
VBAでシート名の定義を変更した...
-
コンボボックスのtag情報の取得...
-
JSONで文字列が長い時
-
16進の10進変換について
-
メモリをアドレスを直接指定し...
-
formで特定のinputを送信しない...
-
CGI(Perl)で、Net::FTPを使いたい
-
sendmailで複数アドレスに送信...
-
VB6で、長い時間かかる処理...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Application.ScreenUpdating = ...
-
実行時エラー 3020の対策
-
FindFirst を複数条件で検索
-
VBAでPDFのコピーとリネームを...
-
「*:*」って何を意味するのでし...
-
ACCESS テキストボックスを隙...
-
構造体の各データの表示につい...
-
phpでボタンを押したときに変数...
-
VBA他のブックから値のみ貼付す...
-
[python] 文字列を変数名として...
-
vbaでxmlからNodeListでデータ...
-
UWSC:ポップアップウインドウ...
-
コンボボックスのtag情報の取得...
-
エクセルVBA シート名の部分一...
-
MSXMLでの属性の存在確認法
-
C++ コマンドプロンプトでの入...
-
【メモリ不足で落ちる(python)】
-
2つのpythonがあって、一方で...
-
pythonで実体参照文字を直す方法
-
Option Strinct On のなかでの...
おすすめ情報