توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : لیستی از یک ثابت در چندین شیت
با عرض سلام و خسته نباشید چند شیت دارم که دارای اطلاعاتی با آدرس های ثابت است. مثلا a2 نام و نام خانوادگی و a5 شماره پرسنلی
می خوام توی یک شیت جدید تمام سلول های a2 و a5 همه شیت ها لیست بشه. مثلا
در شیت جدید، دو ستون داشته باشه که:
علی احمدی 20 (از شیت اول)
رضا احمدی 25 (از شیت دوم)
.
.
.
(از تمام شیت ها)
با تشکر از تمامی دوستان.
AmirAkbar
2015/02/22, 00:42
دوست عزیز اگر امکان داره فایل قرار بدید .. یا بخشی از فایل برای نمونه ..
با تشکر از توجه شما دوست عزیز
فایل نمونه پیوست شد
mohammad_ashooryan
2015/02/22, 10:18
با تشکر از توجه شما دوست عزیز
فایل نمونه پیوست شد
با سلام
ميتوانيد از فرمول Indirect استفاده كنيد.
فرمول سطر اول رو بنويسيد
بعدش فرمول رو درگ كنيد پايين.
5911
generalsamad
2015/02/22, 10:49
با سلام
ميتوانيد از فرمول Indirect استفاده كنيد.
فرمول سطر اول رو بنويسيد
بعدش فرمول رو درگ كنيد پايين.
5911
با سلام
یه سوال
اگه نام شیتها به این صورت نبود و نامهای متفافتی داشت اونوقت چطور میشه این کار رو کرد؟
ممنون
mohammad_ashooryan
2015/02/22, 16:45
با سلام
یه سوال
اگه نام شیتها به این صورت نبود و نامهای متفافتی داشت اونوقت چطور میشه این کار رو کرد؟
ممنون
با سلام
من vba بلند نيستم. ولي از توي اينترنت تونستم كد ليست كردن شيتهاي يه فايل اكسل رو از لينك زير پيدا كنم.
http://excel-macro.tutorialhorizon.com/vba-excel-get-the-names-of-all-worksheets-in-a-excel-workbook/
و توي فايل اعمال كردم.
5924
Ali Parsaei
2015/02/22, 17:02
با سلام
یه سوال
اگه نام شیتها به این صورت نبود و نامهای متفافتی داشت اونوقت چطور میشه این کار رو کرد؟
ممنون
سلام،
اون وقت مي شود از ماکرو کمک گرفت، براي نمونه فايل ارسالي شما من کد زير را نوشته ام (البته فقط براي اسامي است و شماره ها هم شبيه همين مي شود):
Sub Macro1()
Dim C As Range
For Each C In Range("A1:A20")
If C.Row < Sheets.Count Then
C = Sheets(C.Row).Range("A2").Value
End If
Next
End Sub
AmirAkbar
2015/02/22, 18:45
با سلام
ميتوانيد از فرمول Indirect استفاده كنيد.
فرمول سطر اول رو بنويسيد
بعدش فرمول رو درگ كنيد پايين.
5911
جالب بود .. مرسی :)
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.