Excel VBA質問箱 IV

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

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


54619 / 76738 ←次へ | 前へ→

【26905】Re:ブックの異なる元データを月単位のア...
回答  kobasan  - 05/7/23(土) 0:55 -

引用なし
パスワード
   ▼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つのワークブックと複数のシートを扱う場合、どのブックのどのシートかを明確にすると、分かりやすくなり、トラブルが少なくなります。

0 hits

【26869】ブックの異なる元データを月単位のアクティブセルに貼り付ける方法 nossori 05/7/21(木) 21:12 質問
【26873】Re:ブックの異なる元データを月単位のア... kobasan 05/7/22(金) 0:56 回答
【26875】Re:ブックの異なる元データを月単位のア... nossori 05/7/22(金) 7:57 質問
【26877】Re:ブックの異なる元データを月単位のア... りん 05/7/22(金) 8:35 発言
【26890】Re:ブックの異なる元データを月単位のア... kobasan 05/7/22(金) 15:58 回答
【26901】Re:ブックの異なる元データを月単位のア... nossori 05/7/22(金) 22:17 質問
【26905】Re:ブックの異なる元データを月単位のア... kobasan 05/7/23(土) 0:55 回答
【26932】Re:ブックの異なる元データを月単位のア... nossori 05/7/23(土) 22:38 お礼
【26899】Re:ブックの異なる元データを月単位のア... kobasan 05/7/22(金) 22:10 発言

54619 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free