اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود يقوم بنسخ الورقة مع الاحتفاض بالنسخة ااصلية


الردود الموصى بها

ربما هذا الكود اكثر دقّة

Sub RoundedRectangle1_Click()
    Dim Sh As Worksheet
    Set Sh = Sheet1
    Dim x, Y As Date
    Dim d, m, yy
    Sh.Copy After:=Sheets(Sheets.Count)
    Y = Date
    d = Day(Y): m = Month(Y): yy = Year(Y)
    x = Format(Time, "h mm ss AM/PM")
     ActiveSheet.Name = "aamir On " & d & " " & m & " " & yy & "(" & x & ")"
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

11 دقائق مضت, سليم حاصبيا said:

ربما هذا الكود اكثر دقّة


Sub RoundedRectangle1_Click()
    Dim Sh As Worksheet
    Set Sh = Sheet1
    Dim x, Y As Date
    Dim d, m, yy
    Sh.Copy After:=Sheets(Sheets.Count)
    Y = Date
    d = Day(Y): m = Month(Y): yy = Year(Y)
    x = Format(Time, "h mm ss AM/PM")
     ActiveSheet.Name = "aamir On " & d & " " & m & " " & yy & "(" & x & ")"
End Sub

 

انتم اساتذتنا ومنكم نتعلم جزاك الله خيرا استاذ سليم حاصبيا 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information