سلام دوستان واساتید محترم
خدا قوت
من قبلا این سوال پرسیدم که تقریبا توسط دوستان حل شد اما هنوز کامل نشده
(دریک فایل اکسل دوشیت وجود دارد که این دو شیت باهم رابطه دارند (مثلا سلول a1 شیت 1 مساوی سلول a1 شیت 2 ) میخاهم اگر در سلول a1 شیت 2 مطلبی را قرار دهم وقالب ان هرچه بود(مخصوصا رنگ ) ، قالب آن در سلول شیت 1 هم اعمال شود .)
دوست خوبم rahi_feri
از تالار اکسل این کد را پیشنهاد دادند
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
ودر پرسش های بعدی گفتن باید از یک تابع جدید استفاده کنید
ودوست خوبم ahura amini
از همین تالار این کد را پیشنهاد دادند
Private Sub Worksheet_Activate()
'Ahura Amini
Sheet2.Range("A1:C2").Copy
Sheet1.Range("A1:C2").PasteSpecial
Application.CutCopyMode = False
End Sub
از همه دوستان ممنونم
اما این کد ها برای سلولی مناسب میباشند که فرمت را از یک سلول ثابت کپی میکند
وبرای سلولی که مقدار را از چند سلول متغییر می خواند مناسب نمیباشند
کسی از دوستان واساتید میتواند کمک کند
ویا اگر نیاز به تابع باشد دوستان می توانند این تابع را بنویسند
(داخل فایل پیوست توضیحات بیشتر داده شده)
از تمامی دوستان ممنونم.
خدا قوت
من قبلا این سوال پرسیدم که تقریبا توسط دوستان حل شد اما هنوز کامل نشده
(دریک فایل اکسل دوشیت وجود دارد که این دو شیت باهم رابطه دارند (مثلا سلول a1 شیت 1 مساوی سلول a1 شیت 2 ) میخاهم اگر در سلول a1 شیت 2 مطلبی را قرار دهم وقالب ان هرچه بود(مخصوصا رنگ ) ، قالب آن در سلول شیت 1 هم اعمال شود .)
دوست خوبم rahi_feri
از تالار اکسل این کد را پیشنهاد دادند
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
ودر پرسش های بعدی گفتن باید از یک تابع جدید استفاده کنید
ودوست خوبم ahura amini
از همین تالار این کد را پیشنهاد دادند
Private Sub Worksheet_Activate()
'Ahura Amini
Sheet2.Range("A1:C2").Copy
Sheet1.Range("A1:C2").PasteSpecial
Application.CutCopyMode = False
End Sub
از همه دوستان ممنونم
اما این کد ها برای سلولی مناسب میباشند که فرمت را از یک سلول ثابت کپی میکند
وبرای سلولی که مقدار را از چند سلول متغییر می خواند مناسب نمیباشند
کسی از دوستان واساتید میتواند کمک کند
ویا اگر نیاز به تابع باشد دوستان می توانند این تابع را بنویسند
(داخل فایل پیوست توضیحات بیشتر داده شده)
از تمامی دوستان ممنونم.
کامنت