Excel VBA質問箱 IV

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

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


43472 / 76732 ←次へ | 前へ→

【38307】Re:追記です。。
発言  Statis  - 06/5/31(水) 10:12 -

引用なし
パスワード
   ▼くれよん さん:
こんにちは
>皆様よろしくお願いいたします。
>先日お世話になりました空白の行を非表示にするマクロです。
数式の結果空白の場合ですね。

>●マクロ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等で組んでみたもののなかなか作動してくれません。
>ご伝授をよろしくお願いいたします。
で例えば具体的に何をしたいのでしょうか記載して下さい。

4 hits

【38304】組番号等で選択範囲を取得するには。 くれよん 06/5/31(水) 9:38 質問
【38306】追記です。。 くれよん 06/5/31(水) 10:08 質問
【38307】Re:追記です。。 Statis 06/5/31(水) 10:12 発言
【38319】Re:追記です。。 くれよん 06/5/31(水) 12:26 質問
【38320】Re:追記です。。 Statis 06/5/31(水) 12:39 回答
【38325】Re:追記です。。 くれよん 06/5/31(水) 13:05 質問
【38329】Re:追記です。。 ハチ 06/5/31(水) 14:18 発言
【38332】Re:追記です。。 くれよん 06/5/31(水) 14:41 お礼
【38330】Re:追記です。。 Kein 06/5/31(水) 14:30 回答
【38333】ありがとうございました。 くれよん 06/5/31(水) 14:48 お礼

43472 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free