ここから本文です

excelについての質問です

kaz********さん

2018/7/1422:02:59

excelについての質問です

現在、マクロにて複数シートに同じ内容のものを入力するボタンを制作したのですが、文章は入力できたのですが、その文章に色を付けようとすると、色のつくシートと付かないシートが出てきてしまいます。
そうなってしまう条件がわからいので質問とさせていただきます。

Sub jiji()
'jiji macro

With Worksheets("A-1")
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lastRow, 1).Value = Now()
Cells(lastRow, 1).Select
With Selection.Font
.Color = -65536
.TintAndShade = 0
End With
.Cells(lastRow, 2).Value = "定期点検"
Cells(lastRow, 2).Select
With Selection.Font
.Color = -65536
.TintAndShade = 0
End With
.Cells(lastRow, 3).Value = "異常なし"
Cells(lastRow, 3).Select
With Selection.Font
.Color = -65536
.TintAndShade = 0
End With
End With

With Worksheets("A-2")
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lastRow, 1).Value = Now()
Cells(lastRow, 1).Select
With Selection.Font
.Color = -65536
.TintAndShade = 0
End With
.Cells(lastRow, 2).Value = "定期点検"
Cells(lastRow, 2).Select
With Selection.Font
.Color = -65536
.TintAndShade = 0
End With
.Cells(lastRow, 3).Value = "異常なし"
Cells(lastRow, 3).Select
With Selection.Font
.Color = -65536
.TintAndShade = 0
End With
End With

With Worksheets("A-3")
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lastRow, 1).Value = Now()
Cells(lastRow, 1).Select
With Selection.Font
.Color = -65536
.TintAndShade = 0
End With
.Cells(lastRow, 2).Value = "定期点検"
Cells(lastRow, 2).Select
With Selection.Font
.Color = -65536
.TintAndShade = 0
End With
.Cells(lastRow, 3).Value = "異常なし"
Cells(lastRow, 3).Select
With Selection.Font
.Color = -65536
.TintAndShade = 0
End With
End With



これ以降はA-10まで続いています。
式自体がおかしいならそこの指摘もしていただけるとありがたいです。

閲覧数:
18
回答数:
1

違反報告

ベストアンサーに選ばれた回答

l7u********さん

2018/7/1423:14:30

ごめんなさい。.TintAndShadeの前に.Fontを付け加えといてください。

【修正後】
Sub jiji()
'jiji macro

Dim SH As String
Dim i As Long, lastRow As Long

For i = 1 To 10
SH = "A-" & i
With Worksheets(SH)
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lastRow, 1).Value = Now()
End With
With Worksheets(SH).Cells(lastRow, 1)
.Font.Color = -65536
.Font.TintAndShade = 0
End With
With Worksheets(SH).Cells(lastRow, 2)
.Value = "定期点検"
.Font.Color = -65536
.Font.TintAndShade = 0
End With
With Worksheets(SH).Cells(lastRow, 3)
.Value = "異常なし"
.Font.Color = -65536
.Font.TintAndShade = 0
End With
Next i

End Sub

質問した人からのコメント

2018/7/15 13:49:11

ありがとうございます!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる