اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر
17 دقائق مضت, دلفين سردار said:

السلام عليكم

هل يمكن حذف او اخفاء خلية اعتمادا على خلية اخرى

 

الخلية او  (عدة خلايا)  لا يمكن حذفها  ولا اخفائها من ورقة الاكسل (يمكن تفريغها فقط او نتسيقها )

خاصية الحذف والاخفاء هي للصفوف و الأعمدة فقط

 

  • Like 1
قام بنشر

السلام عليكم

استاذي الغالي 

هل من طريقة لحذف الصفوف باعتماد على خلية

19 ساعات مضت, سليم حاصبيا said:

الخلية او  (عدة خلايا)  لا يمكن حذفها  ولا اخفائها من ورقة الاكسل (يمكن تفريغها فقط او نتسيقها )

خاصية الحذف والاخفاء هي للصفوف و الأعمدة فقط

 

 

قام بنشر

جرب هذا الملف

الكود

Option Explicit

Sub hid_rows()
Dim t%, lr%
Dim i%, x%
Dim My_Rg
Application.ScreenUpdating = False
If ActiveSheet.Name <> "Principale" Then GoTo Leave_Me
SHOW_AL
lr = Cells(Rows.Count, 4).End(3).Row
Set My_Rg = Range("b2:b" & lr)
ActiveSheet.Cells.EntireRow.Hidden = False
For i = 3 To lr Step 8
x = Len(Cells(i, 2))
If x < 3 Then
 Rows(i & ":" & i + 7).Hidden = True
End If
 Next
Leave_Me:
 Application.ScreenUpdating = True
End Sub
'''''''''''''''''''''''''''''''''''''
Sub SHOW_AL()
ActiveSheet.Cells.EntireRow.Hidden = False
End Sub

الملف مرفق

 

Hide_Unhide rows.xlsm

قام بنشر
1 ساعه مضت, دلفين سردار said:

استاذي هل من ممكن اجعل الصفوف يبدا من صف 3

اي ارغب في اداج صفيين فوق الجدول

استبدلي يهذا السطر في الكود الرقم3 بالرقم5(بعد اضافة الصفين  اكيد)

For i = 3 To lr Step 8

 

  • Like 2
قام بنشر

السلام عليكم

استاذي الغالي 

والله معرف كيف اشكرك

جزاك الله الف الف خير

الملف يعمل بشكل ممتاز

........................................................

استاذ والله اعرف عم اسال كثير ولكن ليس لدي غيرك 

لدي سوال هل اقدر ان اضع حد نهاية الخلايا التي يقوم بخفاءها (مثلا يخفي فقط جدول وفي نهاية الجدول لا يخفي اي شي ) مثلا تعرف في نهاية الجدول نكتب اسم مدير المدرسة وختم وتاريخ هنا كل شي يختفي اريد فقط عملية الاخفاء يكون حصر على جدول 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information