|
ぴかるさん回答ありがとうございます。
ぴかるさんのコードを参考にして
作ってみたのですが、
セルを結合しようとすると、シート1は
ちゃんと動くのに、シート2以降は
セルを結合しようとするところで
うまく動きません。
どこが悪いのでしょうか??
コードはこんな感じです。
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
>りんさんというHNの方が他にもお見えになりますので、今後は変更された方がいいと思います。
以後名前を変えます。すいません。
|
|