Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

55200 / 76738

←次へ　｜　前へ→


	【26316】Re:複数シートにループで同じ処理をするには

りん - 05/7/1(金) 11:52 -


	引用なし

	パスワード

ぴかるさん回答ありがとうございます。

ぴかるさんのコードを参考にして
作ってみたのですが、
セルを結合しようとすると、シート１は
ちゃんと動くのに、シート２以降は
セルを結合しようとするところで
うまく動きません。
どこが悪いのでしょうか？？
コードはこんな感じです。

Sub 日付更新()

Dim retu As Long

For i = 1 To Sheets.Count
　　retu = Sheets(i).Range("IV6").End(xlToLeft).Column
　　　　With Sheets(i).Cells(2, retu)
　　　　　　.Formula = Date
　　　　　　.Font.Size = "18"
　　　　　　.NumberFormatLocal = "yyyy""年""m""月""d""日"""
　　　　End With
　　Sheets(i).Range(Cells(2, retu - 1), Cells(2, retu)).Select
　　Selection.Merge
　　
Next

End Sub

>りんさんというＨＮの方が他にもお見えになりますので、今後は変更された方がいいと思います。

以後名前を変えます。すいません。

0 hits

▼

【26287】複数シートにループで同じ処理をするには りん 05/6/30(木) 15:16