ابو اسامة العينبوسي قام بنشر يناير 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 بواسطه ابو اسامة العينبوسي
omar elhosseini قام بنشر يناير 25, 2007 قام بنشر يناير 25, 2007 الاخ ابو اسامة العينبوسي تحياتى ................................... حسب فهى للموضع انت تريد اختيار الخلايا التى تكون محتوية على ارقام ولا تكون هذه الارقام نيجة صيغة الخلية . هل هذا هو المطلوب اخى ضع ملف حتى نستطيع التعرف على حدود المنطقة التى سيتم التعامل معها تحياتى لك
ابو اسامة العينبوسي قام بنشر يناير 25, 2007 الكاتب قام بنشر يناير 25, 2007 (معدل) شكرا اخ تامر للتاكيد اريد الخلايا التي تحتوي على قيم اكبر من صفر سواء كانت ارقام او ارقام ناتجه عن صيغه في النطاق d3:d500 من ورقه الصرفيات الخلايا في الغالب متجاوره بعد ان يقوم الكود باختيار الخلايا يتم عمل نسخ لها ثم عمل لصق في نفس الموضع مع خيار لصق القيم فقط عذرا على ورود كلمه شيقل في الملفات مجال عملنا الصرافه الباسوورد هي للفيجوال 921973 omartest.rar تم تعديل يناير 25, 2007 بواسطه ابو اسامة العينبوسي
omar elhosseini قام بنشر يناير 25, 2007 قام بنشر يناير 25, 2007 الاخ ابو اسامة العينبوسي وبصورة اخرى يمكن ان نقول : فى هذا المدى المحدد الخلايا ذات الصيغ يتم تحويلها الى قيم فقط بدون الصيغة . هل هذا يوافق طلبك .
ابو اسامة العينبوسي قام بنشر يناير 25, 2007 الكاتب قام بنشر يناير 25, 2007 (معدل) اذا كانت هذه الصيغ تحتوي على ارقام تم تعديل يناير 25, 2007 بواسطه ابو اسامة العينبوسي
ابو اسامة العينبوسي قام بنشر يناير 25, 2007 الكاتب قام بنشر يناير 25, 2007 Range("a1:a10").Select For Each cell In selection If cell > 0 Then cell.SpecialCells(xlCellTypeConstants).Select Next cell هذا الكود لا يعمل ما الخطأ
omar elhosseini قام بنشر يناير 26, 2007 قام بنشر يناير 26, 2007 الاخ ابو اسامة العينبوسي تحياتى شاهد المرفق اخى __________________________2.rar
ابو اسامة العينبوسي قام بنشر يناير 26, 2007 الكاتب قام بنشر يناير 26, 2007 السلام عليكم اخي تامر كل الاحترام و الف شكر لك تماما هذا المطلوب
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.