تغییر رنگ سطر و ستون با حرکت نشانگر موس

[ali_7010]

با سلام
با چه فرمولی تو conditional formatting میشه تعریف کرد که با حرکت نشانگر موس روی صفحه رنگ سطر و ستون مربوطه تغییر کنه؟

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[amir_ts]

با سلام
کد زیر را امتحان کنید.
با انتخاب سلول ردیف و ستون سلول مورد نظر رنگی میشود.

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim prow, pcolumn As Integer
Static xrow
Static xcolumn
If xcolumn <> "" Then
    With Columns(xcolumn).Interior
        .ColorIndex = xlNone
    End With
    With Rows(xrow).Interior
        .ColorIndex = xlNone
    End With
End If
prow = Selection.Row
pcolumn = Selection.Column
xrow = prow
xcolumn = pcolumn
With Columns(pcolumn).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
With Rows(prow).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
End Sub

[rjfri]

با سپاس از شما
چنانچه بخواهیم این اتفاق در تمام شیتها بیوفته به چه صورت باید عمل کرد؟

[amir_ts]

با سپاس از شما
چنانچه بخواهیم این اتفاق در تمام شیتها بیوفته به چه صورت باید عمل کرد؟

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

[Ali Parsaei]

با سلام
با چه فرمولی تو conditional formatting میشه تعریف کرد که با حرکت نشانگر موس روی صفحه رنگ سطر و ستون مربوطه تغییر کنه؟

سلام،
conditional formatting را نمي توان به حرکت موس يا حتي به انتخاب يا عدم انتخاب يک سل ربط داد و اين کار غير ممکن است.
فقط با کد نويسي همانطور که دوستمان آقا امير گفتند يک کارهايي مي شود کرد که البته چون کد آن تو رويداد SELECTION CHANGE نوشته مي شود فايل را کند خواهد کرد.

[MORTEZA9595]

با سلام
کد زیر را امتحان کنید.
با انتخاب سلول ردیف و ستون سلول مورد نظر رنگی میشود.

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim prow, pcolumn As Integer
Static xrow
Static xcolumn
If xcolumn <> "" Then
    With Columns(xcolumn).Interior
        .ColorIndex = xlNone
    End With
    With Rows(xrow).Interior
        .ColorIndex = xlNone
    End With
End If
prow = Selection.Row
pcolumn = Selection.Column
xrow = prow
xcolumn = pcolumn
With Columns(pcolumn).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
With Rows(prow).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
End Sub

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

[amir_ts]

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

با سلام
از ذخیره کردن کدها در فایل مربوطه مطمئن هستید.
فایل نمونه رو هم امتحان کردید؟؟!!

[iranweld]

فایل پیوست را بررسی نمایید

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer

Cells.Interior.ColorIndex = 0

rowNumberValue = ActiveCell.Row

columnNumberValue = ActiveCell.Column

    For i = 1 To columnNumberValue
    
    Cells(rowNumberValue, i).Interior.ColorIndex = 37
    
    Next
    
   For j = 1 To rowNumberValue
    
     Cells(j, columnNumberValue).Interior.ColorIndex = 37
     
     Next
     
     Cells(rowNumberValue, columnNumberValue).Interior.ColorIndex = 4


End Sub 

[برنا جوان]

سلام و عرض ادب خدمت کلیه اساتید گرامی
اخرین کد ارائه شده توسط دوستان

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer

Cells.Interior.ColorIndex = 0

rowNumberValue = ActiveCell.Row

columnNumberValue = ActiveCell.Column

For i = 1 To columnNumberValue

Cells(rowNumberValue, i).Interior.ColorIndex = 37

Next

For j = 1 To rowNumberValue

Cells(j, columnNumberValue).Interior.ColorIndex = 37

Next

Cells(rowNumberValue, columnNumberValue).Interior.ColorIndex = 4


End Sub

بسیار عالی است و بنده به نوبه خودم بسیار سپاسگزارم. تنها ضعف کد و شاید هم بنده (نکته یا ریزه کاری دارد که بنده بلد نیستم و رعایت نمیکنم) این است که پس از بسته و باز نمودن فایل، فرمول کارآیی نداشته و موضوع رنگی شدن خودکار سطر و ستون منتفی میگردد.

لطفا در صورت امکان راهنمائی بفرمائید.
لازم بذکر است که فایل های پیوست را هم دانلود و امتحان نمودم، همین مشکل را دارند.

با سپاس فراوان

[iranweld]

با سلام
شما بایستی فایل جدید را بصورت macroenable یا اکسل ۲۰۰۷ ذخیره کنید