اعمال قالب یک سلول درسلول شیت دیگر(رنگ،فونت وغیره)

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • saeed bagheri

    • 2016/11/21
    • 25
    #1

    [حل شده] اعمال قالب یک سلول درسلول شیت دیگر(رنگ،فونت وغیره)

    سلام
    دریک فایل اکسل دوشیت وجود دارد که این دو شیت باهم رابطه دارند (مثلا سلول a1 شیت 1 مساوی سلول a1 شیت 2 ) میخاهم اگر در سلول a1 شیت 2 مطلبی را قرار دهم وقالب ان هرچ    Format.xlsxه بود(مخصوصا رنگ ) ، قالب آن در سلول شیت 1 هم اعمال شود .
    برچسب ها: هیچ‌کدام
    • rahi_feri

      • 2014/08/08
      • 524
      • 94.67
      #2
      سلام یه راه اینه...!
      کد:
      Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.EnableEvents = False
    Sheets("Sheet2").Select
    Selection.Copy
    Sheets("Sheet1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
      فایل های پیوست شده
      [B][SIZE=1]بخش امضاء :
      [/SIZE][/B][LEFT]
      [CODE]
      Sub Macro()
      ActiveCell = "IY" & Right(Application.Name, 5)
      With ActiveCell.Characters(Start:=2, Length:=1).Font
      .Name = "Webdings"
      .Color = 255
      End With
      End Sub
      [/CODE]
      [/LEFT]

        کامنت

        • saeed bagheri

          • 2016/11/21
          • 25
          #3
          سلام
          هرچند اون چیزی که مد نظر من بود نیست اما جالب بود حالا چطوری میشه با این روش اطلاعات رو کپی کنیم داخل یه فایل دیگه اکسل (مثلا از شیت یک فایل یک به شیت یک فایل دو)

            کامنت

            • rahi_feri

              • 2014/08/08
              • 524
              • 94.67
              #4
              دقیقا چی مد نظرتون بود؟!!!!
              [B][SIZE=1]بخش امضاء :
              [/SIZE][/B][LEFT]
              [CODE]
              Sub Macro()
              ActiveCell = "IY" & Right(Application.Name, 5)
              With ActiveCell.Characters(Start:=2, Length:=1).Font
              .Name = "Webdings"
              .Color = 255
              End With
              End Sub
              [/CODE]
              [/LEFT]

                کامنت

                • saeed bagheri

                  • 2016/11/21
                  • 25
                  #5
                  شیت فرمول نویسی شده (دو شیت باهم رابطه دارن)برای کپی پیس نمیخام این رابطه دائمی باشه

                    کامنت

                    • rahi_feri

                      • 2014/08/08
                      • 524
                      • 94.67
                      #6
                      با فرمول نمیشه فرمت رو کپی کرد!... فقط میشه مقدار رو برگردند..!
                      مگه این که یه تابع جدید تعریف کرد!!!
                      [B][SIZE=1]بخش امضاء :
                      [/SIZE][/B][LEFT]
                      [CODE]
                      Sub Macro()
                      ActiveCell = "IY" & Right(Application.Name, 5)
                      With ActiveCell.Characters(Start:=2, Length:=1).Font
                      .Name = "Webdings"
                      .Color = 255
                      End With
                      End Sub
                      [/CODE]
                      [/LEFT]

                        کامنت

                        • saeed bagheri

                          • 2016/11/21
                          • 25
                          #7
                          فایل زیر رو ببینید میشه کاری کرد.
                          فایل های پیوست شده

                            کامنت

                            قبلی template بعدی
                            چند لحظه..