Excel VBA質問箱 IV

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

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


9646 / 76734 ←次へ | 前へ→

【72649】Re:検索値以外を全て削除したい
質問  はってんちゅう  - 12/8/30(木) 17:07 -

引用なし
パスワード
   ▼ドカ さん:

ありがとうございます。

ついでで申し訳ないのですが、
検索Findを使用するときの指定要因で、検索用語が完全一致であることを指定するには、どういう文言が必要なのでしょうか。調べても見つからず困っています。

教えていただけますでしょうか。

以下は、“当期純損益金額”という言葉のある行の2行下にコピーしているものを
貼り付ける事を書いたものです。
他にもこの言葉が入った用語があり、現在のモジュールはそれを選択してしまっています。
言葉の完全一致を指定したいです。

  Range("A10").Select  '投資残の表を損益外貨表の下に貼り付け
  Range(Selection, Selection.End(xlDown)).Select
  Range(Selection, Selection.End(xlToRight)).Select
  Selection.Copy
  Sheets(2).Select
  With Worksheets(2).Range("a10:a50")
    Set u = .Find("当期純損益金額", LookAt:=xlPart, LookIn:=xlValues, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True)
  firstaddress = u.Address
  Range("A" & u.Row + 2).Select
  ActiveSheet.Paste
  End With

宜しくお願い致します。

0 hits

【72645】検索値以外を全て削除したい はってんちゅう 12/8/30(木) 15:26 質問
【72647】Re:検索値以外を全て削除したい UO3 12/8/30(木) 15:49 発言
【72648】Re:検索値以外を全て削除したい ドカ 12/8/30(木) 16:29 回答
【72649】Re:検索値以外を全て削除したい はってんちゅう 12/8/30(木) 17:07 質問
【72650】Re:検索値以外を全て削除したい UO3 12/8/30(木) 17:26 発言
【72652】Re:検索値以外を全て削除したい はってんちゅう 12/8/30(木) 20:02 お礼
【72651】Re:検索値以外を全て削除したい ドカ 12/8/30(木) 17:46 発言
【72653】Re:検索値以外を全て削除したい はってんちゅう 12/8/30(木) 20:14 お礼

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