Excel VBA質問箱 IV

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

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


65771 / 76733 ←次へ | 前へ→

【15533】Re:VBAを使わなくてもいいのかもしれませんが。
回答  kein  - 04/6/28(月) 16:51 -

引用なし
パスワード
   こんなのでいいかも ?

Sub Test()
  With Sheets("発注シート")
   If WorksheetFunction.Count(.Range("B:B")) = 1 Then
     MsgBox "発注件数はゼロです", 64: Exit Sub
   End If
   Sheets("発注リスト").Rows("2:65536").ClearContents
   .Range("B2", .Range("B65536").End(xlUp)).SpecialCells(2) _
   .EntireRow.Copy Sheets("発注リスト").Range("A2")
  End With
  With Sheets("発注リスト")
   .Range("A2", .Range("A2").End(xlDown)).Offset(, 2) _
   .Resize(, 254).ClearContents
  End With
End Sub
   
1 hits

【15526】VBAを使わなくてもいいのかもしれませんが。 mini 04/6/28(月) 15:14 質問
【15527】Re:VBAを使わなくてもいいのかもしれま... Asaki 04/6/28(月) 15:24 回答
【15579】Re:VBAを使わなくてもいいのかもしれま... mini 04/6/30(水) 9:46 質問
【15591】Re:VBAを使わなくてもいいのかもしれま... Asaki 04/6/30(水) 10:47 回答
【15753】Re:VBAを使わなくてもいいのかもしれま... mini 04/7/5(月) 21:56 お礼
【15533】Re:VBAを使わなくてもいいのかもしれま... kein 04/6/28(月) 16:51 回答
【15580】Re:VBAを使わなくてもいいのかもしれま... mini 04/6/30(水) 9:49 質問
【15620】Re:VBAを使わなくてもいいのかもしれま... kein 04/6/30(水) 16:46 回答
【15754】Re:VBAを使わなくてもいいのかもしれま... mini 04/7/5(月) 21:59 お礼

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