جستجو و یافتن یک مقدار در یک سلول

[aminkarami]

با سلام
می خواستم بدونم دستور کد نویسی جهت یافتن یک مقدار در ستون خاص و برگرداندن شماره سطر و ستون به چه صورته؟
ممنون

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

کدهای ذیل را برای جستجو در ستون A (البته تا سطر 10000) تست بفرمایید.

مقدار پارامتر مورد نظر برای سرچ را در سلول B1 قرار دهید

Sub test()
Dim i As Long
x = Range("B1").Value
For i = 1 To 10000
If Range("A" & i).Value = x Then
MsgBox "Cell Address is: " & Range("A" & i).Address & " Row is: " & Range("A" & i).Row & " Column is: " & Range("A" & i).Column
End If
Next i


End Sub