سلام دوست من خیلی* ممنونم..
من سعی* کردم یه سری چیزا رو تغییر بدم به اون روشی* که دارم تغییر میدم ولی* متاسفانه نتونستم خوب پیش برم. می*شه لطفا یه تمپلیت چیزی واسعم تهی کنی* که من بتونم استفاده کنم که دیگه موزهم شما نسهام علاوه بر اون یه مشکلی* پیدا کردم توی این سپرید.
زمانی* که کل ردیف رو به شیت دیگه انتقال میده*??� مایل هستم که استتوس جدید توی اون شیت جدید به صورت پیش فرض باقی* بمونه ( یعنی* اینکه استتوس از شیت قبلی* به شیت جدید انتقال پیدا نکنه).
الان کاملا بتن به عنوان یک مثل توضیح میدم.
ماسلن اگه علی* از شیت اپن*??� ستتوسش عوض بش به این پروگرس*??� این ردیف بدون استتوس در حال هز منتقل بش به شیت مربوطه. چرا چونکه توی شیت مربوطه استتوس های جدید اونجا وجود داره.
ماسلن در شیت این پروگرس*??� استتوس می*تونه به چیزهای دیگه تغییر کنه که دوباره بر مبانی هر استتوس یه شیت هستش که لازم هستش به اون ردیف که از شیت اپن منتقل داده شده این*دفعه با استتوس جدید که توی این پروگرس میگیره به شیت مربوطه منتقل بشه و همینطور الی* آخر..
امیدوارم که توضیحات کافی* باشه...
این فایل درست هستش دوست من عذر می*خوام.
شما کافي است اين کد را براي شيت OPEN بنويسيد:
و براي دو شيت ديگر هم همين کد را با تغيير اسامي شيت ها در کد مجددا" استفاده کنيد تا برعکس مطلب هم اجرا گردد.کد PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
Dim D As Integer
Dim J As Variant
If (ActiveCell.Row > 3 And ActiveCell.Column = 10) And (ActiveCell.Value = "In progress" Or ActiveCell.Value = "Complete") Then
D = ActiveCell.Row
J = ActiveCell.Value
Rows(D).Cut
Worksheets(J).Activate
If Worksheets(J).Range("A4") = "" Then
Worksheets(J).Range("A4").Select
Else
Worksheets(J).Range("A3").Select
Selection.End(xlDown).Offset(1, 0).Select
End If
ActiveSheet.Paste
Worksheets(J).Cells(ActiveCell.Row, 10).Value = ""
Worksheets("Open").Activate
Rows(D).Delete
End If
End Sub
من فايل پيوست را فقط با کد جهت شيت OPEN به عنوان مثال برايتان مي گذارم:
ویرایش توسط Ali Parsaei : 2015/07/06 در ساعت 15:22
ممنونم دوست من در اولین فرصت این رو چک می*کنم و اگر به مشکلی* برخورد کردم با شما در میون میزارم.
واقعا از راهنمایتیون ممنونم.
سلام دوستان
یک سوال داشتم که در همین ضمینه هست.
ممنون میشم اگه وقتتون رو بذارید.
فرض کنید یک فایل اکسل دارید با n شیت
شیت اول شیت اصلی و n-1 شیت دیگر شیت های فرعی می باشد.
در شیت اول اطلاعات کلی افراد مختلف وارد می شود. ( به عنوان مثال اطلاعاتی شامل: نام و نام خانوادگی - شماره پرسنلی - کد بیمه - هزینه - تاریخ - جمع و ....)
این اطلاعات باید در این شیت محفوض بماند.
هر شیت فرعی مربوط به یک نفر می باشد. و در صورت اینکه در شیت اول اطلاعات هر شخص وارد می شود، خود به خود آن ردیف به شیت شخصی آن فرد هم منتقل شود.
به عنوان مثال یعنی کد بیمه هر شخص که در شیت اول وارد می شود را با تمامی کدهای بیمه شیت های دیگر مقایسه کند، درصورت برابری، آن ردیف را به شیت مورد نظر انتقال دهد. (کد بیمه مقایسه شود چون امکان قرار گرفتن نام های تکراری وجود دارد)
بسیار ممنونم
سلام
دوست عزیز
منطق این کار درست نیست
شما باید یک دیتابیس داشته باشید
و گزارش هاتون رو بر اساس اون بنویسید.
دیتابیس همینطور که دارید وارد می کنید درسته
کافیه مثلا با پیوت گزارش بگیرید و اسم افراد رو در لیست فیلتر بیارید
هر لحظه اسم هر نفر رو بزنید و گزارش مربوطه رو بگیرید
محصولات و جزوات آموزش تخصصی اکسل در:
برترین مرجع تخصصی پارسی اکسل
جامعه اكسل ايرانيان: فروشگاه
آموزش اکسل تخصصی و پیشرفته - تهران
h.khakzad@yahoo.com
با سلام
در تکمیل فرمایشات سرکار خانم خاکزاد یک نمونه فایل که با پیوت تیبل گزارشگیری شده است به پیوست میباشد
لینک دانلود
بله مهندس، با فیلتر میشه. اما برای هر فرد گزارش جداگانه ای نیاز دارم و نیاز به فعالیت های دیگه ای هم داره که باید توی شیت همون شخص انجام بشه. اما الان فقط می خوام اطلاعات هر فرد وارد شیت مخصوص به خوده اون فرد بشه. روشش برای من فرق نمی کنه. مهم اینه که این عمل انجام بشه. حتی اگه نیاز باشه چیزی بهش اضافه بشه
بابت وقتی که گذاشتین ممنون
سلام مجدد
اگر اصرا به کد دارید که باید از تالار ویژوال کمک بگیرید و تا یک جایی پیش برید و بیاید مرحله به مرحله سوال بپرسید.
اما در مورد پیوتف همچنان نظرم همونه.
شما یک بار پیوت میگیرید فیلد اسم و فامیل رو می برید توی فیلتر، بعد از قسمت option گزینه show report filter page رو که بزنید، به ازای هر نام و نام خانوادگی یک شیت و با همون نام درست میکنه.
خیلی خیلی بهتره. اینطوری اگر نیاز به تغییر در فرمت و یا مکان و ردیف اطلاعات باشه، نیازی به تغییر کد و اصلاح اون نیست. کافیه یکبار گزارش اصلی رو تولید کنید و بعد کاری که گفتم.
موفق باشید
محصولات و جزوات آموزش تخصصی اکسل در:
برترین مرجع تخصصی پارسی اکسل
جامعه اكسل ايرانيان: فروشگاه
آموزش اکسل تخصصی و پیشرفته - تهران
h.khakzad@yahoo.com
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)