| |
▼nossori さん 今晩は。
>A3に７月（実際は７月３１日のシリアルナンバーです）
データの貼り付けは６行目からです。（最初のものは４行目でしたが６行目からに変更しました。）
>' 問題はここからです⇒シリアルナンバーが出てきませんが、どのようにすると良い ’のでしょうか？
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("データベース作成")
の３つのワークブックと複数のシートを扱う場合、どのブックのどのシートかを明確にすると、分かりやすくなり、トラブルが少なくなります。
|
|
kobasan
- 05/7/23(土) 0:55 -
