Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9451 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【27198】指定の行にある文字列を検索し、その文字列がある列を非表示にするには？ KK 05/8/1(月) 15:38 質問[未読]
【27202】Re:指定の行にある文字列を検索し、その文... でれすけ 05/8/1(月) 17:06 発言[未読]
【27207】Re:指定の行にある文字列を検索し、その文... KK 05/8/1(月) 17:59 お礼[未読]
【27208】Re:指定の行にある文字列を検索し、その文... awu 05/8/1(月) 20:41 回答[未読]
【27248】ありがとうございました。 KK 05/8/3(水) 14:31 お礼[未読]
【27198】指定の行にある文字列を検索し、その文字...
質問  KK  - 05/8/1(月) 15:38 -
引用なし
パスワード
   　　A　　　B　　　C　　　D　　　E　　　F　　　G　　　H　　　I　　　J　　　K　　　L
1　2004年度　　　　　　　　 　　　　　　　　　2005年度
2　本店　　　　　店舗A　　　　店舗B　　　　本店　　　　　店舗A　　　　店舗B
3　上期　下期　上期　下期　上期　下期　上期　下期　上期　下期　上期　下期
4[営業所]

以上のような表があります。
[営業所]ボタンをクリックしたときに、2行目を検索して"本店"がある列（A列、B列、G列、H列）を非表示にするには
どうすればよいのでしょうか？
"本店"が入っているA列とB列、G列とH列はセルの結合をしています。

以上を満たすコードをご教授いただけますでしょうか。
【27202】Re:指定の行にある文字列を検索し、その...
発言  でれすけ  - 05/8/1(月) 17:06 -
引用なし
パスワード
   こんにちは。

KKさん
>以上を満たすコードをご教授いただけますでしょうか。
というのは、回答者にコードを作れと言っているわけですか？
では、KKさんは何をするんでしょうか。
質問者と回答者の関係は、発注者と受注者の関係とは違います。


Dim fCell As Range, fstAdr As String
Set fCell = Rows(2).Find(what:="本店")
If Not fCell Is Nothing Then
　 fstAdr = fCell.Address
　 Do
　　　fCell.MergeArea.EntireColumn.Hidden = True
　　　Set fCell = Rows(2).Find(after:=fCell)
　 Loop Until fCell.Address = fstAdr
End If
【27207】Re:指定の行にある文字列を検索し、その...
お礼  KK  - 05/8/1(月) 17:59 -
引用なし
パスワード
   でれすけさん、回答ありがとうございます。

>質問者と回答者の関係は、発注者と受注者の関係とは違います。
質問の仕方が悪かったみたいです。
申し訳ありません。
[営業所]ボタンをクリックして、列を消すコードまでは作成したのですが、
2行目に書いてある文字列を検索して、指定した列を消す方法がわからず、色々を試してみたのですが
先に進まなかったので、そもそもの考え方が悪かったのかと思い、
一から書かれたキレイなコードが知りたくて、質問させていただいた次第です。

もっと詳細な質問の仕方をしていればよかったです。
大変失礼を致しました。
【27208】Re:指定の行にある文字列を検索し、その...
回答  awu  - 05/8/1(月) 20:41 -
引用なし
パスワード
   > 一から書かれたキレイなコードが知りたくて

何を期待しているのか分りませんが・・・


[営業所]ボタンのクリック時イベントプロシージャに、レスありましたコードの7行目の

Set fCell = Rows(2).Find(after:=fCell)

を
　　　　　　　　　　　
Set fCell = Rows(2).FindNext(fCell)

にして、期待通りの結果になりませんか。
【27248】ありがとうございました。
お礼  KK  - 05/8/3(水) 14:31 -
引用なし
パスワード
   でれすけさん、awuさん
ありがとうございました。

大変勉強になりました。
また、大変失礼な質問をしてしまいまして、申し訳ありませんでした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9451 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free