نمایش نتایج: از شماره 1 تا 6 , از مجموع 6

موضوع: شمارش تعداد کد انتخابی

  1. #1


    آخرین بازدید
    2015/03/28
    تاریخ عضویت
    March 2010
    نوشته ها
    113
    امتیاز
    15
    سپاس
    8
    سپاس شده
    17 در 13 پست
    تعیین سطح نشده است

    شمارش تعداد کد انتخابی

    سلام دوستان
    همونوطور که تو فایل پیوست می بینید توی ستون A کد انتخاب شده در سلول G2 شمرده میشه. تعداد رکوردهای من به 50000 رسیده و باعث شده فایلم خیلی کند بشه.
    میخوام درج شماره ها رو توسط VB داشته باشم. چطور میتونم این کار رو انجام بدم.
    سپاسگذارم

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

  2.  

  3. #2


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: شمارش تعداد کد انتخابی

    با دردود فراوان
    من فایل رو نگاه کردم با این دو ماکرو میشه کاری که خواسته اید رو انجام داد
    ولی فکر می کنم نیازی به این کار نباشد و می توان کاری کرد که سریع به هدف اصلی رسید
    اگر هدف اصلی خود را از این کار بگوئید میشه راه حل بهتری را ارئه داد

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

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

    در دو روش زیر نمونه کار هم آماده کردم که اگر نیاز بود می فرستم

    اول:


    Sub Macro1()
    '
    ' Macro1 Macro
    ' Macro recorded 2010/08/07 by security
    '
    Sheet1.Range("a:a") = ""
    With Sheet1.Range("B:B")
    Set c = .Find(Sheet1.Range("g2").Text, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
    firstAddress = c.Address
    Do
    If c <> "" Then
    n = n + 1
    c.Offset(0, -1).Value = n
    End If
    Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    End With
    '
    End Sub

    دوم:


    Sub Macro2()
    '
    ' Macro1 Macro
    ' Macro recorded 2010/08/07 by security
    '
    Sheet1.Range("a:a") = ""
    For Each c In Sheet1.Range("a:a")

    If c.Offset(0, 1) = Sheet1.Range("g2") Then
    n = n + 1
    c.Value = n
    End If

    Next
    '
    End Sub

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2015/03/28
    تاریخ عضویت
    March 2010
    نوشته ها
    113
    امتیاز
    15
    سپاس
    8
    سپاس شده
    17 در 13 پست
    تعیین سطح نشده است

    RE: شمارش تعداد کد انتخابی

    ممنونم دوست خوبم
    این کد رو چطور باید استفاده کنم. میشه کد رو تو فایل اعمال کنید که راهش را یاد بگیرم.
    درمورد فایل اصلی باید بگم دسترسی بهش ندارم ولی ساختارش همین هست منتهی این واحدها کدکالا هستند ، بعلاوه اینکه بعد از انتخاب کد موردنظر علاوه بر نام ، ده فیلد هم ردیف دیگه هم باید لیست بشن. من اینکارو باشماره گذاری و بعداز اون ره گیری شماره ها با vlookup انجام دادم. اگه راه بهتری وجود داره ممنون میشم راهنمایی کنین.

    بازم ممنونم

  6. #4


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: شمارش تعداد کد انتخابی

    با درود فراوان
    اگر درست متوجه شده باشم می خواهید با انتخاب یک کد کالا تمام کالاها با کد مورد نظر را یافته و هر کدام را با فیلدهای جلوی آن ده فیلد و یا بیشتر را که مشخص می کنیم بصورت یک لیست به ما نشان دهد

    1-حالا این لیست میخواهید جایی ثبت شود
    2-آیاروی لیست یافته شده میخواهید ویرایش انجام دهید یا نه
    3-آیا پرینت و یا خروجی خاصی از این لیست نیاز خواهید داشت
    4-و یا فقط برای مشاهد کردن لیست خواهد بود
    5-تعداد کدهای که سرچ میکنیم حد اکثر چه تعداد خواهد بود
    6-آیا کدهای شبیه به هم خواهیم داشت

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

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

    بدرود

  7. سپاس ها (1)


  8. #5


    آخرین بازدید
    2015/03/28
    تاریخ عضویت
    March 2010
    نوشته ها
    113
    امتیاز
    15
    سپاس
    8
    سپاس شده
    17 در 13 پست
    تعیین سطح نشده است

    RE: شمارش تعداد کد انتخابی

    سلام
    مرسی از وقتی که گذاشتین.
    1- بعضی مواقع لازمه جای دیگه ثبت بشه
    2- خیر
    3- بلی
    4- بلی
    5- درهربار جستجو فقط یک کد. منتهی باوجود 50000 رکورد من میدونم که نتایجم بیشتر از 200 مورد نخواهد بود. بنابراین تعداد فرمولهای مورداستفاده ام 200*10 تا هستن
    6- بلی. درحقیقت همین کدهای شبیه به هم هستن که شمرده میشن.

    بازم ممنونم

  9. #6


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: شمارش تعداد کد انتخابی

    با درود فراوان

    یه نمونه درست میکنم می فرستم


اطلاعات موضوع

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

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. تعريف كاربران مختلف
    توسط intro در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 7
    آخرين نوشته: 2015/07/24, 23:42
  2. تعداد نقاط تلاقی
    توسط farzin24622 در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 14
    آخرين نوشته: 2013/04/10, 11:52
  3. نحوه محدود كردن تعدادي از سلولها
    توسط Leila-2012 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2013/01/25, 11:03
  4. تعداد رقم در سلول
    توسط yhnujm در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 5
    آخرين نوشته: 2013/01/08, 10:59
  5. تعداد ارقام
    توسط rosesefid در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2012/11/20, 10:08

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

شمارش تعداد نفرات در اکسل

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد