پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

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

  1. #1


    آخرین بازدید
    2023/09/25
    تاریخ عضویت
    January 2014
    نوشته ها
    36
    امتیاز
    23
    سپاس
    0
    سپاس شده
    13 در 7 پست
    تعیین سطح نشده است

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

    با سلام
    دوستان كسي ميدونه چطوري بايد دستوري بنويسم كه يك فايل اكسلي كه از شيت هاي مختلف تشكيل شده وقتي روي يك سلول درهرشيتي كليك ميكنم سطر وستون متناظر با ان سلول به رنگ داخواه دربياد .
    خواهشا اگه نياز به برنامه نويسي دقيقا بگيد كجا ميشه اين برنامه را بايد بنويسم.كه براي تمام شيت هاي اين فايل قابل استفاده باشه. اگه ميشه يك فايل نمونه هم بذاريد.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    درود

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

    کد PHP:

    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 




  4. #3


    آخرین بازدید
    2023/09/25
    تاریخ عضویت
    January 2014
    نوشته ها
    36
    امتیاز
    23
    سپاس
    0
    سپاس شده
    13 در 7 پست
    تعیین سطح نشده است

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

  5. #4


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    نقل قول نوشته اصلی توسط alitaheri نمایش پست ها
    دوست عزيز اين كدرا كه ميزنم توي هر سلولي كه كليك ميكنم رنگ سلول كلا سياه ميشه. من ميخواستم با انتخاب يك سلول سطر وستون ان سلول به صورت هاي لايت دربياد
    سیاه بودنش که بخاطر کد رنگه میشه عوض کرد ،بنده فکر کردم سلول مدنظر شماست ، در تمام شیت ها هایلایت بشه درسته؟



  6. سپاس ها (1)


  7. #5


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,199
    امتیاز
    3248
    سپاس
    1,570
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    با درود
    ممنون و با کسب اجازه از اقای وطن پرست
    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 هم قابل اجرا است
    در پناه خداوندگار ایران زمین باشید و پیروز


  8. #6


    آخرین بازدید
    2023/09/25
    تاریخ عضویت
    January 2014
    نوشته ها
    36
    امتیاز
    23
    سپاس
    0
    سپاس شده
    13 در 7 پست
    تعیین سطح نشده است

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

    ممنونم


  9. #7


    آخرین بازدید
    2023/09/25
    تاریخ عضویت
    January 2014
    نوشته ها
    36
    امتیاز
    23
    سپاس
    0
    سپاس شده
    13 در 7 پست
    تعیین سطح نشده است

    پيدا كردن شماره رنگهاي سفارشي

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

  10. #8


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,199
    امتیاز
    3248
    سپاس
    1,570
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

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

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  Color code.JPG
مشاهده: 22
حجم:  92.0 کیلو بایت

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


  11. #9


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,346
    امتیاز
    11578
    سپاس
    1,887
    سپاس شده
    8,168 در 3,012 پست
    تعیین سطح نشده است

    با سلام

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

    کد PHP:
    Option Explicit

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim rowNumberValue As IntegercolumnNumberValue As IntegerAs IntegerAs Integer

    Cells
    .Interior.ColorIndex 0

    rowNumberValue 
    ActiveCell.row
    columnNumberValue 
    ActiveCell.column


    For 1 To rowNumberValue
        Cells
    (icolumnNumberValue).Interior.ColorIndex 37
    Next i

    For 1 To columnNumberValue
        Cells
    (rowNumberValuej).Interior.ColorIndex 37
    Next j

    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. استفاده از سلولهاي يك شيت در شيت ديگر
    توسط homai در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 11
    آخرين نوشته: 2019/04/09, 22:37
  2. پيدا كردن تكراري هاي يك ستون و هايلايت كردن انها و كپي در شيت جداگانه و همچنين كپي گز
    توسط امين اسماعيلي در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2015/05/07, 13:18
  3. Refresh كردن يك Pivot Table درون يك شيت كه Hidden شده است
    توسط arsalan135 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2014/03/03, 17:51
  4. كپي داده هاي چند سل از چند شيت در يك شيت خاص
    توسط rezahagh در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2013/05/19, 00:27
  5. جستجو در يك شيت ونمايش در شيت ديگر
    توسط homai در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 6
    آخرين نوشته: 2011/02/13, 14:42

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

های لایت کردن سلول مدنظر اکسل

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

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است