تغییر داده

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • hpb
    • 2019/07/20
    • 3
    • 35.00

    پرسش تغییر داده

    سلام
    آیا امکان تغییر داده یک سل به شرط باز بودن شیت خاص امکان دارد؟
    مثلا داده سل a1 شیت 1 مساوی داده سل a2 شیت 2 یا سل a2 شیت 3 هر کدام که باز بود باشد؟
    ممنونم
  • majid_mx4

    • 2012/06/25
    • 699

    #2
    با سلام
    با توجه به باز بودن فایل مورد نظر (به گفته شما )
    اگر منظورتان از شیت یک فایل اکسل یا workbook است بله
    با فرض اینکه فایل شماره 1 شما مبدا و فایل شماره 2 شما مقصد است .
    به فایل شماره 2 رفته و علامت مساوی را در خانه مورد نظر وارد کنید حال در همین حالت به فایل شماره 1 رفته و روی خانه هدف کلیک کنید و کلید enter را بزنید.
    که فرمولی شبیه زیر بدست می آید.
    کد:
    =[Book1]Sheet1!$B$4
    و اگر منظورتان همان شیت است فقط کافیست مساوی را زده و به شیت هدف رفته روی خانه مورد نظر کلیک کنید و enter را بزنید.

    موفق باشید میر

    کامنت

    • hpb
      • 2019/07/20
      • 3
      • 35.00

      #3
      با تشکر از پاسخ ارائه شده شاید منظورم را درست نرساندم . میخواهم
      در صورتیکه sheet2 را بازکردم در sheet1 فرمول سل A1 برابر باشد با =shee2!A1
      و اگر به sheet3 رفتم در sheet1 فرمول سل A1 برابر باشد با =shee3!A1
      با سپاس

      کامنت

      • majid_mx4

        • 2012/06/25
        • 699

        #4
        با سلام

        با فشار کلید های Alt+F11 وارد محیط ماکرو شوید روی ThisWorkbook کلیک کرده و دستورات زیر را وارد کنید و فایل را با پسوند Xlsm ذخیره کنید.


        کد:
        Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        Dim ws As Worksheet, a As Range
        
                For Each ws In ActiveWorkbook.Worksheets
                    If ws.Name <> "Sheet1" Then
                Sheet1.Range("a1").Value = ActiveSheet.Range("a1").Value
                End If
            Next
        
        End Sub
        پایدار باشید میر

        کامنت

        چند لحظه..