ابو اسامة العينبوسي قام بنشر يناير 22, 2007 مشاركة قام بنشر يناير 22, 2007 (معدل) السلام عليكم لدي العمود A فيه ارقام و صيغ اريد كود لتحديد الخلايا التي تحتوي على ارقام فقط(وهي خلايا متجاوره) دون التي تحتوي على صيغ عثرت على كود يختار الخلايا غير الفارغه لكن المشكله انه يعتبر الخليه التي تحتوي على صيغه غير فارغه Sub Select_nonBlank() Dim FutureRow As Long, CurrRow As Long Dim col As Integer, nwRow As Long Dim nonBlank As Range col = ActiveCell.Column If Cells(1, col).End(xlDown).Row >= 65536 Then Exit Sub End If ' initialize nonblank with first nonblank cells If Cells(1, col) <> "" Then If Cells(2, col) <> "" Then Set nonBlank = Range(Cells(1, col), _ Cells(1, col).End(xlDown)) Else Set nonBlank = Cells(1, col) End If Else nwRow = Cells(1, col).End(xlDown).Row If Cells(nwRow + 1, col) = "" Then Set nonBlank = Cells(nwRow, col) Else Set nonBlank = Range(Cells(1, col).End(xlDown), _ Cells(1, col).End(xlDown).End(xlDown)) End If End If CurrRow = nonBlank.Rows(nonBlank.Rows.Count).Row + 1 If CurrRow < 65536 Then FutureRow = Cells(CurrRow, col).End(xlDown).Row Else FutureRow = 65536 End If While FutureRow < 65536 nwRow = Cells(CurrRow, col).End(xlDown).Row If Cells(nwRow + 1, col) = "" Then Set nonBlank = Union(nonBlank, Cells(nwRow, col)) CurrRow = nwRow + 1 Else Set nonBlank = Union(nonBlank, _ Range(Cells(CurrRow, col).End(xlDown), _ Cells(CurrRow, col).End(xlDown).End(xlDown))) CurrRow = Cells(CurrRow, col).End(xlDown) _ .End(xlDown).Row + 1 End If If CurrRow > 65536 Then FutureRow = 65536 Else FutureRow = Cells(CurrRow, col).End(xlDown).Row End If Wend nonBlank.Select End sub ] تم تعديل يناير 22, 2007 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 23, 2007 الكاتب مشاركة قام بنشر يناير 23, 2007 اخ خضر هل لديك حل؟؟ رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 24, 2007 الكاتب مشاركة قام بنشر يناير 24, 2007 هل من مجيب ؟؟ رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 25, 2007 مشاركة قام بنشر يناير 25, 2007 الاخ ابو اسامة العينبوسي تحياتى ................................... حسب فهى للموضع انت تريد اختيار الخلايا التى تكون محتوية على ارقام ولا تكون هذه الارقام نيجة صيغة الخلية . هل هذا هو المطلوب اخى ضع ملف حتى نستطيع التعرف على حدود المنطقة التى سيتم التعامل معها تحياتى لك رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 25, 2007 الكاتب مشاركة قام بنشر يناير 25, 2007 (معدل) شكرا اخ تامر للتاكيد اريد الخلايا التي تحتوي على قيم اكبر من صفر سواء كانت ارقام او ارقام ناتجه عن صيغه في النطاق d3:d500 من ورقه الصرفيات الخلايا في الغالب متجاوره بعد ان يقوم الكود باختيار الخلايا يتم عمل نسخ لها ثم عمل لصق في نفس الموضع مع خيار لصق القيم فقط عذرا على ورود كلمه شيقل في الملفات مجال عملنا الصرافه الباسوورد هي للفيجوال 921973 omartest.rar تم تعديل يناير 25, 2007 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 25, 2007 مشاركة قام بنشر يناير 25, 2007 الاخ ابو اسامة العينبوسي وبصورة اخرى يمكن ان نقول : فى هذا المدى المحدد الخلايا ذات الصيغ يتم تحويلها الى قيم فقط بدون الصيغة . هل هذا يوافق طلبك . رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 25, 2007 الكاتب مشاركة قام بنشر يناير 25, 2007 (معدل) اذا كانت هذه الصيغ تحتوي على ارقام تم تعديل يناير 25, 2007 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 25, 2007 الكاتب مشاركة قام بنشر يناير 25, 2007 Range("a1:a10").Select For Each cell In selection If cell > 0 Then cell.SpecialCells(xlCellTypeConstants).Select Next cell هذا الكود لا يعمل ما الخطأ رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 26, 2007 مشاركة قام بنشر يناير 26, 2007 الاخ ابو اسامة العينبوسي تحياتى شاهد المرفق اخى __________________________2.rar رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 26, 2007 الكاتب مشاركة قام بنشر يناير 26, 2007 السلام عليكم اخي تامر كل الاحترام و الف شكر لك تماما هذا المطلوب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان