Excel VBA質問箱 IV

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

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


7142 / 76732 ←次へ | 前へ→

【75181】Re:VLOOKUPのセルを含むとエラーが出ます。
回答  ウッシ  - 13/12/27(金) 11:41 -

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

こんにちは

少数は丸め誤差があって取扱に注意が必要なので避けたいです。
今回の件には丸め誤差は関係ないかもしれないですけど・・・

Find で値検索(LookInをxlValues)すると、セルのTextプロパティの内容で検索しているみたいです。
日付の検索なら LookInをxlFormula にすると書式に関係なく検索出来るようですけど、今回の少数の
場合はダメでした。
なので、Maxで見つかった少数点以下7桁の値をセルの書式の少数点以下3桁に直してから検索するように
してみました。
見つかったセルを変数tにセッテして、tに罫線、太字を設定しています。

少数点以下3桁にした状態で最大値のセルが検索範囲に一つしかないという条件です。

Sub てすと()
  Dim m As String
  Dim t As Range
  With Range("A1:I10")
    m = Format(Application.WorksheetFunction.Max(.Cells), "0.000 ") '実際のセルの書式にする
    Set t = .Find(What:=m, LookIn:=xlValues, LookAt:=xlWhole)
  End With
  With t
    .BorderAround Weight:=xlMedium, ColorIndex:=3
    .Font.Bold = True
  End With
End Sub

395 hits

【75169】VLOOKUPのセルを含むとエラーが出ます。 しずか 13/12/25(水) 15:52 質問
【75170】Re:VLOOKUPのセルを含むとエラーが出ます。 ウッシ 13/12/25(水) 16:31 回答
【75174】Re:VLOOKUPのセルを含むとエラーが出ます。 しずか 13/12/26(木) 9:46 質問
【75175】Re:VLOOKUPのセルを含むとエラーが出ます。 ウッシ 13/12/26(木) 10:16 回答
【75176】Re:VLOOKUPのセルを含むとエラーが出ます。 しずか 13/12/26(木) 12:54 質問
【75177】Re:VLOOKUPのセルを含むとエラーが出ます。 ウッシ 13/12/26(木) 13:35 回答
【75178】Re:VLOOKUPのセルを含むとエラーが出ます。 しずか 13/12/26(木) 19:49 質問
【75179】Re:VLOOKUPのセルを含むとエラーが出ます。 ウッシ 13/12/27(金) 9:49 回答
【75180】Re:VLOOKUPのセルを含むとエラーが出ます。 しずか 13/12/27(金) 11:03 お礼
【75181】Re:VLOOKUPのセルを含むとエラーが出ます。 ウッシ 13/12/27(金) 11:41 回答
【75182】Re:VLOOKUPのセルを含むとエラーが出ます。 しずか 13/12/27(金) 13:02 お礼
【75183】余談ですが・・・ しずか 13/12/27(金) 13:58 発言
【75184】Re:余談ですが・・・ ウッシ 13/12/27(金) 14:17 回答
【75185】Re:余談ですが・・・ しずか 13/12/27(金) 15:11 お礼

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