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

موضوع: درست کردن فرم های خام برای هر فرد

  1. #1


    آخرین بازدید
    2018/04/27
    تاریخ عضویت
    December 2017
    نوشته ها
    9
    امتیاز
    10
    سپاس
    7
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    درست کردن فرم های خام برای هر فرد

    سلام من یه لیست 180 نفری دارم که میخوام برا هر نفرشون یه فرم ثابت داشته باشم به اسم خودشون یعنی روی اکسل راست کلیک بشه و از Rename اسم فایل تغییر کنه
    آیا راهی هست که اتوماتیک بسازم یا باید دونه دونه فرم رو کپی کنم و اسم طرف رو بذارم اسم فایل اکسلم
    ممنون میشم راهنماییم کنید
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


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

    نقل قول نوشته اصلی توسط mehrdad71 نمایش پست ها
    سلام من یه لیست 180 نفری دارم که میخوام برا هر نفرشون یه فرم ثابت داشته باشم به اسم خودشون یعنی روی اکسل راست کلیک بشه و از rename اسم فایل تغییر کنه
    آیا راهی هست که اتوماتیک بسازم یا باید دونه دونه فرم رو کپی کنم و اسم طرف رو بذارم اسم فایل اکسلم
    ممنون میشم راهنماییم کنید
    سلام دوست عزيز
    كامل متوجه سوالتون نشدم ولي با vba حتما شدني هست.
    لطفا بفرماييد منظورتون از فرم چيه؟ يك فايل اكسل؟
    اگر پاسختون مثبته ميخواهيد يك فايل مشخص رو فقط با اسم هاي مختلف ذخيره كنيد؟


  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2018/04/27
    تاریخ عضویت
    December 2017
    نوشته ها
    9
    امتیاز
    10
    سپاس
    7
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    سلام دوست عزيز
    كامل متوجه سوالتون نشدم ولي با vba حتما شدني هست.
    لطفا بفرماييد منظورتون از فرم چيه؟ يك فايل اكسل؟
    اگر پاسختون مثبته ميخواهيد يك فايل مشخص رو فقط با اسم هاي مختلف ذخيره كنيد؟

    یه فایل اکسل دارم و میخوام این فایل رو تبدیل کنم به 180 تا فایل و قبل از ذخیره کردن از شیت دوم نام و نام خانوادگی رو به ترتیب برداره وبگذاره به عنوان نام فایل و save as کنه و نهایتا 180 تا فایل داشته باشم که اسم هر فایلی نام و نام خانوادگی پرسنلم باشه
    ویرایش توسط mehrdad71 : 2018/01/22 در ساعت 15:56

  6. #4


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

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

    خدمت شما دوست عزيز:

    کد:
    Sub EI_Copy2NewFile()
    For Each c In Sheet1.Range("A1").CurrentRegion
        Sheet2.Copy
        ActiveWorkbook.SaveAs c.Value & ".xlsx"
        ActiveWorkbook.Close
    Next c
    End Sub

    دقت داشته باشيد كه اسم افراد در شيت 1 و در ستون A از سلول A1 به بعد نوشته شده باشد و فرم مورد نظر در شيت 2

    اگر سوالي هست در خدمتم وگرنه لطف كنيد تاپيك رو حل شده كنيد

  7. سپاس ها (3)


  8. #5


    آخرین بازدید
    2018/04/27
    تاریخ عضویت
    December 2017
    نوشته ها
    9
    امتیاز
    10
    سپاس
    7
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    امکانش هست فایل اکسل ضمیمه کنید؟
    ممنون میشم
    آخه هر کار میکنم ارور میده

  9. #6


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

    نقل قول نوشته اصلی توسط mehrdad71 نمایش پست ها
    امکانش هست فایل اکسل ضمیمه کنید؟
    ممنون میشم
    آخه هر کار میکنم ارور میده
    بله حتما.

    احتمالا اين خطايي كه ميده بخاطر اينه كه آي دي شيت هاتون درست نيست
    لطفا يا فايل ضميمه كنيد يا عكس از خطا بگيريد بررسي كنم
    فايل هاي پيوست شده فايل هاي پيوست شده

  10. سپاس ها (1)


  11. #7


    آخرین بازدید
    2018/04/27
    تاریخ عضویت
    December 2017
    نوشته ها
    9
    امتیاز
    10
    سپاس
    7
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    بله حتما.

    احتمالا اين خطايي كه ميده بخاطر اينه كه آي دي شيت هاتون درست نيست
    لطفا يا فايل ضميمه كنيد يا عكس از خطا بگيريد بررسي كنم
    واقعا ممنونم مشکل اصلیم برطرف شد فقط فایلا رو میره تو مای داکیومنت میسازه چطور میتونم محل ذخیره رو ادس بدم
    و اینکه توی هر فرم کد پر سنلی طرف هم که توی شیت اول باشه برداشته بشه و توی فایل خودش ذخیره بشه
    واقعا ممنونم
    ویرایش توسط mehrdad71 : 2018/01/22 در ساعت 16:42

  12. #8


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

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

    خواهش ميكنم
    براي تغييرات اخيري كه گفتين از اين كد كمك بگيريد:
    کد:
    Sub EI_Copy2NewFile()
    Curl = ActiveWorkbook.Path
    For Each c In Sheet1.Range("A1").CurrentRegion
        Sheet2.Copy
        Range("A1") = c.Offset(, 1)
        ActiveWorkbook.SaveAs Curl & "\" & c.Value & ".xlsx"
        ActiveWorkbook.Close
    Next c
    End Sub
    بجاي Curl ميتونين هر آدرسي كه دوست داريد بدين. من آدرس فايل رو دادم كه همونجا بريزه
    براي كد پرسنلي هم اگر كدها رو درست كنار اسامي بنويسيد اين كدي كه تقديم كردم كد پرسنلي ها رو در سلول A1 فايل جديد درج ميكنه

  13. سپاس ها (3)


  14. #9


    آخرین بازدید
    2018/04/27
    تاریخ عضویت
    December 2017
    نوشته ها
    9
    امتیاز
    10
    سپاس
    7
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها

    خواهش ميكنم
    براي تغييرات اخيري كه گفتين از اين كد كمك بگيريد:
    کد:
    Sub EI_Copy2NewFile()
    Curl = ActiveWorkbook.Path
    For Each c In Sheet1.Range("A1").CurrentRegion
        Sheet2.Copy
        Range("A1") = c.Offset(, 1)
        ActiveWorkbook.SaveAs Curl & "\" & c.Value & ".xlsx"
        ActiveWorkbook.Close
    Next c
    End Sub
    بجاي Curl ميتونين هر آدرسي كه دوست داريد بدين. من آدرس فايل رو دادم كه همونجا بريزه
    براي كد پرسنلي هم اگر كدها رو درست كنار اسامي بنويسيد اين كدي كه تقديم كردم كد پرسنلي ها رو در سلول A1 فايل جديد درج ميكنه
    آقای مهندس تموم مشکلام حل شد فقط یه مشکل هست
    وقتی کد ران بشه برا کل سلول های شیت یک به اسم خودشون یه فایل میسازه
    ولی من میخوام فقط برا ستون اول بسازه

  15. #10


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

    نقل قول نوشته اصلی توسط mehrdad71 نمایش پست ها
    آقای مهندس تموم مشکلام حل شد فقط یه مشکل هست
    وقتی کد ران بشه برا کل سلول های شیت یک به اسم خودشون یه فایل میسازه
    ولی من میخوام فقط برا ستون اول بسازه

    بله درسته. میتونین کد رو اینطوری تغییر بدین:
    کد:
    Sub EI_Copy2NewFile()
    Curl = ActiveWorkbook.Path
    For Each c In Sheet1.Range("A1:A180")
        Sheet2.Copy
        Range("A1") = c.Offset(, 1)
        ActiveWorkbook.SaveAs Curl & "\" & c.Value & ".xlsx"
        ActiveWorkbook.Close
    Next c
    End Sub

  16. سپاس ها (3)



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

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

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

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

  1. پاسخ ها: 0
    آخرين نوشته: 2017/05/06, 11:59
  2. مشکل مطالب چپ به راست و کپی در شیت راست به چپ
    توسط alibobo در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2017/01/24, 16:40
  3. پرسش درخواست راهنمایی در رابطه با جست وجوی پیشرفته توسط تابع Vlookup
    توسط Ali_Sedaghat در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 3
    آخرين نوشته: 2017/01/23, 17:13
  4. طراحی ستون*هاي با بست چپ و راست تك
    توسط alieddy0 در انجمن اسپريد شيت هاي مهندسي - Engineering spreadsheet
    پاسخ ها: 0
    آخرين نوشته: 2014/03/18, 12:22
  5. شکلک پستچی در پائین راست صفحه چی چیه ؟ مزاحم دید ماست.
    توسط absabdi2005 در انجمن انتقادات و پیشنهادات خود را در این اتاق ثبت کنید
    پاسخ ها: 5
    آخرين نوشته: 2014/02/19, 13:12

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

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

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

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

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