![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは。
例えば、
1)InputBoxメソッドで検索値を入力する。
2)Findメソッドで検索結果セルを取得する。
3)結果セル行(または列)のOutlineLevelを調べて
詳細データであればShowDetailプロパティをTrueにする。
4)OutlineLevelが深ければ下の行を見にいって表示されるまでLoopする。
という流れのサンプルです。
(『特定箇所』がアドレス指定でも良かったり、
シート全体のOutlineを開いても良かったりするならもっと簡単になります)
Sub sample()
Dim ret As Variant '検索値
Dim r As Range '検索結果
Dim i As Long 'OutlineLevelが深い場合のLoop用
ret = Application.InputBox("what?", Type:=2)
If VarType(ret) = vbBoolean Then Exit Sub 'キャンセル時
On Error Resume Next
Set r = Cells.Find(What:=ret, _
LookIn:=xlFormulas, _
LookAt:=xlPart)
On Error GoTo 0
If r Is Nothing Then
MsgBox "no data"
Else
If r.EntireRow.OutlineLevel > 1 Then
r.EntireRow.ShowDetail = True
While r.EntireRow.Hidden
r.Offset(i).EntireRow.ShowDetail = True
i = i + 1
Wend
End If
Application.Goto r
Set r = Nothing
End If
End Sub
キーワード...というか、わからない語句があればヘルプで調べてみてください。
Findメソッドを使うのであれば、引数についても理解する必要があります。
上記例では関数の結果である[値]を検索するようにはなっていません。
その場合は引数LookInの修正が必要です。
(マクロの自動記録も理解の助けになると思います)
また、上記は行方向のOutlineの例です。列の場合は
r.EntireColumn...となります。
No.1
- 回答日時:
アウトラインを開いた形であれば
以下の方法でいいかと思います。
特定箇所については、実データを元に
検索条件を分析調査し決定するだけです。
ExcelファイルのSQLを使ったアクセス(DAO)
http://www.geocities.co.jp/SiliconValley/4805/vb …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
vbaエクセルマクロ RemoveDupli...
-
ウィンドウを最前面にできません
-
boolean型のフィールドとゲッタ...
-
JAVAプログラムのdoGet()の中身...
-
【sendkeysメソッドが動かずに...
-
C#.net Define文
-
ポストバック時のDatasourceバ...
-
Excel VBA シェイプの原型のサ...
-
少数の桁数指定
-
ShellExecuteってなんで関数?
-
mainメソッドのthrows節で設定...
-
C#で、優先順位をつけてメソッ...
-
VBA/FIND関数を使っての先頭文...
-
VBA コピーが出来ません…!
-
マスターページからコンテンツ...
-
Refreshメソッドの使い方
-
final修飾子を使っているのに、...
-
JSPのメソッドサイズ制限について
-
コマンドプロンプト実行後に画...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
DataGridViewでセルクリックイ...
-
Labelコントロールに数字を代入...
-
【sendkeysメソッドが動かずに...
-
エクセルVBAにおけるON TIMEメ...
-
final修飾子を使っているのに、...
-
javascriptからjavaを呼び出したい
-
VBPをダブルクリックするとたま...
-
配列のメソッド
-
JSPで<SELECT>の中にDBから持っ...
-
Refreshメソッドの使い方
-
コマンドプロンプト実行後に画...
-
ウィンドウを最前面にできません
-
onClickで関数呼出し後に、結果...
-
VB.netで、シリアル通信のタイ...
-
日本の教育って時間が無い中で...
-
boolean型のフィールドとゲッタ...
-
VBA コピーが出来ません…!
-
Application.Wait の参照設定
-
VBAでSaveAs使用し、指定してい...
おすすめ情報