2017年11月7日火曜日

覚え書き


マクロを使う別の方法です。


XXXの部分を特定の文字に置きかえて実行してください。
また、「特定の文字があれば」というのが、その文字列を含む、というのでなくセルの値がその文字列ならば、というのであれば、LookAt:=xlPart の部分を LookAt:=xlWhole に書き換えてください。

Sub DelLines()
  Dim R As Range
  Do
    Set R = ActiveSheet.Range("B:B").Find(What:="XXX", LookAt:=xlPart)
    If R Is Nothing Then Exit Sub
    R.EntireRow.Delete
  Loop
End Sub

寝顔がかわいいなあ

器用

この手で持つのは難しい。

続いて甘酒

この糀は前から買っていて甘酒を作りたいと思っていました。
http://www.isesou.co.jp/
一晩かかって甘酒ができました。
これも、ヨーグルトメーカーの威力です。
すばらしい。
感動します。

カスピ海ヨーグルト

朝、できていました!
すごい!
簡単!
100g位のヨーグルトと牛乳で3日分くらいのヨーグルトが作れました。
とてもいいです。

2017年11月6日月曜日

覚え書き (エクセル)

https://excwlvba.blogspot.jp/2013/05/xlcelltypeblanks.html


Sub kuhakusakujo()
    '例としてF列の空白セルを選択
    Columns("F").SpecialCells(xlCellTypeBlanks).Select
    '選択したセルがある行全体を削除
    Selection.EntireRow.Delete
    '選択状態の解除(一応)
    Application.CutCopyMode = False
End Sub

うまくできるでしょうか。

エクセルマクロで、空白のセルがある行を削除します。

この模様、誰かしりませんか