ساده در مورد اسکرول شیت از طریق کد

**امين اسماعيلي** · 2014/07/08, 16:21

والا تو بگو من یه کلمه فهمیدم نفهمیدو ولی بزار ببینم منظورتون همینه ، شما شیت فیلترتون یه شیت خاص هست یا نه یعنی وقتی فیلتر میکنین اطلاعات به شیت خاصی فرستاده میشن ؟ من فک کنم شما در پیدا کردن اخرین ردف که اطلاعاتتون اونجا واردشده و میخوایین از بالا تا انتها که معلوم نیست کجاست پاک بشه اماده اطلاعات بعدی بشه اره؟

**Juliet** · 2014/07/08, 23:37

عزیزمی نه! منو باش مثلا این همه توضیح دادم که واضح بشه برای کسی که سؤالم رو میخونه!!!!

این "فیلتر" که گفتم منظورم اون ابزار فیلتر منوی دیتا نبود، از لجاظ مفهومی گفتم مقادیر خاصی از دل کل بیرون میاد. واضح ترش میکنم:::::

شیت 1: شش هزار و خرده ای سطر که فیلد اول هر سطر یه کد یونیک گزاشتم
شیت 2: مثلا یکی از امکاناتش این که کاربر میگه از این کد تا اون کد رو اطلاعاتش رو بهم بده، جستجو انجام میشه، مقادیر از شیت 1 کپی میشن و همه چی خوبه

بعد از این داستان فرض کنیم رسیدیم به سطر 100، کاربر میخواد از نو سرچ کنه، قبلی ها رو هم کاری نداره، یه دکمه گزاشتم که این کار رو براش میکنه، همه چیزش خوبه جز اینکه وقتی پاک کرد، دوباره صفحه اسکرول نمیشه بالا، همون سطر 100 به بعد رو میبینه، و هر چند در اثر جستجوی جدیدی مثلا 20 سطر اول براش پر بشن

میخوام با زدن دکمه ای که همه رو براش پاک میکنه صفحه اسکرول هم بشه، چون دستی ممکنه فراموش بشه، و فکر کنی سرچت بی جواب مونده

امیدوارم این بار بهتر توضیح داده باشم، ضمن اینکه بابت توضیح دفعه قبل عذر میخوام

**misammisam** · 2014/07/08, 23:53

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

عزیزمی نه! منو باش مثلا این همه توضیح دادم که واضح بشه برای کسی که سؤالم رو میخونه!!!!

این "فیلتر" که گفتم منظورم اون ابزار فیلتر منوی دیتا نبود، از لجاظ مفهومی گفتم مقادیر خاصی از دل کل بیرون میاد. واضح ترش میکنم:::::

شیت 1: شش هزار و خرده ای سطر که فیلد اول هر سطر یه کد یونیک گزاشتم
شیت 2: مثلا یکی از امکاناتش این که کاربر میگه از این کد تا اون کد رو اطلاعاتش رو بهم بده، جستجو انجام میشه، مقادیر از شیت 1 کپی میشن و همه چی خوبه

بعد از این داستان فرض کنیم رسیدیم به سطر 100، کاربر میخواد از نو سرچ کنه، قبلی ها رو هم کاری نداره، یه دکمه گزاشتم که این کار رو براش میکنه، همه چیزش خوبه جز اینکه وقتی پاک کرد، دوباره صفحه اسکرول نمیشه بالا، همون سطر 100 به بعد رو میبینه، و هر چند در اثر جستجوی جدیدی مثلا 20 سطر اول براش پر بشن

میخوام با زدن دکمه ای که همه رو براش پاک میکنه صفحه اسکرول هم بشه، چون دستی ممکنه فراموش بشه، و فکر کنی سرچت بی جواب مونده

امیدوارم این بار بهتر توضیح داده باشم، ضمن اینکه بابت توضیح دفعه قبل عذر میخوام

سلام
اگه درست متوجه شده باشم ، مشكل اينه كه بعد از فيلتر داده هاتون با كد vb اسكرولتون انقدر پايين مياد كه در صورت استفاده دوباره از اين كد ( دكمه ) اطلاعاتي كه در بالاي شيت فراخواني شده ديده نميشه .
اگه دقيقا مشكلتون اين باشه ، خيلي راحت ميتونين تو آخر كد vb كه نوشتيد بزنيد

کد PHP:


Range("a1").Select

اينطوري اسكرول به اول صفحه بر ميگرده .

**Juliet** · 2014/07/09, 00:21

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

سلام
اگه درست متوجه شده باشم ، مشكل اينه كه بعد از فيلتر داده هاتون با كد vb اسكرولتون انقدر پايين مياد كه در صورت استفاده دوباره از اين كد ( دكمه ) اطلاعاتي كه در بالاي شيت فراخواني شده ديده نميشه .
اگه دقيقا مشكلتون اين باشه ، خيلي راحت ميتونين تو آخر كد vb كه نوشتيد بزنيد

کد PHP:


Range("a1").Select

اينطوري اسكرول به اول صفحه بر ميگرده .

به جان خودم سراغ تابع Select رفتم، دقیقا نوشتم: Cells(3, 1).Select نمیدونم حواسم کجا بوده که فکر کردم کار نکرده، معذرت الکی وقتتون رو گرفتم.
ولی خب، یه مورد دیگه مونده، وقتی مثلا 100 سطر اضافه میشه، همین بالا میمونه، چطوری میتونم آخرین سلول محتوا دار رو پیدا کنم با سلکت برم سراغش؟

خیلی ممنون

**khakzad** · 2014/07/09, 00:56

سلام
اخرین سل پر شده رو می تونید از طریق count و offset بدست بیارید.:

کد:

range("a1").offset(worksheetfunction.count(range("a1:a100000")),0).select

[/CODE]

همچنین کد زیر هم اخرین سل پر شده رو به شرط عدم وجود انفصال بین داده ها بهتون میده!

کد:

range("a1").End(xlUp)

**misammisam** · 2014/07/09, 01:00

رديف آخرين سلول فعال رو در متغير lastrow ذخيره ميكنه .

کد PHP:


lastrow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

در اين مورد آقاي اسمائيلي خيلي مطلب گذاشتن ، lastrow رو سرچ كنيد تا اطلاعات بيشتري در اين مورد كسب كنيد.

**Juliet** · 2014/07/09, 20:48

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

سلام
اخرین سل پر شده رو می تونید از طریق count و offset بدست بیارید.:

کد:

range("a1").offset(worksheetfunction.count(range("a1:a100000")),0).select

[/CODE]

همچنین کد زیر هم اخرین سل پر شده رو به شرط عدم وجود انفصال بین داده ها بهتون میده!

کد:

range("a1").End(xlUp)

درود بزرگوار
نمیدونم اشکال کارم کجاست اما سطر دوم روی .End خطای کامپایل Invalid Use of Property میده،

اما سطر دوم رو روی یک فایل خالی که از عدد 1 تا 600 یه سری عددی ساده ستون آ زده بودم امتحان کردم، کامل و بی اشکال بهم ج میداد، اما روی فایل اصلی - که البته سطر ها پیوسته نیستن و سطور خالی برای تفکیک گروه های مقادیر دارم، درست ج نمیده، مثلا وقتی حدود 200 سطر اضافه میشه میره روی سطر 100، بعد که حدود 400 سطر اضافه میکنم میره حدود 150!

اما به هر صورت از شما سپاس گزارم، لطف کردین وقت گزاشتین

**Juliet** · 2014/07/09, 20:54

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

رديف آخرين سلول فعال رو در متغير lastrow ذخيره ميكنه .

کد PHP:


lastrow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

در اين مورد آقاي اسمائيلي خيلي مطلب گذاشتن ، lastrow رو سرچ كنيد تا اطلاعات بيشتري در اين مورد كسب كنيد.

درود و سپاس بیحد از شما، آقای اسماعیلی . دیگر دوستان که محبت کردن و وقت گزاشتن
چشم، حتماً دنبال اون مباحث میرم

پاینده باشید

ضمناً همین جا، خودم، تبدیل شدن خودم رو از تازه وارد به کاربر سایت به خودم تبریک میگم!!!

نیومده عاشق اینجا شدم، خدا واسه همه نگهش داره :53::53::53::53::53::53::53: