|
▼くれよん さん:
こんにちは
>皆様よろしくお願いいたします。
>先日お世話になりました空白の行を非表示にするマクロです。
数式の結果空白の場合ですね。
>●マクロ1
> Dim MyR As Range
> On Error GoTo ELine
> Set MyR = Range("Z1:Z9").SpecialCells(3, 2).EntireRow
> On Error GoTo 0
> MyR.Hidden = IIf(MyR.Hidden, False, True)
> Set MyR = Nothing
> ELine:
> End Sub
>●マクロ2 Set MyR = Range("Z10:Z20").SpecialCells(3, 2).EntireRow
>●マクロ3 Set MyR = Range("Z21:Z30").SpecialCells(3, 2).EntireRow
>ここで行の変動が多発し,全ての範囲を組み替えるのが困難なもので
>Z1:Z9 の範囲を,組み番号:A1:A9 に1
>Z10:Z20の範囲を,組み番号:A10:A20に2・・・
>等で対応したいと思ってます。
>Find等で組んでみたもののなかなか作動してくれません。
>ご伝授をよろしくお願いいたします。
で例えば具体的に何をしたいのでしょうか記載して下さい。
|
|