|
▼nossori さん 今晩は。
>A3に7月(実際は7月31日のシリアルナンバーです)
データの貼り付けは6行目からです。(最初のものは4行目でしたが6行目からに変更しました。)
>' 問題はここからです⇒シリアルナンバーが出てきませんが、どのようにすると良い ’のでしょうか?
Dim R As Range
Dim M As Range
Dim MyR As Range
Set M = Range("A3")
M.NumberFormatLocal = "G/標準"
'
Set MyR = Range("A6", Range("A65536").End(xlUp))
MyR.NumberFormatLocal = "G/標準"
For Each R In MyR
If R.Value > M.Value Then
MsgBox "該当月のデータ以外があります" & Chr(10) & "見直しをしてください"
Exit Sub
End If
Next
でできると思います。
> M = ActiveCell.Offset(-3)
> M.NumberFormatLocal = "G/標準"
> MyR = Range(Selection, Selection.End(xlDown))
>
> For Each R In MyR
> R.NumberFormatLocal = "G/標準"
> If R.Value > M.Value Then
> MsgBox "該当月のデータ以外があります" & Chr(10) & "見直しをしてください"
> End If
> Exit Sub
>
> Next
それからコードを見て思ったことは、極力 ActiveCellやSelection
は使わない方がいいと思います。
Workbooks("AAA売上集計と請求書発行.xls")
Worksheets("売上一覧")
Workbooks("データベース作成")
の3つのワークブックと複数のシートを扱う場合、どのブックのどのシートかを明確にすると、分かりやすくなり、トラブルが少なくなります。
|
|