Ali Mohamed Ali

معادلة رائعة بارك الله فيك أستاذى -أحسنت

تفضل أخى الكريم حذف وإضافة صف فارغ.xlsm

تفضل التوضيح بالصور وذلك يتم من خلال قائمة التحقق من صحة البيانات Data Validation

بأن تضع هذا الكود فى حدث الورقة المراد العمل عليها Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each cel In [A1:A1000] If Application.WorksheetFunction.CountIf(Range("A1:A1000"), cel) > 1 Then بمعنى العمل على العمةد الأول وهو العمود A الذى به البيانات cel.Interior.ColorIndex = 4 4 هو رقم لون التظليل Else cel.Interior.ColorIndex = 0 End If Next End Sub

جرب هذا أخى الكريم فاتورة ضريبية تجريبية.xlsm

لأنها أول خلية مكتوب فيها المعادلة من العمود الثانى وهو B وبالتالى فقمت بتثبيت هذه الخلية B1 ولم أسحب المعادلة يسارا مباشرة لأنى أصبحت أعدل فى كل خلية من خلايا الصف بحيث لا يتغير هذا الجزء من المعادلة مع تغيير الأعمدة ($B$1:B1) فإذا مثلا سحبت المعادلة أفقيا مباشرة فسوف يتغير هذا الجزء بتغير العمود المسحوب فيه المعادلة بمعنى لو سحبت الى العمود D فيصبح هذا الجزء كالتالى ($B$1:D1) ولكنى أريده يتغير بتغير B فقط أى تكون الخلية الأولى ($B$1:B1) والخلية الثانية ($B$1:B2) وهكذا الى اليوم ....31 بارك الله فيكم اتمنى ان تكون وضحت

تفضل أخى محمود فلتر.xlsm

تفضل أخى المعادلة أفقيا جدول الشهر مع 2التعديل.xlsx

على فكرة ملف الأستاذ محمد شغال تمام واليك الملف وايضا بع معادلة الأستاذ سليم جدول الشهر مع التعديل.xlsx

تفضل أخى محمود الغاء الفلترة.xlsm

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

أو ضع هذا الكود فى موديول ليعمل الوقت فى الخلية C13 كما تريد Sub Date_Time() On Error Resume Next 1 DoEvents N = Now Range("c13") = Format(N, "[$-F400]h:mm:ss AM/PM") T = T + 1 For r = 1 To 10000000: Next r GoTo 1 End Sub

قم بتغيير هذا السطر من الكود Range("t" & lin) = Names(j) الى Range("w" & lin) = Names(j) ولكم جزيل الشكر

طبعا أفضل لانه لا يمكنك كتابة معادلة فى نفس الخلية التى تقوم بالإدخال فيها

لو التوقيت الذى تريده فى خلية واحدة يمكنك استعمال ووضع معادلة الأستاذ سليم فى الخلية C13 =TEXT(TODAY(),"d/m/yyy")&" "&TEXT(NOW(),"hh:mm:ss") ولكم جزيل الشكر

لو فى خلية واحدة ممكن تقولى رقم الخلية مثلا B10 ? ولكم جزيل الشكر أو لو ممكن ترسل ملفك

أخى الكريم الملف تالف لا يفتح لو ممكن ارساله مرة اخرى ؟

هل مكان الساعة داخل خلية معينة لو ممكن تقولى بالضبط فى أى خلية تريد ان تضع الساعة ؟

تفضل أخى ارقام متسلسلة صف بعد صف.xlsx

ضع هذا الكود فى حدث الورقة فى ملفك Private Sub Worksheet_Change(ByVal Target As Range) n = Now If Target.Column = 2 Then If Target = "" Then Cells(Target.Row, Target.Column + 1) = "" Cells(Target.Row, Target.Column + 2) = "" Exit Sub ElseIf Target <> "" Then Cells(Target.Row, Target.Column + 1) = Date Cells(Target.Row, Target.Column + 2) = Time End If End If End Sub

تفضل أخى هذه صور لتوضيح ما حدث لإضافة الصورة فى مربع التعليق وهذا أيضا موقع به التوضيح https://t3me.com/ar/news/بالصوركيفية-إضافة-صورة-داخل-تعليق-في-م/ بارك الله فيك وأعتذر عن التأخر فى الرد

أخى الكريم هذه هى المعادلة التى تحقق طلبك مسألة1 (1).xlsx

أخى جرب تفضل هذا الملف تغيير قيمة الخلية ذاتيا.xls

المعادلة موجودة فى الخلية E3 فهى صحيحة وتعمل فى ملفك جربها مسألة1.xlsx

هل تقصد هكذا رسالة.xlsx وهذا أيضا إضافة صورة.xls وهذا ملف لتغيير حجم الصورة تغيير حجم صورة حسب تغير قيمة خلية.xls