بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'تصحيح هذا الكود'.
تم العثور علي 1 نتيجه
-
السلام عليكم سؤال لخبراء الاكسل الكرام امل تصحيح هذا الكود حيث اني الغي الامر بعد فتح النافذا فايستمر بتنفيذ الكود امل تصحيح الكود Sub Macro01() a = MsgBox("هل تريد طباعة الان ؟", vbYesNo + vbQuestion, "طباعة") ' اذ اخترت لا اريد الطباعة الصحيح الكود يقف ويلغي التنفيذ هنا If a = vbYes Then With ActiveSheet Dim Numcop As Integer Numcop = Application.InputBox("أدخل عدد النسخ للطباعة:", "كم عدد النسخ?", 1, Type:=1) If Numcop = 0 Then ElseIf Len(Numcop) > 0 Then End If ActiveWindow.SelectedSheets.PrintOut copies:=Numcop 'اذ اخترت لا اريد الطباعة عدد الصحيح الكود يقف ويلغي التنفيذ كذالك هنا End With End If Dim X3 As Long, X4 As Long X3 = Sheets("DATA").Range("a1000").End(xlUp).Row + 1 X4 = Sheets("aaa").Range("B24").End(xlUp).Row Sheets("DATA").Range("B" & X3).Resize(X4 - 5, 21) = Sheets("aaa").Range("B6").Resize(X4 - 5, 21).Value End Sub ولكم الشكر تنفيذ المكرووو.rar
