این کد را تست کنید:
(نیازی به کدهای قبلی نیست)کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
این کد را تست کنید:
(نیازی به کدهای قبلی نیست)کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
این خوبه ولی یه مشکل داره و اونم اینکه اون بالا توی سطر اول دوتا عدد میاره که قابل تغییر هم نیست
واسه خودم هم جالب شد این قضیه
البته من یه کد دیگه گیر آوردم که دو طرف رو یعنی هم سطر و هم ستون رو رنگی میکنه
ولی این بازم خواسته ی من نبود
بازم ممنون بابت راهنماییت
ببین میتونی اونی که من میگم رو ردیف کنی
کد
Option Explicit
'/////////////////////////////////////////////////////
'// Amended 14th Feb 2003 - suggestion by Juan Pablo G.
'// International versons may NOT recognise TRUE
'// Suggestion use =1 which evaluates to TRUE,
'// in fact any number that <> 0
'////////////////////////////////////////////////////
Const iInternational As Integer = Not (0)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
'// Amended routine found on this Web site
'// Note: Don't use IF you have Conditional
'// formating that you want to keep!
'// On error resume in case
'// user selects a range of cells
On Error Resume Next
iColor = Target.Interior.ColorIndex
'// Leave On Error ON for Row offset errors
If iColor < 0 Then
iColor = 36
Else
iColor = iColor + 1
End If
'// Need this test incase Font color is the same
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1
Cells.FormatConditions.Delete
'// Horizontal color banding
With Range("A" & Target.Row, Target.Address) 'Rows(Target.Row)
.FormatConditions.Add Type:=2, Formula1:=iInternational 'Or just 1 '"TRUE"
.FormatConditions(1).Interior.ColorIndex = iColor
End With
'// Vertical color banding
With Range(Target.Offset(1 - Target.Row, 0).Address & ":" & Target.Offset(-1, 0).Address)
.FormatConditions.Add Type:=2, Formula1:=iInternational 'Or just 1 '"TRUE"
.FormatConditions(1).Interior.ColorIndex = iColor
End With
End Sub
آقای mehdi_7070 عزیز میتونی یکم کدهات رو توضیح بدی ممنون میشم
دوست عزیز
خواهش می کنم وظیفه هست
من دارم زکات علمم رو میدم و در ضمن دانسته های خودم رو با تمرین و تکرار عمق می دم
و اما برای اتو آپدیتش باید بری توی Excel options و طبق عکس تیک بزنی
برای شماره 2 تیکش رو بردار تا موقع بسته شدن هم فرمول رو حساب نکنه
و اما برای سوال دومت که تازه دقیقا متوجه منظورت شدم با حدااقل 90 درصد اطمینان می گم توی اکسل نمیشه همچین فرمولی نوشت
چون شرطت فقط ذهنیه برای اکسل منطقی نیست مثلا اینکه شما بگی من این موقع میخوام حساب کنی و این موقع حساب نکنی اکسل نمی فهمه مگر اینکه شما براش شرط منطقی تعریف کنی
مثلا اینکه بگی اگر عدد داخل آ1 زوج بود حساب کن اگر فرد بود حساب نکن البته همچین کدی رو من نمی تونم بویسم ولی لااقل کسی هستش که بتونه بنویسه ولی فرمول مورد نظر شما رو بعید می دونم
به هر حال شرمنده بیشتر از این بلد نیستم
ضمناً به تلاشت البته در فروم های خارجی به خصوص فروم خود مایکروسافت ادامه بده اونجا سازنده های آفیس هم هستن و خودشون از کل زیر و بم اکسل اطلاع دارن
هنوز دنیا به پایان نرسیده و فروم های خارجی مانده اند پس بیخودی ناامید مباش
Last edited by sasha199098; 25-09-2012 at 17:43.
اون کد، رنگ فعلی سلول اول سطری را که انتخاب میشه را ذخیره میکنه (در سلول B2) و بعد از انتخاب سطر دیگر، رنگ قبلی را به سطر قبلی میده.
میتونید سطر اول را مخفی کنید.
اون کدی که گذاشتید، یه ایراد داره: اگر Conditional Formatting تعریف کرده باشید، اونها را پاک میکنه.
اگر این مشکل را ندارید، که به این صورت میتونید استفاده کنید:
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
دوست عزیز این کد شما هم با Conditional Formatting مشکل داره
خود شما کدت رو تست کن
تا اونجا که من میدونم همچین چیزی نمیشه!
من فقط کدی که شما گذاشته بودید را برای استفاده در یک سطر، تصحیح کردم و توضیح دادم که با Conditional Formatting مشکل داره و "اگر این مشکل را ندارید" میتونید از کد استفاده کنید. چون اساسا بر این مبنا نوشته شده و خود نویسنده هم مشخصا نوشته:
کد قبلی که گذاشتم با Conditional Formatting مشکلی نداره...'// Note: Don't use IF you have Conditional
'// formating that you want to keep!
با سلام مجدد خدمت دوستان عزیز
یه سوال
من چک هام رو توی اکسل ثبت میکنم
حالا میخوام وقتی تاریخ رو چه بر اساس دریافت یا چه بر اساس سر رسید یا چه بر اساس وضعیت اون چه وصولی چه در جریان وصول یا چه برگشت شده ( البته این موضوع واسم زیاد اهمیتی نداره) فیلتر میکنم ، جمع ستون مبلغم رو توی یه سلول خاص مثلا I1 نشون بدم
دوستان میتونن کد مربوطه رو یا یه فایل مشابه رو بزارن
ممنون میشم
البته میدونم خواسته ی زیادیه ولی خوب کارم گیره دوستان
![]()
ببین این به دردت میخوره
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)