سلام و عرض ادب
همین کار رو انجام دادم ولی بازهم مشکل دارد.
سلام و عرض ادب
همین کار رو انجام دادم ولی بازهم مشکل دارد.
با سلام و صد البته تبریک سال نو و آرزوی سلامتی و کامیابی برای یکایک اعضای انجمن اکسل ایران و مدیران زحمت کش آن.
در پاسخ شما به اینکه چگونه در تمامی شیت ها این اتفاق بیافته فقط کافیست به محیط ماکرو رفته و روی Thisworkbook کلیک کنید و کد زیر را که زحمت آن را جناب آقای iranweld عزیز کشیدن رو اضافه کنید .
و آن را با پسوند Xlsm ذخیره کنیدکد:Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, 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
پایدارو پیروز باشید میر
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)