دستور اضافه شدن یک شیت خاص با اضافه شدن یک سطر

[ali65e]

سلام مجدد به دوستان و اساتید
دوستان فایل اکسلی دارم که در آن نام و نام خانوادگی دانش آموزان در یک ستون توسط آموزگار باید وارد بشود.دوستان عزیز دستوری می خواهم که با آن دستور بشود شیتهایی به نام دانش آموزان که آموزگار نام آنها را وارد کرده است ،درست کرد.به عنوان مثال آموزگار بعد از اینکه نام دانش آموز اول را وارد کرد نرم افزار به طور اتومات یک شیت به نام ان دانش آموز ایجاد کند.(در ضمن این شیتی هم که نرم افزار ایجاد می کند باید یک کپی از شیت 1 که قبلا ایجاد کرده ایم باشد.)

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

سلام مجدد به دوستان و اساتید
دوستان فایل اکسلی دارم که در آن نام و نام خانوادگی دانش آموزان در یک ستون توسط آموزگار باید وارد بشود.دوستان عزیز دستوری می خواهم که با آن دستور بشود شیتهایی به نام دانش آموزان که آموزگار نام آنها را وارد کرده است ،درست کرد.به عنوان مثال آموزگار بعد از اینکه نام دانش آموز اول را وارد کرد نرم افزار به طور اتومات یک شیت به نام ان دانش آموز ایجاد کند.(در ضمن این شیتی هم که نرم افزار ایجاد می کند باید یک کپی از شیت 1 که قبلا ایجاد کرده ایم باشد.)

با عرض سلام مجدد خدمت دوست عزيز

شما بايد از vba استفاده كنيد.

يك نمونه ساده خدمت شما. شخصي سازيش با خودتون

Sub sheetnaming()
    Name = Range("A1").Value
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = Name
End Sub

[ali65e]

سلام مجدد خدمت دوست عزیزم
امیر جان تابعی که زحمت کشیده بودی برای سلول a1 کاملا درست عمل می کنه ولی برای سایر آیتمهای ستون a عمل نداره. برای مثلا سلول a2 چه تغیراتی باید توو مارکو بدم؟فایلشو پیوست می کنم خدمتتون .اگه امکان داره روو همین فایل اصلاح کنید برام بفرستید.متشکرم

[Amir Ghasemiyan]

سلام مجدد خدمت دوست عزیزم
امیر جان تابعی که زحمت کشیده بودی برای سلول a1 کاملا درست عمل می کنه ولی برای سایر آیتمهای ستون a عمل نداره. برای مثلا سلول a2 چه تغیراتی باید توو مارکو بدم؟فایلشو پیوست می کنم خدمتتون .اگه امکان داره روو همین فایل اصلاح کنید برام بفرستید.متشکرم

من دقيق متوجه منظورتون نشدم. ولي فكر كنم همچين چيزي مد نظرتون باشه.
شما در سلول B1 مقداري رو وارد ميكنيد كه در واقع نشان دهنده شماره سطر خواهد بود. مثلا اگه بخواهيد سلول A4 رو به عنوان نام استفاده كنيد بايد سلول B1 رو برابر 4 قرار بدين

Sub sheetnaming()
    C = Range("B1").Value
    Name = Range("A" & C).Value
    Range("B1").Value = C + 1
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = Name
End Sub

[ali65e]

سلام مجدد
امیر جان گویا منظورمو خوب نتونستم برسونم.امیر جان واسه اینکه منظورمو بهتر برسونم دو تا فایل ضمیمه می کنم که توضیحات لازمو تووش دادم.ممنون

[Amir Ghasemiyan]

سلام مجدد
امیر جان گویا منظورمو خوب نتونستم برسونم.امیر جان واسه اینکه منظورمو بهتر برسونم دو تا فایل ضمیمه می کنم که توضیحات لازمو تووش دادم.ممنون

سلام دوست عزيز
خب الان كامل متوجه شدم

شما در سلول B1 اين فرمول رو بنويسيد

=COUNTIF(A:A;"*")-1

در vba هم اين دستورات رو قرار بدين

Sub sheetnaming()
c = Range("B1").Value
For e = 2 To c
    Sheets("Sheet2").Select
    Name = Range("A" & e).Value
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = Name
Next e
End Sub

[ali65e]

داداش گل دستت درد نکنه.خیلی عالی بود

[ali65e]

امیر جان چگونه میشه تغییراتی توو این ماکرو بدیم که ماکرو،نام شیت را ، در سلول a1 همان شیتی که ایجاد کرده است بنویسد؟

[khakzad]

با اجازه جناب قاسمیان
دوست عزیز.اون خط کد آخر میاد اسم یک سلول از شیت اول رو به عنوان نام شیت در نظر می گیره.
شما یک خط کد مشابه همین اضافه کنید ولی بجای اینکه activesheet.name رو مساوی متغیر name بذارید. activesheet.range("a1")i رو مساوی متغیر مورد نظر قرار بدید.
سوالی بود در خدمتم

[ali65e]

سلام دوست عزیز
خانم خاکزاد این تغییری که شما زحمت کشیده بودید گفتید،تقریبا درست عمل می کنه ولی مشکلی که داره اینه نام شیت هایی که ایجاد می شوند دیگر برابر با نام دانش آموزان نمی شود .
متن ماکرویی که اعمال شده این است
Sub sheetnaming()
Sheets("Sheet2").Select
c = Range("I11").Value
For e = 2 To c + 1
Name = Range("G" & e).Value
Sheets("Sheet20").Select
Sheets("Sheet20").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Range("a1") = Name
Sheets("Sheet2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Range("G" & e), Address:="", SubAddress:=Name & "!A1", TextToDisplay:=Name


Range("G2:G40").Select
With Selection.Font
.Name = "B Nazanin"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Selection.Font.Underline = xlUnderlineStyleNone
With Selection.Font
.Color = -10477568
.TintAndShade = 0
End With
With Selection.Font
.Color = -10477568
.TintAndShade = 0
End With
Next e
End Sub