[حل شده] سوال در خصوص نوشتن ماکرو جهت جستجو در ستون

[mhg134141]

با سلام
من میخوام ماکروی باشه که با اجرای اون ستون A را انتخاب کرده و ار کاریر داده ای مثل عدد یا حرف را بپرسد و پس از دادن داده توسط کاریر ستون مورد نظر را جستجو کند و اگر یافت شد اسکرول بر روی همان سلول توقف کند و اگر پیدا نکرد پیغام دهد که شماره یا کلمه مورد نظر یافت نشد . یکی از دوستان انجمن ماکرو زیر را زحمت کشیدن برام فرستان . این ماکرو در فایل پیوستی خودشان کار میکند اما در فایل من کار نمیکند و اولین سلول خالی را در ستون A پیدا کرده و اسکرول همنجا متوقف شده و طی پنجره ای کلمه ok برایم ظاهر میشود . لطفا راهنمائی نمائید . متشکرم . مسعود

()Private Sub CommandButton1_Click

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For I = 2 To z1

If Val(Range("A" & I)) = Val(TextBox1) Then

Range("A" & I).Select

MsgBox "OK"

Exit For

End If

Next

End Sub

[iranweld]

با سلام


فایل پیوست را بررسی کنید

Private Sub CommandButton1_Click()

Columns("A:A").NumberFormat = "@"

 t = False

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For I = 2 To z1

If Len(Range("A" & I)) = Len(TextBox1) And Range("A" & I) = TextBox1 Then

Range("A" & I).Select

MsgBox "OK"

t = True

Exit For


End If

Next

If t = False Then MsgBox "Not Found.."

End Sub 

[mhg134141]

سلام دوست عزیز ( Iranweld )
متاسفانه هیچ فرقی نکرد و بدون پرسش و اخذ داده از کاربر خودش جستجو میکند و روی اولین سلول خالی توقف کرده و پنجره OK ظاهر میشود .
نتیجه ای نگرفتم . البته در فایل ارسالی شما درست کار میکند اما وقتی به فایل اکسل خودم انتقال میدم اینطوری که عرض کردم میشه .

[حسام بحرانی]

UserForm1.Show

سلام
این مشکل به این دلیل بوجود آمده که شما اصلاً یوزرفرمی تهیه نکردید و صرفاً کد دوست خوبم آقای حسن پور عزیز رو در CommandButton1 وارد کردید!

برای اینکه دقیقتر متوجه بشید این کارها رو انجام بدید:

ابتدا یک یوزرفرم تهیه کنید، در آن یک تکست باکس قرار بدید ( برای ورود مورد جستجو )،

سپس به یوزرفرم یک CommandButton1 اضافه کنید، بر روی آن دبل کلیک نموده و کد جناب حسن پور را در آن بنویسید.

حالا برای فراخوانی این یوزر فرم در شیت مورد نظر یک CommandButton دیگر وارد نموده و پس از دابل کلیک بر روی آن این دستور رو بنویسید:

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub 

با این دستور یوزرفرم فراخوانی میشه و میتونید در تکست باکس مورد جستجو را وارد نموده و بقیه مراحل...

اگر بازهم متوجه نشدید عنوان کنید تا بیشتر راهنمایی بشید.
موفق باشید.

[mhg134141]

سلام آقا حسام
همین کا را انجام دادم یعنی یوزر فرم تهریف کرده و کد آقای حیم پور را داخلش نوشتم و سپس یه باکس در اکسلم ایجاد و بع از دابل کلیلک روی آن در sub ایجاد شده آن تایپ کردم UserForm1.Show
اما ظاهرا بدون اینکه جستجویی در ستون A شیت من انجان بده پیغام میده یافت نشد . علت چیه ؟ در پیوست تصویر آن را برایتون میفرستم .

[حسام بحرانی]

سلام
با توجه به تصویری که ارسال کردید، بنظر میرسه شماره پرونده را بر روی Shape ثبت کردید! درسته؟!

[mhg134141]

سلام
شماره پرونده ها هایپر لینک هستند که با کلیک روی انها به شیتی که شرح اقدامات انجام شده است میره .

[حسام بحرانی]

یه پیشنهاد براتون دارم:

ستون A را انتخاب کنید و در قسمت فرمول نویسی این فرمول رو بنویسید و فقط بجای Enter از کلیدهای ترکیبی Ctrl+Shift+Enter استفاده کنید.

=ROW()-1 

و سپس کد را امتحان کنید و نتیجه رو اعلام کنید.

[mhg134141]

با سلام مجدد
اینکارو دقیقا انجام دادم فرقی نکرد. حتی در کد نوشته شده یجای a ستون c رو تغییر دادم بازم فرقی نکرد و همان پیام فایل نات فاند رو میده . در ضمن این ماکرویی که لطف کردین برام ؟ ستون ها رو از فرمت نیومر به تکست تغییر میده در حالیکه بعضی از ستون های فایلم لازمه که حتما نیومر باشند .

[mhg134141]

با سلام
جناب بحرانی علت و راهکار رو میشه بررسی و جواب بدین ؟ ممنون

[حسام بحرانی]

Input Box

با سلام
جناب بحرانی علت و راهکار رو میشه بررسی و جواب بدین ؟ ممنون

سلام
از Input Box استفاده کنید و در ماژول کد زیر را وارد نمایید:

Sub Find_Select()
    Dim FindString As String
    Dim Rng As Range
    FindString = InputBox("مورد جستجو را وارد کنید")
    If Trim(FindString) <> "" Then
        With Sheets("Sheet1").Range("A:A")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
            Else
                MsgBox "این مورد پیدا نشد"
            End If
        End With
    End If
End Sub 

فقط چون احتمالاً شماره پرونده ها را در Shape نوشتید لازمه زیر هر Shape ( یعنی سلول زیر Shape ) عدد یا موردی که قصد جستجوی آن را دارید را تایپ کنید

(اگر عدد باشه و به ترتیب هم باشه راحت ترین کار همون فرمولی هست که خدمتتون اعلام شد)

بررسی کنید ببینید جوابتون رو میده؟
موفق باشید.

[mhg134141]

سلام و سپاس فراوان مشکل حل شد
همیشه موفق و سربلند باشید .
ارادتمند مسعود

[حسام بحرانی]

خواهش میکنم.

درصورتی که پاسخ سؤالتون رو گرفتید ، تاپیک رو حل شده کنید.