Ali Mohamed Ali

جرب هذا أخى الكريم فاتورة ضريبية تجريبية.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

أهل وسهلا بك أخى فى منتدانا الكريم من المفترض ان ترسل ملف للعمل عليه ولكنى صممت ملف من عندى لطلبك -تفضل أخى بارك الله فيك ترحيل.xls

أستاذى الكريم ليه الملف محمى -منذ أمس حاولت اعمل عليه ولم استطع

تفضل أخى الكريم لك ما طلبت الفلتر.xlsx

رجاءا أخى الكريم عندما تقوم برفع ملف أقصى شيء يكون 50 صف كما قال لك استاذنا الكريم سليم فملفك ثقيل جدا واخذ وقت كبير تفضل جرب هذا ترتيب.xlsx