سلام ممنون بی نهایت :n40:نقل قول:
این گزینه در اکسل 2007 حذف شده درسته ؟؟؟
الان من تو2010 دیدم هست
Printable View
سلام ممنون بی نهایت :n40:نقل قول:
این گزینه در اکسل 2007 حذف شده درسته ؟؟؟
الان من تو2010 دیدم هست
سلام
من می خوام سلولهای ستون جدول زیر در صورت صحت و عدم صحت به رنگهای متفاوتی در بیاد واسه این کار باید چیکار کنم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
شما باید از Conditional Format استفاده کنی.نقل قول:
ابتدا محدوده ای را که قصد اعمال تغییرات دارید انتخاب کنید. در صورت نیاز کل سطر یا ستون را انتخاب کنید.
1-Home Tab
2-Conditional Format
3-Manage Rules
4-New Rule
5-Format Only Cells That Contain
6- Cell Value>>Equal To >> t
7-Select Color from Foramt Button
8- از قسمت 4 تا 7 یک رول دیگر هم برای فالس تعریف و از دکمه فرمت رنگ مورد نظر را انتخاب نمایید.
سلام
داخل سلول می خوام در قسمتی از متن از ابزار shadingاستفاده کنم اما متاسفانه به حالت غیر فعال در میاد به چه روشی باید این کارو انجام بدم.
ممنون
با سلام خدمت همه دوستان بخصوص [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اكسيلي ميخام به اين صورت كه
مثلا
1- مقدار خونه a1 كوچكتر مساوي 20 بود 2000 را برگردونه
2- بيش از 20 تا 50 بود 10000 رو برگردونه
3- بيش از 50 تا 100 بود 25000 رو برگردونه
4- بيش از 100 تا 300 بود 70000 رو برگردونه
5-بيش از300 تا 500 بود 167000 رو برگردونه
6-بيش از 500 تا 30000 بود بايد مقدار خونه a1 از 500 كسر گردد و حاصل در عدد 167 ضرب گردد به اضافه 167000 شود:n31:
مثال براي شماره 6
a1=510
167000+(10*167)
ممنون ميشم
يه موردي هس براي شماره 7 كه فعلا مطرح نكردم
بعدا مزاجم ميشم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ;
به چندین روش این کار امکانپذیر هست مثل استفاده از حلقه if تو در تو که خوانایی برنامه رو کم می کنه و یا اینکه ماکرو بنویسی مثل این:نقل قول:
یه button به شیت اضافه می کنی و با دبل کلیک روی اون واحد محیط کد نوسی می شی. این کدها رو کپی و پیست کن جواب میده. قبل از اون تب Developer رو باید از قبل اضافه کن اگه نیست.
یه نکته این کدها برای سطر یک تا 10 است که میتونی خودت دستی بکنیش مثلا 200
Dim c As Range
For Each c In Range("a1:a10")
x = c.Value
i = c.Row
Select Case x
Case 0 To 19
Cells(i, 2) = "2000"
Case 20 To 49
Cells(i, 2) = "10000"
Case 50 To 99
Cells(i, 2) = "25000"
Case 100 To 299
Cells(i, 2) = "70000"
Case 300 To 499
Cells(i, 2) = "167000"
Case Else
Cells(i, 2) = ((x - 500) * 167) + 1670000
End Select
Next
ممنونم ولي ارورر دادنقل قول:
ميتوني زحمت فايل رو بكشي ؟
اگه امكانش هست هر دو روش رو آماده كن كه هر جفتش رو متوجه بشم و كد نويسيش رو ياد بگيرم
ممنون
اصلاح شد. دوبار کپی پیست کرده بودم.:n02:نقل قول:
روش دوم رو هم تو فایل گذاشتم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]کد:IF(A1<=20,2000,IF(A1<=50,10000,IF(A1<=100,25000,IF(A1<=300,70000,IF(A1<=500,167000,((A1-500)*167)+167000)))))
سلام
کسی می دونه این تابه توی اکسل چجوری نوشته میشه؟؟
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
لطفا راهنمایی کنیدنقل قول:
-