Results of 1 - 1 of about 470 for EDATE (0.000 sec.)
- [[20200402105134]]
- #score: 9974
- @digest: 8a65b76242ac51fadad0c416486841da
- @id: 82891
- @mdate: 2020-04-02T04:08:42Z
- @size: 1479
- @type: text/plain
- #keywords: sdate (5861), 阪*" (5178), sheetd (5112), 京*" (3920), 桜） (2674), （桜 (2538), 間以 (2288), sheetb (1938), edate (1540), 期間 (1507), 削除 (904), る() (836), ピン (834), entirerow (779), の期 (722), 一致 (593), を削 (583), 外を (583), い行 (517), 除す (505), 一定 (503), 大阪 (444), like (438), xldown (421), 構文 (415), 以外 (393), はsh (373), 報告 (345), た行 (335), step (329), value (321), office365 (308)
- 『条件に一致しない行を削除する』（桜）
一定の期間以外の行を削除させたいです 期間はsheetBのB5の始まり、B6に終わりを入力してます 削除したい行はsheetD、日付はA列にあります B5とB6に入力がない時は削除せず、入力があったらその期間以外を削除する 参考になりそうな構文を見つけましたがここからどうしていいかわかりません Sub 条件に一致した行を削除する() Dim i As Long For i = Range("A1").End(xlDown).Row To 2 Step -1 With Cells(i, "G") If _ .Value Like "東京*" Or _ .Value Like "大阪*" Then .EntireRow.Delete End If End With Next i End Sub ＜ 使用 Excel:Office365、使用 OS:Windows10 ＞ ---- >入力があったらその期間以外を削除する 参考に Sub 条件に一致した行を削除する() Dim i As Long, sDate As Date, eDate As Date With Worksheets("SheetB") If .Range("B5").Value = "" Or .Range("B6").Value = "" Then Exit Sub sDate = .Range("B5").Value eDate = .Range("B6").Value End With With Worksheets("SheetD") For i = .Range("A1").End(xlDown).Row To 2 Step -1 If .Cells(i, "A").Value < sDate Or .Cells(i, "A").Value > eDate Then .Cells(i, "A").EntireRow.Delete End If Next i End With End Sub （ピンク） 2020/04/02(木) 11:27 ---- ピンクさん、ありがとうございます 思っていたことができましたので取り急ぎ報告します どうなっているのか少ししか理解できていないので調べてみます （桜） 2020/04/02(木) 13:08... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202004/20200402105134.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97012 documents and 608123 words.
訪問者：