2020年08月30日
テーマ： プログラミングあれこれ(231)
カテゴリ： VBA
前回のFindに引き続き、今回は以下の
関数について学ぼうと思う。
セルを含む行全体を表す際に利用する関数。
在庫が0の商品は行を削除するようにしてみる。
※複数行削除は未対応
ソース
Sub deleteNoStock ()
Dim result As Range
Set result = Range ("C22:C27"). Find (LookAt:=xlWhole, What:=0)
If result Is Nothing Then
MsgBox ("見つかりませんでした")
End
End If
' 見つかったセルのある行を削除する
result . EntireRow . Delete
MsgBox ("無在庫行を削除しました")
End Sub
結果
指定セルの行全体を表すときは、 EntireRow
指定セルの列全体を表すときは、EntireColumn
を利用する。
※EntireColumnについてはなぜかメモ程の度扱いなので
出題率はそれほど高くないものと思われる。
関数について学ぼうと思う。
①EntireRow
セルを含む行全体を表す際に利用する関数。
在庫が0の商品は行を削除するようにしてみる。
※複数行削除は未対応
ソース
Sub deleteNoStock ()
Dim result As Range
Set result = Range ("C22:C27"). Find (LookAt:=xlWhole, What:=0)
If result Is Nothing Then
MsgBox ("見つかりませんでした")
End
End If
' 見つかったセルのある行を削除する
result . EntireRow . Delete
MsgBox ("無在庫行を削除しました")
End Sub
結果
指定セルの行全体を表すときは、 EntireRow
指定セルの列全体を表すときは、EntireColumn
を利用する。
※EntireColumnについてはなぜかメモ程の度扱いなので
出題率はそれほど高くないものと思われる。
お気に入りの記事を「いいね！」で応援しよう
[VBA] カテゴリの最新記事
-
VBAスタンダード学習27[テーブル部位の特… 2020年09月23日
-
VBAスタンダード学習26[テーブル列の特定(… 2020年09月22日
-
VBAスタンダード学習25[テーブル部位の特… 2020年09月17日
【毎日開催】
15記事にいいね！で1ポイント
PR
ULALA13
ご覧いただき、ありがとうございます。 アメリカンカールのリオ(♂)と シャルトリューのジン(♂)の お世話担当です。 noteへの移行をおこないましたので 続きはこちらからどうぞ！ https://note.com/ulala_cat/all
カレンダー
© Rakuten Group, Inc.
