find در ویژال بیسیک اکسل

**~M*E*H*D*I~** · 2013/02/13, 19:39

RE: find در ویژال بیسیک اکسل

چرا از vlookup استفاده نمیکنی؟

**alieddy0** · 2013/02/14, 08:45

RE: find در ویژال بیسیک اکسل

با سلام خدمت شما
در تکمیل فرمایش استاد وطن پرست باید اضافه کنم که اگه تاکیدی بر کار با ویژوال بیسیک دارین با کد زیر میتونید از کلیه فرمولهای اکسل بصورت کد استفاده کنید.در رابطه با درج مقدار حاصله در سلول خاص مطالب متعددی در تالار مطرح شده که میتونید با جستجو به مقصود برسید.

کد : فرمول مربوطه در اکسل.application.WorksheetFunction

**khorasan66** · 2013/02/14, 11:26

RE: find در ویژال بیسیک اکسل

ضمن تشکر از استاد گرامی مشکلی با فرمول مذکور ندارم اما احتیاج دارم حتما با ویژال بیسیک بنویسم چون مسلط نیستم کمک خواستم تا اینجا هم پیشر فته ام که
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Column = 1 And Selection.Count = 1 Then

If Selection.Offset(-1, 0) <> "" And Selection = "" Then

Selection.Offset(-1, 1).Select
و ؟؟؟

**khakzad** · 2013/02/14, 15:34

RE: find در ویژال بیسیک اکسل

سلام
از حلقه for استفاده کنید.وسطش هم از فرمول vlookup
به اینصورت که با هر بار اجرا شدن حلقه یک رکورد را جستجو کند و جواب را در یک سل نمایش دهد.
با تمام شدن حلقه همه داده های مورد نظر در جدول جستجو شده و نتیجه را نمایش می دهد

**khorasan66** · 2013/02/16, 07:36

RE: find در ویژال بیسیک اکسل

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

سئوال دوم
در این فایل شیت سومی به نام anbar موجود می باشد که تمامی ورود و خروج های کالا ها در آن نگهداری می شود . به دستوری نیاز دارم که وقتی کاربر کد را وارد نمود و علاوه بر نام کالا که در بالا اشاره شد در ستون بعدی نعداد موجود فعلی از شیت anbar محاسبه و در این شیت به کاربر نمایش دهد .
مجدداً متذکر می شوم مشکلی برای استفاده از فرمول sumifs ندارم ولی می خواهم این فرمول ها بجای نوشته شدن در شیت ها توسط vb اجرا شوند .

با تشکر از وقتی که گذاشتید اگر برایتان ممکن است یک فایل نمونه بگذارید .

**khorasan66** · 2013/02/20, 21:57

RE: find در ویژال بیسیک اکسل

امکان آپلود فایل را ندارم با تشکر

**Javid Mokhtari** · 2013/02/23, 12:44

RE: find در ویژال بیسیک اکسل

نوشته اصلی توسط khorasan66

امکان آپلود فایل را ندارم با تشکر

فایل های پیوست شده

vlook up.xlsm (188.7 کیلو بایت, مشاهدات 25)

کامنت

find در ویژال بیسیک اکسل