Excel VBA質問箱 IV

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

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


43475 / 76732 ←次へ | 前へ→

【38304】組番号等で選択範囲を取得するには。
質問  くれよん  - 06/5/31(水) 9:38 -

引用なし
パスワード
   皆様よろしくお願いいたします。
先日お世話になりました空白の行を非表示にするマクロです。
●マクロ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等で組んでみたもののなかなか作動してくれません。
ご伝授をよろしくお願いいたします。

3 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 お礼

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