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



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






موضوع مغلق


  • تمت الإجابة
21-03-2021 12:57 صباحاً
الإخوة الافاضل
اريد مسح بيانات بداية من اول خلية ( يقوم المستخدم بادخال اسمها فى مربع Textbox )
الى اخر خلية بها بيانات في نفس هذا العمود ،
وقد صممت كود لكنه يقوم بمسح اول خليه فقط
CODE

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
[/b][/i] والمطلوب
التعديل على الكود بحيث يمسح من اول خلية الى اخر خلية بها بيانات
وهنا فى هذا الملف الصف رقم 66
وهذا هو الملف المرفق
attachمسح خلايا معينة.zip
 
 
  مسح خلايا معينة.zip   تحميل zip مرات التحميل :(3)
الحجم :(124.368) KB





look/images/icons/i1.gif مسح بيانات من نطاق مرن متغير
  23-03-2021 06:19 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 164
الجنس :
تاريخ الميلاد : 1-1-1982
الدعوات : 1
قوة السمعة : 867
الاعجاب : 0
 
 
  مسح خلايا معينة.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(136.634) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil، hassona229، محمد الدسوقى، منجة فاتح،



look/images/icons/i1.gif مسح بيانات من نطاق مرن متغير
  26-03-2021 11:08 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
جرب هذا الماكرو (يقوم باخفاء الصفوف وليس حذفها)
(اذا كنت تريد الحذف يمكن التعديل)
CODE

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


أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى، حسين مامون،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل في ترحيل بيانات بشروط خاصة في الترحيل بكار للأبد
0 2 بكار للأبد
طلب استخراج بيانات متخصصة لصفحة مستقلة اكسل وpdfمن جدول فعاليات بكار للأبد
0 8 بكار للأبد
كود بحث مطاطي بأي جزء من البيانات علي بطيخ سالم
11 1839 star
طريقة استيراد بيانات من ملف اكسل عبدالرحمان بن حسين
1 67 عبدالرحمان بن حسين
تجميع بيانات من عدة ملفات بليغ البتول
1 53 بليغ البتول

الكلمات الدلالية
نطاق ، بيانات ، متغير ،








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

الساعة الآن 04:27 PM.