Excel VBA質問箱 IV

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

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


33146 / 76734 ←次へ | 前へ→

【48812】Re:条件に合った数式を取得したい。
発言  ウッシ  - 07/5/10(木) 10:43 -

引用なし
パスワード
   こんにちは

>f、s、a、・・・などとしたかったのですが、
>複雑になるので敢えて、全てfの例を挙げました。
全然意味が変わってくる重要な情報です。

>a10にはf以外のものが入っているとして、例としてあげました。
>とにかく「=a10」という式が入ればいいです。
これは、大した意味はないですけど、転記した先で循環参照にならなければOKです。

Sub test()
  Dim r As Range
  Dim f As Range
  Dim m As Range
  Dim a As Range
  For Each r In Range("D1", Range("D65536").End(xlUp))
    On Error Resume Next
    Set m = Range("B:B").SpecialCells(xlCellTypeFormulas)
    If Not m Is Nothing Then
      Set a = m.Offset(0, -1).Areas(m.Areas.Count)
      Set f = m.Offset(0, -1).Find( _
        r.Value, a.Cells(a.Cells.Count), xlValues, xlWhole)
      If Not f Is Nothing Then
        r.Offset(, 1).Formula = f.Offset(, 1).Formula
        f.Offset(, 1).ClearContents
      End If
    Else
      On Error GoTo 0
      Exit For
    End If
    Set m = Nothing
    Set f = Nothing
    Set a = Nothing
    On Error GoTo 0
  Next
  Set m = Nothing
  Set f = Nothing
  Set a = Nothing
End Sub

3 hits

【48808】条件に合った数式を取得したい。 カド 07/5/10(木) 7:54 質問
【48809】Re:条件に合った数式を取得したい。 ウッシ 07/5/10(木) 9:17 発言
【48810】Re:条件に合った数式を取得したい。 カド 07/5/10(木) 10:09 発言
【48811】Re:条件に合った数式を取得したい。 Jaka 07/5/10(木) 10:27 発言
【48812】Re:条件に合った数式を取得したい。 ウッシ 07/5/10(木) 10:43 発言

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