▓ Microsoft Excel سوالات، مشكلات و مباحث در اینجا ▓

[nelahe]

1-جایی از نمودار رو که می خواهید تغییرات اعمال بشه انتخاب کنید.
2-یک تب جدید به نام Format اضافه میشه. حالا به ترتیب گزینه ها رو انتخاب کنید.
3-shape Fill
4-Texture
5-More Textrue
6-Pattern Fill

سلام ممنون بی نهایت

این گزینه در اکسل 2007 حذف شده درسته ؟؟؟
الان من تو2010 دیدم هست

[behzad20000]

سلام
من می خوام سلولهای ستون جدول زیر در صورت صحت و عدم صحت به رنگهای متفاوتی در بیاد واسه این کار باید چیکار کنم

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[mohammadv2]

سلام
من می خوام سلولهای ستون جدول زیر در صورت صحت و عدم صحت به رنگهای متفاوتی در بیاد واسه این کار باید چیکار کنم

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

شما باید از 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 یک رول دیگر هم برای فالس تعریف و از دکمه فرمت رنگ مورد نظر را انتخاب نمایید.

[behzad20000]

سلام

داخل سلول می خوام در قسمتی از متن از ابزار shadingاستفاده کنم اما متاسفانه به حالت غیر فعال در میاد به چه روشی باید این کارو انجام بدم.

ممنون

[van123]

با سلام خدمت همه دوستان بخصوص [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اكسيلي ميخام به اين صورت كه
مثلا
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 شود
مثال براي شماره 6
a1=510
167000+(10*167)


ممنون ميشم
يه موردي هس براي شماره 7 كه فعلا مطرح نكردم
بعدا مزاجم ميشم


[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ;

[mohammadv2]

با سلام خدمت همه دوستان بخصوص [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اكسيلي ميخام به اين صورت كه
مثلا
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 شود
مثال براي شماره 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

[van123]

به چندین روش این کار امکانپذیر هست مثل استفاده از حلقه 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



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

ممنونم ولي ارورر داد
ميتوني زحمت فايل رو بكشي ؟
اگه امكانش هست هر دو روش رو آماده كن كه هر جفتش رو متوجه بشم و كد نويسيش رو ياد بگيرم
ممنون

[mohammadv2]

ممنونم ولي ارورر داد
ميتوني زحمت فايل رو بكشي ؟
اگه امكانش هست هر دو روش رو آماده كن كه هر جفتش رو متوجه بشم و كد نويسيش رو ياد بگيرم
ممنون

اصلاح شد. دوبار کپی پیست کرده بودم.

روش دوم رو هم تو فایل گذاشتم

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[1281081]

سلام
کسی می دونه این تابه توی اکسل چجوری نوشته میشه؟؟

[behzad20000]

سلام

داخل سلول می خوام در قسمتی از متن از ابزار shadingاستفاده کنم اما متاسفانه به حالت غیر فعال در میاد به چه روشی باید این کارو انجام بدم.

ممنون

لطفا راهنمایی کنید

-