غيرفعال كردن محاسبه خودكار براي تمام نرم*افزار و فعال كردن محاسبه براي يك شيت خاص

**ظهور 313** · 2017/12/31

سلام و عرض ادب خدمت اساتيد سايت خود اكسل ايران
هرچند كه ظاهرا يه مدتيه هيچ كسي نيست كه به سوالات بنده پاسخ بده، اما بازم ميپرسم شايد يكي از اساتيد لطف كنه و جواب دبه

نياز به يه كد دارم كه بلافاصله بعد از اينكه محاسبه خودكار فرمول*ها رو غيرفعال كرد و يه سري دستورات رو انجام داد، بلافاصله محاسبات خودكار رو براي يه شيت خاص، فعال كنه. اين كد رو نوشتم اما جواب نميده

Application.Calculation = xlCalculationManual
Workbooks("liste Hoghoogh").Sheets("PRINT").EnableCalculation = True

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

سیستم تبلیغات اکسل ایران

**Amir Ghasemiyan** · 2017/12/31

نوشته اصلی توسط ظهور 313

سلام و عرض ادب خدمت اساتيد سايت خود اكسل ايران
هرچند كه ظاهرا يه مدتيه هيچ كسي نيست كه به سوالات بنده پاسخ بده، اما بازم ميپرسم شايد يكي از اساتيد لطف كنه و جواب دبه

نياز به يه كد دارم كه بلافاصله بعد از اينكه محاسبه خودكار فرمول*ها رو غيرفعال كرد و يه سري دستورات رو انجام داد، بلافاصله محاسبات خودكار رو براي يه شيت خاص، فعال كنه. اين كد رو نوشتم اما جواب نميده

Application.Calculation = xlCalculationManual
Workbooks("liste Hoghoogh").Sheets("PRINT").EnableCalculation = True

سلام دوست عزيز
كدي كه نوشتين تقريبا درسته

کد:

Application.Calculation = xlCalculationManual ' your codes hear Application.Calculation = xlCalculationAutomatic

تا جايي كه من ميدونم اين ابزار اكسل مربوط به شيت نيست كه بگيم در يك شيت فعال و در يك شيت غير فعال باشه
فقط ميتونيم با دستور زير بگيم يك شيت رو مجدد محاسبه كن:

کد:

worksheets("sheet1").calculate

**ظهور 313** · 2017/12/31

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

سلام دوست عزيز
كدي كه نوشتين تقريبا درسته

کد:

Application.Calculation = xlManualApplication.Calculation = xlCalculationManual ' your codes hear Application.Calculation = xlCalculationAutomatic

تا جايي كه من ميدونم اين ابزار اكسل مربوط به شيت نيست كه بگيم در يك شيت فعال و در يك شيت غير فعال باشه
فقط ميتونيم با دستور زير بگيم يك شيت رو مجدد محاسبه كن:

کد:

worksheets("sheet1").calculate

ممنون استاد خيلي عالي بود
دقيقا دنبال همين بودم
خدا خيرت بده
فقط ميشه بفرماييد تغييري كه توي خط اول ايجاد كرديد براي چي بود؟ جاهاي ديگه از اين كد استفاده كردم و جواب داده

**ظهور 313** · 2017/12/31

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

تفاوتي ندارن
سرچ هم كردم تفاوتي پيدا نكردم

به هر حال ممنونم. خيلي عالي بود
دو تا سوال ديگه هم مطرح كرده بودم، ممنون ميشم اگه امكان داره راهنمايي بفرماييد
http://forum.exceliran.com/showthrea...AF%D9%8A%D8%AF

http://forum.exceliran.com/showthrea...AF%D9%8A%D8%AF