No.4ベストアンサー
- 回答日時:
#03です。
一応マクロも書きました。Sub Macro()
Dim idx, MinR As Long
Dim TargetVal, MinVal As Single
Dim ws
TargetVal = 347.398 '← 目標値
With Worksheets("Datum") '← ワークシート名
Set ws = .Range("A1")
MinVal = 10 ^ 6
For idx = 1 To .Range("C65536").End(xlUp).Row
If IsNumeric(ws(idx, 3)) Then
If Abs(ws(idx, 3) - TargetVal) < MinVal Then
MinVal = Abs(ws(idx, 3) - TargetVal)
MinR = idx
End If
End If
Next idx
MsgBox ("目的の行は" & MinR & "行目です")
End With
End Sub
機種にもよりますが、10000行でも2秒程度でしょう。
>これがVBAでコード化可能であれば
とのことですが、#03の方法ではワークシートに式を入れておけば済む話ですからこの式をVBAの中で実現するのは意味がないと思います。
ありがとうございます。今 #2さんの方法でコードを組んでいるところです。(#2さんの手順はわかりやすいので)
その後にご紹介のコードを試してみます。
(最近接データを探す単一の関数はなかったのですねーー。)
No.3
- 回答日時:
処理速度を求めるならシート上の任意のセルに
=MAX(INDEX((ABS($C$1:$C$10000-347.398)=MIN(INDEX(ABS($C$1:$C$10000-347.398),)))*ROW($C$1:$C$10000),))
を入力して、求める行番号を計算させておきます。
1分おきにこの値を転記してはどうですか。
ただしこの式では差分の絶対値が最小となるセルが複数ある時は最後の行を求めています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Excel(エクセル) 列の複数ある空白セルを飛ばして、セルに並べて表示したい 3 2023/02/12 16:49
- Visual Basic(VBA) Excel のユーザー定義関数でソルバーが動作しない 1 2022/09/05 19:51
- Excel(エクセル) セルを数式で指定する方法 5 2022/04/13 16:55
- Visual Basic(VBA) 列を指定して値を左から5文字にそろえる 1 2022/06/10 20:28
- Visual Basic(VBA) vba 隣のセルに値がある行だけ関数をコピー&ペーストしたい A1 100001 A2 100002 1 2023/01/28 14:29
- Visual Basic(VBA) 範囲内で最大値を見つけ、その隣のセルの値を返す 2 2022/03/23 19:34
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBA 指定値に最も近い値のセルの行番号は?
Excel(エクセル)
-
Excel VBA 初心者です 近似値を探し出してから作業する構文をご教示ください。
Visual Basic(VBA)
-
Excelで一番ゼロに近い値を求めるには
Excel(エクセル)
-
-
4
Excelで指定した日付から過去の最も近い日付(指定した日付も含む)を下から検索する方法
Visual Basic(VBA)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
指定範囲から任意の近似値を探したい
Excel(エクセル)
-
7
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
8
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
9
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
12
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
13
フォントの大きさ
Visual Basic(VBA)
-
14
matchプロパティを取得できません…と出ます。
PowerPoint(パワーポイント)
-
15
配列でデータが入っている要素を求める方法
Visual Basic(VBA)
-
16
エクセルVBAが途中で止まります
Visual Basic(VBA)
-
17
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
18
UserForm1.Showでエラーになります。
工学
-
19
Excelである地点に一番近い座標を検索したい
Excel(エクセル)
-
20
Excelの指定する列から検索値に最も近い値と行数を抽出する方法について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
EXCELで条件付き書式で空白セル...
-
彼女のことが好きすぎて彼女の...
-
至急!尿検査前日にオナニーし...
-
甲状腺が腫れているが血液検査...
-
勃起する時って痛いんですか? ...
-
小数点以下を繰り上げたものを...
-
MIN関数で空白セルを無視したい...
-
値が入っているときだけ計算結...
-
2つの数値のうち、数値が小さい...
-
エクセル指定した範囲からラン...
-
尿検査前日に自慰行為した時の...
-
中出しをするとお腹が痛い・・・。
-
一番多く表示のある値(文字列...
-
精子が黄色?
-
【Excelで「正弦波」のグラフを...
-
ある範囲のセルから任意の値を...
-
Excel条件付書式(残業45時間以...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報