تمت الإجابة مسح بيانات من نطاق مرن متغير

لوحة التميز الأسبوعي
العضو المتميز	المشرف المتميز	المراقب المتميز	المدير المتميز	الموضوع المتميز	القسم المتميز

هانى على	لا تميز خلال هذه الفترة	لا تميز خلال هذه الفترة	YasserKhalil	هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد	اكسيل اسئله واجابات

أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .

الرئيسية

منتدى الاكسيل

اكسيل اسئله واجابات

مسح بيانات من نطاق مرن متغير

الإخوة الافاضل اريد مسح بيانات بداية من اول خلية (يقوم المستخدم بادخال اسمها فى مربع Textbox) الى اخر خلية بها بيانات ..

: موضوع مغلق

حالة الموضوع : مغلق
أدوات الموضوع

أدوات الموضوع

تحميل محتوى الموضوع

عرض نسخة صالحة للطباعة

أرسل هذا الموضوع إلى صديق

: تمت الإجابة مسح بيانات من نطاق مرن متغير

21-03-2021 12:57 صباحا

أباالحسن

عضو ماسي

تاريخ الإنضمام : 22-08-2017

رقم العضوية : 18

المشاركات : 349

الجنس :

تاريخ الميلاد : 7-7-1979

الدعوات : 1

يتابعهم : 4

يتابعونه : 17

قوة السمعة : 832

الإخوة الافاضل
اريد مسح بيانات بداية من اول خلية (يقوم المستخدم بادخال اسمها فى مربع Textbox)
الى اخر خلية بها بيانات في نفس هذا العمود ، وقد صممت كود لكنه يقوم بمسح اول خليه فقط



Private Sub Image_Erase_Click()

     If Len(Electronic_Payment.TextBox1) < 2 Then

     MsgBox "الرجاء كتابة اسم أول خلية  " & vbNewLine & _

     "والتى سيتم مسح البيانات من بدايتها ، بشكل صحيح ", vbMsgBoxRight + 16, ""

     Exit Sub: End If



  Electronic_Payment.Hide

  ThisWorkbook.Worksheets("ElectronicPayment").Activate



Dim LR As Integer

LR = ThisWorkbook.Worksheets("ElectronicPayment").[L6].Value



Dim cl_1 As String

cl_1 = ThisWorkbook.Worksheets("ElectronicPayment").[L8].Value



          ActiveSheet.Range(cl_1).ClearContents

  

        

     MsgBox "تم مسح الخلايا فى العمود المحدد", vbMsgBoxRight + 64, ""

        

Exit Sub

ErrMsg: MsgBox " ـ لـم يـتـم تـنـفـيـذ الـمـطـلـوب ـ ", 16 + vbMsgBoxRight, ""

End Sub

والمطلوب
التعديل على الكود بحيث يمسح من اول خلية الى اخر خلية بها بيانات
وهنا فى هذا الملف الصف رقم 66
وهذا هو الملف المرفق لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

مسح خلايا معينة.zip تحميل zip مرات التحميل :(3)
الحجم :(124.368) KB

أفضل إجابة مقدمة من حسين مامون وهي:

جرب المرفق لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

عرض الإجابة

: 23-03-2021 06:19 مساء

[1]

حسين مامون

عضو فعال

تاريخ الإنضمام : 23-08-2017

رقم العضوية : 69

المشاركات : 172

الجنس :

الدعوات : 1

يتابعهم : 5

يتابعونه : 11

قوة السمعة : 957

عدد الإجابات: 22

: مسح بيانات من نطاق مرن متغير

: جرب المرفق لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

مسح خلايا معينة.xlsm تحميل xlsm مرات التحميل :(6)
الحجم :(136.634) KB

: 26-03-2021 11:08 صباحا

[2]

salim

خبير معتمد

تاريخ الإنضمام : 22-08-2017

رقم العضوية : 43

المشاركات : 853

الجنس :

تاريخ الميلاد : 1-5-1989

الدعوات : 1

يتابعهم : 13

يتابعونه : 33

قوة السمعة : 6607

عدد الإجابات: 67

: مسح بيانات من نطاق مرن متغير

جرب هذا الماكرو (يقوم باخفاء الصفوف وليس حذفها)
(اذا كنت تريد الحذف يمكن التعديل)



Sub My_Macro()



Dim LASTROW

Dim Rg As Range

Dim Impt

Dim Sh As Worksheet

Set Sh = Sheets("ElectronicPayment")

Show_ALL



LASTROW = Sh.Cells(Rows.Count, 1).End(3).Row



Impt = Application.InputBox("Put an Number <= " & LASTROW _

       , 1, Type:=1)

  If Val(Impt) <= 0 Or CInt(Impt) > LASTROW Then

   MsgBox "You must type Only number<=  " & LASTROW

   Exit Sub

  

  End If

  Impt = Int(Impt)

 Set Rg = Sh.Range("A" & Impt).Resize(LASTROW - Impt + 1, 7)

 Rg.EntireRow.Hidden = True

 

End Sub

'+++++++++++++++++++++++++++++++++++++++

Sub Show_ALL()

Sheets("ElectronicPayment").Rows.Hidden = False

End Sub

الملف مرفق

Aba Hasan.xlsm تحميل xlsm مرات التحميل :(2)
الحجم :(140.579) KB

الكلمات الدلالية

نطاق ، بيانات ، متغير ،

« كيف يمكن عمل كشف حساب تفصيلى من شيت data | كود لترحيل البيانات لاعمدة مختلفة الترتيب »

اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.

سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 12:53 مساء