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

موضوع: تغییر محتوی مجموعه از فایلهای اکسل

  1. #1


    آخرین بازدید
    2024/01/07
    تاریخ عضویت
    July 2014
    نوشته ها
    313
    امتیاز
    35
    سپاس
    109
    سپاس شده
    25 در 24 پست
    تعیین سطح نشده است

    تغییر محتوی مجموعه از فایلهای اکسل

    با سلام . خدمت دوستان و اساتید عزیز سوالی داریم که در ذیل مطرح کرده و پیشاپیش از زحمات شما سپاسگذارم

    بنده یک فولدر دارم که در آن حدود 1000 فایل اکسل وجود دارد اگر بخواهم بدون باز نمودن تک تک فایلها جهت انجام تغییر در یک سلول خاص عمل نمایم راه حلی هست به مثال زیر توجه فرمایید.
    میخواهم تغییرات زیر در کلیه فایلها اعمال گردد :
    1- محتوی سلول a3 پاک گردد
    2- در سلول l1 (تاریخ بازنگری :) نوشته شود
    3- در سلول l2 ( تاریخ 15/05/1396 ) نوشته شود
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2024/01/07
    تاریخ عضویت
    July 2014
    نوشته ها
    313
    امتیاز
    35
    سپاس
    109
    سپاس شده
    25 در 24 پست
    تعیین سطح نشده است

    دوستان راهی هست

  4. #3


    آخرین بازدید
    2024/01/07
    تاریخ عضویت
    July 2014
    نوشته ها
    313
    امتیاز
    35
    سپاس
    109
    سپاس شده
    25 در 24 پست
    تعیین سطح نشده است

    دوستان کمک نمایید لطفا

  5. #4


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

    سلام دوست عزیز

    بله با کدنویسی امکان پذیره
    اگر نمونه بذارین شاید بشه بهتر کمک کرد اما این کد رو تست کنید ببینین جواب مورد نظرتون رو میده یا نه
    دقت کنید که این کدها رو داخل یک فایل جدید قرار بدین و فایل جدید رو داخل همون پوشه که فایلهاتون قرار داره بذارید. (حتما قبل از اجرای کد روی چند فایل تست کنید)

    کد:
    Sub EI_OpenEditClose()
    
    
        Dim Source As String
        Dim StrFile As String
        
        Application.ScreenUpdating = False
        Source = ActiveWorkbook.Path & "\"
        StrFile = Dir(Source)
    
    
        Do While Len(StrFile) > 0
            Workbooks.Open Filename:=Source & StrFile
            Range("A3").ClearContents
            Range("I1") = "tarikh"
            Range("I2") = "15/05/1396"
            ActiveWorkbook.Save
            ActiveWorkbook.Close
            StrFile = Dir()
        Loop
        
        Application.ScreenUpdating = True
    End Sub

  6. سپاس ها (1)


  7. #5


    آخرین بازدید
    2024/01/07
    تاریخ عضویت
    July 2014
    نوشته ها
    313
    امتیاز
    35
    سپاس
    109
    سپاس شده
    25 در 24 پست
    تعیین سطح نشده است

    سلام مجدد
    فرمایشتون رو انجام دادم اما پیغامی رو می ده که باید ذخیره کرد. این کار رو انجام هم دادم اما عملیات انجام نمی شه ( کد نویسی ها رو در یک فایل Execl macro enable workbook کپی کردم )
    225525525.bmp

  8. #6


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

    نقل قول نوشته اصلی توسط fokker نمایش پست ها
    سلام مجدد
    فرمایشتون رو انجام دادم اما پیغامی رو می ده که باید ذخیره کرد. این کار رو انجام هم دادم اما عملیات انجام نمی شه ( کد نویسی ها رو در یک فایل Execl macro enable workbook کپی کردم )
    225525525.bmp

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

  9. #7


    آخرین بازدید
    2024/01/07
    تاریخ عضویت
    July 2014
    نوشته ها
    313
    امتیاز
    35
    سپاس
    109
    سپاس شده
    25 در 24 پست
    تعیین سطح نشده است

    سلام
    جواب اول : اول ذخیره کردم
    جواب دوم : نام پوشه انگلیسی نوشته شده بود


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

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

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

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

  1. [حل شده] تغییر محتوی Text Box
    توسط alireza_a4 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2016/11/20, 08:36
  2. پاسخ ها: 1
    آخرين نوشته: 2016/07/06, 20:13
  3. خواندن تاریخ از یک فایل اکسل دیگه توی اینترنت
    توسط aliooali در انجمن برنامه های کاربردی اکسل
    پاسخ ها: 1
    آخرين نوشته: 2016/05/12, 21:04
  4. مخفی شدن سلول محتوی صفر
    توسط ali.b در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 0
    آخرين نوشته: 2014/03/19, 13:22
  5. چطوری اطلاعات هر سطر رو توی یک فرمول خاص توی یک سلول بریزم؟ (لطفا کمک منید)
    توسط kavirdarkavir در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 8
    آخرين نوشته: 2012/04/19, 21:34

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

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

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

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

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