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

موضوع: vba برای فیلتر اتوماتیک و سیو کردن نتیجه به صورت یک عکس

  1. #1

    آخرین بازدید
    2018/02/10
    تاریخ عضویت
    February 2018
    نوشته ها
    1
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    vba برای فیلتر اتوماتیک و سیو کردن نتیجه به صورت یک عکس

    دوستان سلام
    من یک کد پیدا کردم که باهاش می تونم اتوماتیک فیلتر کنم و پرینت بگیرم.
    ولی می خوام این کد تغییر بدم و بتونم اتوماتیک فیلتر کنم و نتیجه رو به صورت یک عکس بگیرم.
    میشه کسی بهم کمک کنه؟
    مرسی
    Sub Auto_Print_Lamp_PK()


    Dim noDupes As New Collection
    Dim rw As Long
    Dim itm As Variant
    Selection.AutoFilter Field:=2
    rw = ActiveSheet.AutoFilter.Range.Row
    For Each cell In ActiveSheet.AutoFilter.Range.Columns(2).Cells
    If cell.Row <> rw Then
    On Error Resume Next
    noDupes.Add cell.Value, cell.Text
    On Error GoTo 0
    End If
    Next
    For Each itm In noDupes
    Selection.AutoFilter Field:=2, Criteria1:=itm
    Selection.AutoFilter Field:=2, Criteria1:=itm
    ActiveSheet.PrintPreview
    Next


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

  2.  

  3. #2


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    سلام دوست عزيز
    اين كدي كه شما گذاشتين پرينت رو نميگيره فقط صفحه پيش نمايش پرينت رو مياره. اين نكته اول

    نكته دوم اينكه شما فرض كنيد بعداز فيلتر حدود 400 رديف ديتا داشته باشيد. به نظرتون اين 400 رديف رو ميشه تو يك عكس آورد؟

    من پيشنهادم اينه كه شما فايل خروجي رو بصورت pdf بگيريد. مثلا ميشه 10 صفحه. بعد با نرم افزارهايي كه كار تبديل انجام ميدن pdf رو به jpg يا png تبديل كنيد

  4. سپاس ها (1)



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

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

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

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

  1. [حل شده] چاپ سطر های پر شده به صورت اتوماتیک
    توسط ali_shariat23 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2018/02/07, 10:28
  2. ورود اطلاعات از یک مرجع بصورت اتوماتیک
    توسط Rasoold در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 2
    آخرين نوشته: 2015/12/30, 04:26
  3. پاسخ ها: 5
    آخرين نوشته: 2015/01/22, 00:23
  4. درصورتیکه نتیجه تابع vlookup=false باشه
    توسط mohsen_persia در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 2
    آخرين نوشته: 2014/09/11, 20:57
  5. سیو اتوماتیک فایل اکسل
    توسط my90d در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 8
    آخرين نوشته: 2012/09/18, 16:51

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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

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