[حل شده] جایگزین اعداد بجای رنگ سلول ها

[ed2008]

سلام به دوستان
من یک فایل اکسل دارم که باید در خانه های رنگی ان اعداد جایگزین کنم یعنی با استفاده از replace اکسل رنگ را پیدا کند و جای ان عدد بگذارد اما متاسفانه برای جایگزینی مثلا رنگ سبز اخطار میدهد هم در اکسل 2010 و هم 2013 .
macro ان باز نمیشه و خطا میده چند تا کد من خواستم جایگزین ماکرو ان بکنم که protect sheet از بین برود که نشد.
بدون اینکه برای ان کد نویسی بشه راهی یا تنظیماتی هست که بشه تغییرات روی این فایل اکسل داد (جایگزینی اعداد در ان بدون اینکه یکی یکی اعداد را تو سلول وارد کنیم )
فایل و عکس خطا ها را در سرور picofile اپلود کردم.
.
دوستان خواهشا راهنمایی کنید هر کسی راه حلی بلد هست لطفا دریغ نکنه

با تشکر

http://s7.picofile.com/file/8243896042/a1.rar.html

[iranweld]

با سلام

بهترین راه حل استفاده از کد نویسی میباشد

Sub test()

Range("A1:F50000").ClearContents

For J = 2 To 5

For I = 1 To 4000

If Cells(I, J).Interior.ColorIndex = 4 Then

Cells(I, J).Value = 120

ElseIf Cells(I, J).Interior.ColorIndex = 3 Then

Cells(I, J).Value = 10

ElseIf Cells(I, J).Interior.ColorIndex = 8 Then

Cells(I, J).Value = 5

ElseIf Cells(I, J).Interior.ColorIndex = 5 Then

Cells(I, J).Value = 50

ElseIf Cells(I, J).Interior.ColorIndex = 53 Then

Cells(I, J).Value = 20

End If

Next I
Next J

End Sub 

[ed2008]

با سلام

بهترین راه حل استفاده از کد نویسی میباشد

Sub test()

Range("A1:F50000").ClearContents

For J = 2 To 5

For I = 1 To 4000

If Cells(I, J).Interior.ColorIndex = 4 Then

Cells(I, J).Value = 120

ElseIf Cells(I, J).Interior.ColorIndex = 3 Then

Cells(I, J).Value = 10

ElseIf Cells(I, J).Interior.ColorIndex = 8 Then

Cells(I, J).Value = 5

ElseIf Cells(I, J).Interior.ColorIndex = 5 Then

Cells(I, J).Value = 50

ElseIf Cells(I, J).Interior.ColorIndex = 53 Then

Cells(I, J).Value = 20

End If

Next I
Next J

End Sub 

سلام
ممنونiranweld جان
خیلی کار ساز بود این کد دست شما واقعا درد نکنه خیلی خیلی ممنون من همچنین منتظر پیام شما هستم .
آیا از دوستان کسی برنامه ای میشناسه که علاوه بر اینکه پسورد فایل اکسل (چه پسورد فایل و چه باعث از بین رفتن protect sheet یا ماکرو میشه )را میشکنه یا بدست میاورد باعث نشود که ماکرو فایل اکسل حذف شود من نرم افزار های زیر را امتحان کردم با وجود اینکه پسورد فایل حذف میشود و میتوان در سلولها تغییر داد اما متاسفانه فایل ماکرو اصلی را پاک میکند من احتیاج به کدهای فایل ماکرواصلی دارم کسی از دوستان نرم افزار میشناسه که فقط پسورد فایل ماکرو را حذف کنه نه خود ماکرو را
ممنون
نرم افزارهای که استفاده کردم
1. BA.Password.Bypasser
2.Reset VBA Password

[iranweld]

ظاهرا فایل شما فاقد ماکرو میباشد چون اگر ماکرویی در فایل وجود داشته باشد بایستی عملی را در فایل انجام دهد که قابل مشاهده باشد .

لطفا توضیح بفرمایید فایلی که شما در اختیار دارید ماکروهای موجود آن چه کاری را انجام میدهند

[ed2008]

ظاهرا فایل شما فاقد ماکرو میباشد چون اگر ماکرویی در فایل وجود داشته باشد بایستی عملی را در فایل انجام دهد که قابل مشاهده باشد .

لطفا توضیح بفرمایید فایلی که شما در اختیار دارید ماکروهای موجود آن چه کاری را انجام میدهند

سلام شرمنده من العان پیام شما را دیدم قبلش پیام فرستادم برای شما در عکس شماره 3 که در فایل بالا بود بعد از اینکه با نرم افزار پسورد ان شکسته بشه همون فایل VBPROJECT(1a.Xls)
حذف میشود حالا من فکر میکنم باید فرمولی در این کد ماکرو باشد همین

[امين اسماعيلي]

با درود. لطفا موضوع تاپیکتون رو درست انتخاب کنید . به نطرم صحیح نیست علم مردم رو با شارژ 2 هزار تومنی بسنجی جوان. تو این سایت اگر سوالتون حالت پروژه نداشته باشه یا مشابهش حل نشده باشه دوستان پاسخ گو هستند.

[ed2008]

با درود. لطفا موضوع تاپیکتون رو درست انتخاب کنید . به نطرم صحیح نیست علم مردم رو با شارژ 2 هزار تومنی بسنجی جوان. تو این سایت اگر سوالتون حالت پروژه نداشته باشه یا مشابهش حل نشده باشه دوستان پاسخ گو هستند.

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

[Amir Ghasemiyan]

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

سلام دوست عزیز.
نیاز به پاک کردن نیست. دیروز که عنوان رو عوض کردین بنده عنوان اصلی رو هم اصلاح کردم
موفق باشید

[ed2008]

سلام دوست عزیز.
نیاز به پاک کردن نیست. دیروز که عنوان رو عوض کردین بنده عنوان اصلی رو هم اصلاح کردم
موفق باشید

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