طارق محمود

السلام عليكم سأحل لك الجزء الأول من سؤالك تستطيع عمل ذلك علي خطوتين أولا إستبدال كل ماهو مسافتين إلي رمز غريب غير مستخدم في الورقة وليكن # ثانيا إستبدال كل ## بــ # واحدة وتكرار ذلك إلي ألا يكون بالورقة ## جنب بعض ثم إستخدم delimited علي الرمز # أنظر الفيديو المرفق Text2Column.rar

السلام عليكم تم تعديل الرصيد الافتتاحي إذا ليس هناك رصيد قبل التاريخ المحدد فتكون الخلية فارغة الأمر الآخر هل ممكن في دالة المبيعات خلال مدة معينة أن أضيف شرط آخر وهو المبيعات النقدية أو لعميل معين خلال نفس الفترة، ممكن إذا كنت تستخدم إكسل 2007 وكذلك أريد دالة تحت الجدول تعطيني أكثر الأصناف بيعا اسم الصنف والكمية المباعة منه أو تعيد ترتيب الأصناف حسب المبيعات تم عملها تفضل المرفق نسخ66.rar

السلام عليكم هناك دالة بالإكسل إسمها DEC2HEX ولكنها لاتعمل إلا إذا كان الــ Analysis ToolPack نشطا وتنشيطه من Tools ثم Add-Ins أنظر المرفق DEC2HEX.rar

السلام عليكم أخي الحبيب أنت لم تكتب شيء داخل المرفق أعتقد أنك تقصد علامات الخطأ الظاهرة في الملف فذلك لأن من صمم الملف أولا لم يراعي حالة أن يفشل اللاعب في المحاولات الثلاثة فاللاعب الأول في الملف سجل كالتالي في المحاولات 1 ثم 2 ثم 3 كانت كلها فاشلة X170 ثم x175 ثم 175x إلغي x من أي منها ستجد ان جميع أخطاء الملف تنتهي

الحمد لله ردا علي سؤالك في الجدول العلوي عدد البلاد 6 عدد السنوات 3 إجمالي 3×6 =18 أي ان هذه البيانات سيتم إفرادها في 18 صف بدءا من الصف 17 وحيث أن الصف 17 يدخل في العدد فنطرح 1 في الجدول السفلي نبدأ من الصف 17 وستلاحظ أن المعادلات موجودة أسفل الصف الأخير 34 ولكنها لاتعطي شيئا لأن صفها اكبر من 34 بحيث أن لو الجدول العلوي زاد صف أو صفين أو عدة أعمدة فيتغير الناتج هذه الخلية

السلام عليكم أخي الحبيب ياسر - أبو البراء جزاك الله خيرا علي كلامك الطيب حسب ما فهمت أن الأخ هاني لايريد النسخ بل يريد النقل بالمعادلات عموما مرفق ماطلب حسب ما فهمت Book3-Tareq.rar

السلام عليكم تفضل المرفق عن طريق المعادلة =OFFSET($A$3,MATCH(A18,$A$4:$A$9),MATCH(B18,$B$3:$D$3)) Book2-Tareq.rar

السلام عليكم تفضل المرفق مع الشرح داخله جدول3 لادارة مسابقة رياضية.rar

السلام عليكم أخي الحبيب / أبو عبدالله عمل جميل وإسمح لي لإثراء الموضوع أن أقدم حل بدون أكواد فمعظم اللي ماعنده خبره إكسل لايحب حتي التعامل بها وتقبل تحياتي وإحتراماتي الأخت الفاضلة مرفق نموذج وبه الشرح Tenders TRACKING.rar

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

السلام عليكم أخي الكريم تفضل الملف المرفق بالإكسل به ماكرو لتنفيذ المطلوب بعد نسخ ملف الوورد بالكامل الخطوات 1. نسخ ملف الوورد بالكامل 2. وضعه في الخلية A1 3. ضغط زر الماكرو للإيضاح أكثر أنظر الفيديو المرفق أيضا vevazalata.rar word_2_excel.rar

السلام عليكم مرحبا بك أخي الكريم بين إخوانك تفضل المرفق دالة sum بشرطين.rar

لا والله ياياسر أنا أقر فقط بالحقيقة أنت فهمت السؤال افضل لاعذر ولاشيء أنت عارف إنك حبيبي

السلام عليكم عندك حق إنت فهمت المطلوب

السلام عليكم بعد إذنك أبو البراء أعتقد أن الأخت جازية تسأل ببساطة عن البيانات من نفس الصفحة أنظر المرفق إن شاء الله يكون هذا ماتريد Software malfunction.rar

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

السلام عليكم ترفق الدوال كأكواد مرفق كمثال عن دالة داخل الملف تحسب تاريخ الإستحقاق لمعاملة مالية في بنك علي أساس أن تاريخ الإستحقاق = تاريخ التسليم (الإيداع) + 3 أيام عمل (لا تتضمن الجمعة والسبت) الدالة هي due_ تفضل المرفق تاريخ الإستحقاق.rar

السلام عليكم أخي العزيز أنت لم ترسل ملف الإكسل ولكن كما هو واضح من الصورة أن الأسطر الغير مرغوب فيها دائما تحتوي علي علامتي أكبر من ، أصغر من < .......... > لذلك أنصحك بعمل فلتر وتختار الذي يحتوي علي أي منهما أنظر الفيديو المرفق remove emails.rar

السلام عليكم مرحبا أخي الكريم أنظر المرفق وبه الشرح Book2-2.rar

السلام عليكم رائع أبو البراء جزاك الله خيرا مع إمكانية تبديل الكود Sub LaunchSite() Dim newsite As Object Set newsite = CreateObject("InternetExplorer.application") newsite.Visible = True newsite.Navigate "http://www.cbe.org.eg" End Sub بالكود Sub LaunchSite() Sheets("Sheet1").Select With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.cbe.org.eg", Destination:=Range("A1")) .Name = "www.cbe.org.eg" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = """table10""" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub وتعديل الكود الذي في حدث ThisWorkbook إلي Private Sub Workbook_Open() x = InputBox("what time you want to open HH:MM ?") Application.OnTime TimeValue(x), "LaunchSite" End Sub ليكون كما يريد الأخ السائل فيسئل الكود أولا عن الموعد المطلوب للعمل ثم يتم المطلوب في الوقت المحدد مرفق الملف مرة كمان ولكن كل دي تحابيش أصل الكود اللي إنت عملته رااائع RunMacroAtCertainTime1.rar

السلام عليكم جميعا أخواني الأحباب الغاليين أبوعبدالله قصي خالد ياسر ولد طيبة الله يبارك فيكم مشكورين جميعا علي مروركم الكريم وكلماتك الطيبة نفعنا الله جميعا بما نعلم وبما نعمل آمين

أخي العزيز إستبدل آخر سطر في الكود قبل النهاية اللي كان If ([i8].Value) * 86400 < 1 Then Range("A1").FormulaR1C1 = "=SUM(R[1]C:R[33]C)" الي If ([i8].Value) * 86400 < 1 Then Sheets("Sheet2").Select With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.cbe.org.eg", _ Destination:=Range("A1")) .Name = "www.cbe.org.eg" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = """table10""" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End IF أنا لم أجربه بس إن شاء الله يشتغل

أخي أبوسارة جزاك الله خيرا أنت الأروع وألأسبق

السلام عليكم إخواني وأحبائي وجدت علي موقع أجنبي قائمة للمبتدئين في تعليمات وبرمجيات الفيجوال بيزيك للاكسل القائمة علي شكل فهرس ولم أفعل غير تنسيقها فقط بالإكسل تفضلوا القائمة بصيغتي 2003 ، 2007 عسي الله أن ينفع بهما Excel VBA Index.rar

السلام عليكم أخي الحبيب وأستاذي الجليل طبعا ردي معروف تمام التمام والله إني لأحبك في الله بارك الله لك وفيك وفي كل أحبابك