من فرم انتخاب واحد بزرگسالان دارم که هر داوطلب چند تا از کد درس ها رو انتخاب میکنه. چون تعداد شاگردان و کددرسها زیاده میخوام درنهایت بفهمم از بین شاگردان چه کسانی چه کد هایی رو انتخاب کردن. ممنون میشم جواب بدید
پیدا کردن یک کد از یه ستون
Collapse
این تاپیک قفل است.
X
X
-
سلام
سوالتون کلی هستش......در نمونه مشخص کنید خروجی به چه صورت است...![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]کامنت
-
سوال اینکه من مثلا برای 150 نفر انتخاب واحد میکنم مثلا علی که در page1 هست دو درس زبان فارسی و زبان خارجه رو انتخاب کرده محمد که در page 2 هست زبان خارج و فیزیک رو انتخاب کرده و کسی دیکه ای دروس دیگه تا ... . در نهایت من میخوام گزارشی بگیریم که در آن مشخص شود درس مثلا زبان خارجه چند بار و توسط چه کسانی انتخاب شده و همین طور دروس دیگه
و ممنون که پاسخ دادیدکامنت
-
شدنیه ولی کار وقت گیر و از نظر من اشتباه!
شما داده های هر page رو به صورت ستونی وارد کنید و بعد از پر کردن هر ردیف که یه شخص از اون 150 نفر هست اطلاعات هر پرونده و جزییات هر شخص تکمیل میشه تا بشه گزارش گیری راحت تری داشت!
در مورد فایل شما دقیقا برعکس همین قضیست که باید تک به تک پیج ها داده هاش به صورت ستونی بشن تا گزارش راحت تر گرفت!
ولی اگر گزارش محدود به تعداد درس هاست و این که چه کسانی گرفتند و همه پیج ها با هم همفرمتند بگید تا انجامش بدم![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]کامنت
-
-
دوست عزیز آشنایی بنده با اکسل در همین حدی است که انجام دادم و این برنامه رو برای مدرسه خودم نیاز دارم اگه لطف کنید و در فایل شماره 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]کامنت




کامنت