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

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • alitaheri

    • January 2014
    • 36

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

    با سلام
    دوستان كسي ميدونه چطوري بايد دستوري بنويسم كه يك فايل اكسلي كه از شيت هاي مختلف تشكيل شده وقتي روي يك سلول درهرشيتي كليك ميكنم سطر وستون متناظر با ان سلول به رنگ داخواه دربياد .
    خواهشا اگه نياز به برنامه نويسي دقيقا بگيد كجا ميشه اين برنامه را بايد بنويسم.كه براي تمام شيت هاي اين فايل قابل استفاده باشه. اگه ميشه يك فايل نمونه هم بذاريد.
  • ~M*E*H*D*I~

    • October 2011
    • 4374

    #2
    درود

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

    کد 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 

    sigpic

    Comment

    • alitaheri

      • January 2014
      • 36

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

      Comment

      • ~M*E*H*D*I~

        • October 2011
        • 4374

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

        sigpic

        Comment

        • امين اسماعيلي
          مدير تالار ويژوال بيسيك

          • January 2013
          • 1198

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

          Comment

          • alitaheri

            • January 2014
            • 36

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

            ممنونم

            Comment

            • alitaheri

              • January 2014
              • 36

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

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

              Comment

              • امين اسماعيلي
                مدير تالار ويژوال بيسيك

                • January 2013
                • 1198

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

                Click image for larger version

Name:	Color code.JPG
Views:	1
Size:	92.0 کیلو بایت
ID:	122777

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

                Comment

                • iranweld

                  • March 2015
                  • 3342

                  #9
                  با سلام

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

                  کد 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 
                  فایل های پیوست شده

                  Comment

                  Working...