Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10891 / 76734

←次へ　｜　前へ→


	【71386】Re:実行日を取得するマクロとコピーした行挿入

UO3 - 12/2/28(火) 12:36 -


	引用なし

	パスワード

▼どじょりんさん：

こんにちは

エラーについてはichinoseさんから回答がありました。

>あわせて、Ａ列に何も入力しない状況でボタンをおすと、
>シート２に空白行が挿入されてしまいます。
>こうならない方法もあわせて教えてください。

コードの記述全般については思うところも多々ありますが、とりあえず。

Dim myR As Range　といったものを規定しておいて

With Sheets("台帳")
　　　　.Select
　　　　On Error Resume Next
　　　　Set myR = Range("A3:A65536").SpecialCells(xlCellTypeConstants)
　　　　If myR Is Nothing Then
　　　　　　MsgBox "削除すべきデータがありません"
　　　　　　Exit Sub
　　　　End If
　　　　myR.EntireRow.Copy
End With

こうすればよろしいかと。

ただし、以降、このmyRを相手に処理することが必要です。

ところで、たとえば在庫が10あり、そこに販売が1と入っても、まだ9残っているわけですが
それを削除してもいいのですか？

3 hits

▼

【71380】実行日を取得するマクロとコピーした行挿入 どじょりん 12/2/28(火) 5:40