Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5458 / 76732

←次へ　｜　前へ→


	【76887】結合セルの参照元トレース

gg56 - 15/4/3(金) 12:53 -


	引用なし

	パスワード

お世話になります。

結合されたセルの参照元をトレースしたいのですが
ヒントをお教えくださいませんか？
使い方が間違っていると思いつつも、試しにMergeAreaとか加えてみましたがだめでした。

Sub 参照元トレース()
Dim i As Long, e As Long
Dim myData As Variant
Dim myKekka As Range

e = ActiveCell.SpecialCells(xlLastCell).Row

myData = "=if"　'if関数の入ったセルをトレース
For i = 1 To e
　Set myKekka = Cells(i, "C").MergeArea.Find(What:=myData, LookIn:=xlFormulas)
　 If Not myKekka Is Nothing Then
　　 myKekka.ShowPrecedents
　 End If
Next
End Sub

206 hits

▼

【76887】結合セルの参照元トレース gg56 15/4/3(金) 12:53