PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : انتقال داده های یک شیت به شیت دیگر به صورت پویا



Nima
2012/06/06, 12:17
با سلام خدمت اساتید

فرض کنید یه شیت داریم که توش از فرمولهای زیادی استفاده شده حالا ما می خوایم اطلاعات این شیت را به یه شیت دیگه منتقل کنیم با این شرط که فقط دیتا ها منتقل بشه نه فرمولها و اینکه این کار به صورت متناوب و پویا انجام بشه.

ممنون میشم راهنمائی بفرمائید.

khakzad
2012/06/06, 14:18
سلام
یعنی دقیقا همون شیت.به همون شکل؟؟؟؟؟؟
اینطوری ی ماکرو ضبط می کنید و copy>paste special value
بعد اینو می ذاریم توی ی کد که هر چند دقیقه خودش اجرا بشه.
همینو می خواید؟؟؟؟؟؟

Nima
2012/06/06, 14:43
با تشکر از خانم خاکزاد


تقریبا همینه که شما گفتید فقط چطوری میشه کاری کرد که به محض ورود اطلاعات تو شیت اول یا اجرای یک فرمول نتیجه(یعنی حاصل اجرای فرمولها) همون لحظه تو شیت دوم کپی بشه

khakzad
2012/06/06, 15:15
خواهش می کنم
شما برای اینکه به محض تغییر در شیت 1 اطلاعات رو کپی کنید در شیت 2
باید کد مربوطه رو در

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

بیارید.
اینطوری به مخض تغییر در هر قسمت، کد داخلش اجرا میشه.
کد رو هم همونطور که گفتم ماکرد ضبط کنید.

marigold
2020/09/30, 17:47
سلام
من هم همین مورد رو میخوام انجام بدم ولی نمیدونم دقیقا باید چکار کنم میشه بیشتر راهنمایی کنید ممنون

mrhartsclube
2020/10/01, 07:48
سلام
من هم همین مورد رو میخوام انجام بدم ولی نمیدونم دقیقا باید چکار کنم میشه بیشتر راهنمایی کنید ممنون

سلام دوست عزیز

برای ریکورد کردن ماکرو به زبونه ی View بید و روی فلش زیر Macro کلیک کنید و Record Macro رو بزنید
بعد عملیات Copy کردن و Paste -> Paste Special Value رو در شیت دیگه تون انجام بدین
بعد که تموم شد باز به همون مسیر macro برید و اینبار Stop Recording رو بزنید
اگر بخش کد نویسی باز نشد وارد بخش VBA بشین با زدن کلید ترکیبی Alt+F11
روی شیت اول خودتون (سمت چپ پنجره باز شده لیست همه شیت ها رو داره) دوبار کلیک کنید و از منوی کشویی سمت چپ Worksheet رو انتخاب کنید تا تابع تغییر در زمان تعویض Selection ساخته بشه
حالا سمت چپ باید یه ماژول به اسم Module 1 ببینید، بعد روش دوبار کلیک کنید و محتویات بین خط اول و آخر (بدون خود خط اول و آخر) رو انتخاب و کپی کنید
دوباره روی شیت اولتون دوبار کلیک کنید و کدتون رو بین دو خط ایجاد شده Paste کنید
کار تمومه، برای تمیزکاری بهتره روی ماژول ایجاد شده راست کلیک کنید و Remove Module 1 رو بزنید و در پیغام نمایش داده شده No رو بزنید