اذهب الي المحتوي
أوفيسنا

احمد حسن الامام

عضو جديد 01
  • Posts

    14
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركات المكتوبه بواسطه احمد حسن الامام

  1. السلام عليكم 

    ممكن لو سمحتم عايز اعرف احسب الفرق بين رقمين مثلا a1=5وخليه اخري b1=10اريد شي يعطي الناتج 6

    مع العلم اني استخدمb1-a1)+1)

    ولكن عندما تكون قيمه الخلايا صفر تعطي النتيجه 1

    وذلك يعطي مجموع خطآ  

  2. هذا الكود  لانشاء شيت جديد باسم معين وهو تمام 

    بس فى مشكله عند الضغط على cancel  ينشاء شيت  ويفتحه 

    اولا

    فهل من طريقه للتعديل حيث عن الضغط على cancel لا ينشاء شيت جديد

    ثانيا هل من كود حذف شيت معين

     والكود كالتالى 


    Sub newsheetcustomename()
    On Error GoTo ErrorHandler

    Dim NewSheet As Worksheet
    Dim sheetname As String

    Set NewSheet = Sheets.Add

    ("sheetname = InputBox("new 

    If sheetname = "" Or Len(sheetname) > 31 Then
        ("MsgBox ("00000000 
        Exit Sub
    End If

    NewSheet.Name = sheetname

    ErrorHandler:
    If Err.Number = 1004 Then
    ("MsgBox ("00000000
    Application.DisplayAlerts = False
    NewSheet.Delete
    Application.DisplayAlerts = True
    Exit Sub
    End If

    End Sub

     

×
×
  • اضف...

Important Information