عامر ياسر قام بنشر يوليو 18, 2018 مشاركة قام بنشر يوليو 18, 2018 السلام عليكم ورحمة الله وبركاته اضع هذا الملف كي يستفاد منه البعض aamir.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 18, 2018 مشاركة قام بنشر يوليو 18, 2018 ربما هذا الكود اكثر دقّة 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 1 رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر يوليو 18, 2018 الكاتب مشاركة قام بنشر يوليو 18, 2018 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 انتم اساتذتنا ومنكم نتعلم جزاك الله خيرا استاذ سليم حاصبيا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.