Printable View
این کد را تست کنید:نقل قول:
(نیازی به کدهای قبلی نیست)کد:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1) <> "" And Cells(1, 2) <> "" Then
Range("A" & Cells(1, 1), "E" & Cells(1, 1)).Interior.ColorIndex = Cells(1, 2)
End If
Cells(1, 1) = ActiveCell.Row
Cells(1, 2) = Cells(ActiveCell.Row, 1).Interior.ColorIndex
Range("A" & ActiveCell.Row, "E" & ActiveCell.Row).Interior.ColorIndex = 4
End Sub
این خوبه ولی یه مشکل داره و اونم اینکه اون بالا توی سطر اول دوتا عدد میاره که قابل تغییر هم نیستنقل قول:
واسه خودم هم جالب شد این قضیه
البته من یه کد دیگه گیر آوردم که دو طرف رو یعنی هم سطر و هم ستون رو رنگی میکنه
ولی این بازم خواسته ی من نبود
بازم ممنون بابت راهنماییت
ببین میتونی اونی که من میگم رو ردیف کنی
کد
نقل قول:
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 زوج بود حساب کن اگر فرد بود حساب نکن البته همچین کدی رو من نمی تونم بویسم ولی لااقل کسی هستش که بتونه بنویسه ولی فرمول مورد نظر شما رو بعید می دونم
به هر حال شرمنده بیشتر از این بلد نیستم
ضمناً به تلاشت البته در فروم های خارجی به خصوص فروم خود مایکروسافت ادامه بده اونجا سازنده های آفیس هم هستن و خودشون از کل زیر و بم اکسل اطلاع دارن
هنوز دنیا به پایان نرسیده و فروم های خارجی مانده اند پس بیخودی ناامید مباش
اون کد، رنگ فعلی سلول اول سطری را که انتخاب می‌شه را ذخیره میکنه (در سلول B2) و بعد از انتخاب سطر دیگر، رنگ قبلی را به سطر قبلی میده.نقل قول:
میتونید سطر اول را مخفی کنید.
اون کدی که گذاشتید، یه ایراد داره: اگر Conditional Formatting تعریف کرده باشید، اون‌ها را پاک میکنه.
اگر این مشکل را ندارید، که به این صورت میتونید استفاده کنید:
کد:Option Explicit
Const iInternational As Integer = Not (0)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
On Error Resume Next
iColor = Target.Interior.ColorIndex
If iColor < 0 Then
iColor = 36
Else
iColor = iColor + 1
End If
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1
Cells.FormatConditions.Delete
ActiveCell.EntireRow.FormatConditions.Add Type:=2, Formula1:=iInternational
ActiveCell.EntireRow.FormatConditions(1).Interior.ColorIndex = iColor
End Sub
دوست عزیز این کد شما هم با Conditional Formatting مشکل دارهنقل قول:
خود شما کدت رو تست کن
تا اونجا که من میدونم همچین چیزی نمیشه!
من فقط کدی که شما گذاشته بودید را برای استفاده در یک سطر، تصحیح کردم و توضیح دادم که با Conditional Formatting مشکل داره و "اگر این مشکل را ندارید" میتونید از کد استفاده کنید. چون اساسا بر این مبنا نوشته شده و خود نویسنده هم مشخصا نوشته:نقل قول:
کد قبلی که گذاشتم با Conditional Formatting مشکلی نداره...نقل قول:
'// Note: Don't use IF you have Conditional
'// formating that you want to keep!
با سلام مجدد خدمت دوستان عزیز
یه سوال
من چک هام رو توی اکسل ثبت میکنم
حالا میخوام وقتی تاریخ رو چه بر اساس دریافت یا چه بر اساس سر رسید یا چه بر اساس وضعیت اون چه وصولی چه در جریان وصول یا چه برگشت شده ( البته این موضوع واسم زیاد اهمیتی نداره) فیلتر میکنم ، جمع ستون مبلغم رو توی یه سلول خاص مثلا I1 نشون بدم
دوستان میتونن کد مربوطه رو یا یه فایل مشابه رو بزارن
ممنون میشم
البته میدونم خواسته ی زیادیه ولی خوب کارم گیره دوستان
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ببین این به دردت میخورهنقل قول:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]