هاي لايت شدن سطر وستون به هنگام انتخاب يك سلول در يك ورك شيت

[alitaheri]

با سلام
دوستان كسي ميدونه چطوري بايد دستوري بنويسم كه يك فايل اكسلي كه از شيت هاي مختلف تشكيل شده وقتي روي يك سلول درهرشيتي كليك ميكنم سطر وستون متناظر با ان سلول به رنگ داخواه دربياد .
خواهشا اگه نياز به برنامه نويسي دقيقا بگيد كجا ميشه اين برنامه را بايد بنويسم.كه براي تمام شيت هاي اين فايل قابل استفاده باشه. اگه ميشه يك فايل نمونه هم بذاريد.

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

[~M*E*H*D*I~]

درود

از کد زیر میتونی ایده بگیری این کد بایستی در تمام شیت ها مورد استفاده قرار بگیره

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sh As Worksheet
Dim i As Variant
 i = Target.Address
For Each sh In Worksheets
sh.Range(i).Interior.Color = 666666
Next sh
End Sub 

[alitaheri]

دوست عزيز اين كدرا كه ميزنم توي هر سلولي كه كليك ميكنم رنگ سلول كلا سياه ميشه. من ميخواستم با انتخاب يك سلول سطر وستون ان سلول به صورت هاي لايت دربياد

[~M*E*H*D*I~]

دوست عزيز اين كدرا كه ميزنم توي هر سلولي كه كليك ميكنم رنگ سلول كلا سياه ميشه. من ميخواستم با انتخاب يك سلول سطر وستون ان سلول به صورت هاي لايت دربياد

سیاه بودنش که بخاطر کد رنگه میشه عوض کرد ،بنده فکر کردم سلول مدنظر شماست ، در تمام شیت ها هایلایت بشه درسته؟

[امين اسماعيلي]

با درود
ممنون و با کسب اجازه از اقای وطن پرست
Alt +F11 رو بزنین و وارد محیط ویژوال شده در نوار سمت چپ thisworkbook رو دبل کلیک کنید و کد زیر رو اونجا کپی کنین

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    With Target
        ' Highlight the entire row and column that contain the active cell
        .EntireRow.Interior.ColorIndex = 8
        .EntireColumn.Interior.ColorIndex = 8
    End With
    Application.ScreenUpdating = True
End Sub

در ضمن هنگام سیو فایل خود رو به ضورت enable macro سیو کنید چون اگر اینکارو نکنین کد های شما سیو نمیشن. در ضمن ا توجه به سطح اطلاعات شما از کد نویسی پیشنهاد من این که توی دوره های این بخش که در زود ترین زمان ممکن قرا است برگزار شود شرکت کنید

در ضمن برای اینکه بچه های توابع باز بهمون ایراد نگیرن این کار با conditional formating هم قابل اجرا است

[alitaheri]

با تشكر از دوست عزيز بابت راهنمايي ازرشمندشان
با نوشتن كد فوق با انتخاب هر سلول در اكسل سطر وستون متناظر با اي سلول به رنگ دلخواه در ميايد

ممنونم

[alitaheri]

پيرو مطلب فوق براي رنگي شدن سطر وستون متناظر با هر سلول چطور ميشه شماره رنگ هاي كاستومايز شده را پيدا كرد؟

[امين اسماعيلي]

یعنی میخوای کد رنگتونو عوض کنین
اگر من درست متوجه شده باشم کد رنگ ها به قرار زیر است



بلا کد هاست پایین توضیح اینکه مثلا چه رنگیه. این عدد ها رو به جای مثلا اون هشت تو کد بالا بزارین . اگرم منظور شما چیزه دیگه ایست بگین دوباره

[iranweld]

با سلام

از این کدها در شیت مورد نظر برای های لایت شدن ستون و سطر مورد نظر استفاده کنید.

Option Explicit

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 rowNumberValue
    Cells(i, columnNumberValue).Interior.ColorIndex = 37
Next i

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

End Sub