Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4658 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【55211】特定の計算式が入っているセルのみの選択 （。。ｊ） 08/4/22(火) 17:21 質問[未読]
【55212】Re:特定の計算式が入っているセルのみの選択 マクロマン 08/4/22(火) 17:29 発言[未読]
【55213】Re:特定の計算式が入っているセルのみの選択 マクロマン 08/4/22(火) 17:30 発言[未読]
【55214】Re:特定の計算式が入っているセルのみの選択 マクロマン 08/4/22(火) 17:43 発言[未読]
【55215】Re:特定の計算式が入っているセルのみの選択 テト 08/4/22(火) 17:45 発言[未読]
【55235】Re:特定の計算式が入っているセルのみの選択 （。。ｊ） 08/4/23(水) 12:03 質問[未読]
【55236】Re:特定の計算式が入っているセルのみの選択 マクロマン 08/4/23(水) 12:11 発言[未読]
【55378】Re:特定の計算式が入っているセルのみの選択 （。。ｊ） 08/5/1(木) 15:06 質問[未読]
【55211】特定の計算式が入っているセルのみの選択
質問  （。。ｊ）  - 08/4/22(火) 17:21 -
引用なし
パスワード
   またまた教えてください。
特定の計算式の入ったセルのみを全て選択したいのですが、
どのようにしたらいいのでしょうか？
計算式はVLOOKUPを使ったものです。
例えば"=vlookup(B3,sheet2B:F,5,0)"←（但し列番号は変わる）
などとなっています。

同じシートに他の計算式のものもああるので、編集-ジャンプでは使えません。

宜しくお願いしますm(__)m
【55212】Re:特定の計算式が入っているセルのみの...
発言  マクロマン  - 08/4/22(火) 17:29 -
引用なし
パスワード
   選択した後どうするのでしょう？
場合によっては選択する必要はなくなるかもしれません。
選択しなくてループで処理、ではだめですか？

HasFormula
で数式が設定されているか否かを判定できます。
【55213】Re:特定の計算式が入っているセルのみの...
発言  マクロマン  - 08/4/22(火) 17:30 -
引用なし
パスワード
   >計算式はVLOOKUPを使ったものです。

でしたね。失礼しました。
【55214】Re:特定の計算式が入っているセルのみの...
発言  マクロマン  - 08/4/22(火) 17:43 -
引用なし
パスワード
   ループでいいなら、こんな感じで判定できます。

Sub test()
Dim c As Range
　For Each c In Selection
　 If c.Formula Like "=*VLOOKUP*" Then
　　　c.Offset(, 1).Value = "○"
　 End If
　Next
End Sub
【55215】Re:特定の計算式が入っているセルのみの...
発言  テト  - 08/4/22(火) 17:45 -
引用なし
パスワード
   ベタだけど、こんなのどうかな？

――――――――――――――――――――――――――――――
Dim lastRow As Long
Dim lastCol As Long
Dim uRange As Range
Dim iRow As Long
Dim iCol As Long

lastRow = 10
lastCol = 10

For iRow = 1 To lastRow
　　For iCol = 1 To lastCol
　　　　If Cells(iRow, iCol).FormulaLocal Like "=VLOOKUP*" Then
　　　　　　If uRange Is Nothing Then
　　　　　　　　Set uRange = Cells(iRow, iCol)
　　　　　　Else
　　　　　　　　Set uRange = Union(uRange, Cells(iRow, iCol))
　　　　　　End If
　　　　End If
　　Next iCol
Next iRow

If Not uRange Is Nothing Then
　　uRange.Select
End If
――――――――――――――――――――――――――――――
【55235】Re:特定の計算式が入っているセルのみの...
質問  （。。ｊ）  - 08/4/23(水) 12:03 -
引用なし
パスワード
   ▼マクロマンさん、テトさん、ありがとうございます。
VB全然分からないのでマクロマンさんのループの意味わかんなくて...すいません。
テトさんの使わせていただいたんですけど、なぜだか使えるシートと使えないシートが出てきてしまって、使いたいシートで使うことが出来ず、頭を抱えてます。
理由をがんばって探したいと思いますが、何か思い当たる点とかあったら
教えてくださいm(__)m
【55236】Re:特定の計算式が入っているセルのみの...
発言  マクロマン  - 08/4/23(水) 12:11 -
引用なし
パスワード
   >なぜだか使えるシートと使えないシートが出てきてしまって

マクロ自体が実行できないのか、
実行しても何も起きないのか、
期待とは別の結果がでるのか、
どれでしょう？

>VB全然分からないの

私が提示したものはVBではなくVBAですので
そんなに難しくないと思います。

VBAヘルプも活用しましょう。
【55378】Re:特定の計算式が入っているセルのみの...
質問  （。。ｊ）  - 08/5/1(木) 15:06 -
引用なし
パスワード
   ▼マクロマン さん：

おそくなりすいません。
使えるシートだとちゃんと任意のセルを選択してくれるのですが、
使えないシートだと実行しても何も起きません；;


自分でも考えてみましたが分かりませんでした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4658 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free