Excel VBA質問箱 IV

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

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


9453 / 13646 ツリー ←次へ | 前へ→

【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さん
ありがとうございました。

大変勉強になりました。
また、大変失礼な質問をしてしまいまして、申し訳ありませんでした。

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