ا بو سليمان قام بنشر سبتمبر 5, 2015 مشاركة قام بنشر سبتمبر 5, 2015 (معدل) السلام عليكم النقاط المطلوبة 1- فرز البيانات في العمو د A الى الاعمدة المجاورة على ان يبداء فرز التاريخ في العمود C 2-عمل ترتيب للعمدة المفروزة بحيث يكون التاريخ الاحدث هو في الصف الاول وكلما نزلنا للاسفل يكون التاريخ اقدم (( وطبعا تلقائي يتم ترتيب البيانات المجاورة للتاريخ مع التاريخ ) 3- عمل كود للتريب لان البيانات يتم جلبها من خارج الملف الى الملف ويكون مقرها العمود A فيكون الكود هو فرز البيانات ثم ترتيبها حسب الاحدث يكون بالاعلى حسب التاريخ 4- يكون فيه مجال انني انسخة واطبقة على ملفات اخرى ليتم العمل عليها بنفس الكود _4070.rar تم تعديل سبتمبر 5, 2015 بواسطه ا بو سليمان 1 رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر سبتمبر 5, 2015 الكاتب مشاركة قام بنشر سبتمبر 5, 2015 تم ادراج المرفق رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر سبتمبر 6, 2015 مشاركة قام بنشر سبتمبر 6, 2015 و عليكم السلام و رحمة الله وبركاته رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر سبتمبر 6, 2015 الكاتب مشاركة قام بنشر سبتمبر 6, 2015 كلمتان خفيفتان على اللسان ثقيلتان في الميزان سبحان الله وبحمدة ............سبحان الله العظيم رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر سبتمبر 6, 2015 مشاركة قام بنشر سبتمبر 6, 2015 السلام عليكم و رحمة الله وبركاته سوف يقوم الكود بالتالي حيث ان الورقة التي ينقل اليها البيانات هي ليست ورقة عمل لذلك يتم ادراج ورقة عمل جديدة ونقل البيانات اليها توزيع البيانات على الأعمدة تصحيح صيغة التاريخ من mm/dd/yyyy الى dd/mm/yyyy فرز البيانات وترتيبها تنازليا Sub Reset_New_Data() ' تحديث بيانات تم جلبها من ملف خارجي Dim FS As Worksheet, TS As Worksheet, RN1 As Range Dim ER Set FS = Sheets(ActiveSheet.Name) Sheets.Add Set TS = Sheets(ActiveSheet.Name) FS.UsedRange.Copy TS.Range("A2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False 'Set RN1 = TS.UsedRange ER = TS.UsedRange.Rows.Count + 3 Set RN1 = TS.Range("A1:A" & ER) ' Range("B1:K1").EntireColumn.Insert RN1.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, OtherChar _ :="/", FieldInfo:=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _ 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True ' Range("B1:D1").EntireColumn.Insert RN1.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _ TrailingMinusNumbers:=True Range("D1:D" & ER).FormulaR1C1 = "=DATE(RC3,RC1,RC2)" Range("D1:D" & ER).Copy Range("D1:D" & ER).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("A:C").Delete Shift:=xlToLeft Range("A1:O1").ClearContents ActiveSheet.UsedRange.Select Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Selection.Font.Size = 13 Selection.Columns.AutoFit Range("A1").Select End Sub طريقة الإستخدام تقوم بفتح الملف الذي تم الجلب البيانات اليه (الملف الجديد) تفتح هذا الملف تضغط بزر الماوس الأيمن على زر تحديث الموجود في هذا الملف تختار نسخ تذهب الى الملف الجديد - الورقة التي بها البيانات التي تم جلبها تضغط بزر الماوس الأيمن على أي مكان في الورقة التي بها البيات تختار لصق يتم ادراج الزر في الورقة اضغط على الزر بزر الماوس الأيسر يتم عمل المطلوب توزيع البيانات و فرزها.rar 2 رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر سبتمبر 6, 2015 الكاتب مشاركة قام بنشر سبتمبر 6, 2015 بارك الله فيك سوف يتم التجربة رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر سبتمبر 7, 2015 الكاتب مشاركة قام بنشر سبتمبر 7, 2015 لم استطيع التطبيق للاسف فهل هنالك مقطع يشرح ذلك لاستفيد انا وغيرى منه بارك الله فيك رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر سبتمبر 7, 2015 مشاركة قام بنشر سبتمبر 7, 2015 وعليكم السلام و رحمة الله وبركاته اسعد الله صباحكم بكل خير ارجو المعذرة - موضوع الفديو لا اعرف كيف اعمله و لكن و باختصار تنسخ الزر من هذا الملف الى الملف الي تبغه تشتغل علية وتشغل الزر تحياتي وتقديري واذا لم ينفع بسيطة انسخ الكود من هذا الملف الى الملف الي تبغة تشتغل علية وشغل الكوود 1 رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر سبتمبر 7, 2015 الكاتب مشاركة قام بنشر سبتمبر 7, 2015 وعليكم السلام و رحمة الله وبركاته اسعد الله صباحكم بكل خير ارجو المعذرة - موضوع الفديو لا اعرف كيف اعمله و لكن و باختصار تنسخ الزر من هذا الملف الى الملف الي تبغه تشتغل علية وتشغل الزر تحياتي وتقديري واذا لم ينفع بسيطة انسخ الكود من هذا الملف الى الملف الي تبغة تشتغل علية وشغل الكوود احمدزمانالبلد:KSA لا مشكلة ... ان شاء الله ..لانه بالامكان ان نصلك باي منطقة بالسعودية بقى الان ان تحدد موقعك ..يا عسل رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر سبتمبر 7, 2015 مشاركة قام بنشر سبتمبر 7, 2015 السلام عليكم و رحمة الله وبركاته راحت عليك يا ابو سليمان بعد ساعة يجب ان اكون في المطار للسفر خارج السعودية =================================== المهم و المهم جدا وقت ما تحب تزور الحبيب عليه الصلاة و السلام في المدينة المنورة تجد اخوك احمد في خدمتك و اتشرف بلقائك 1 رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر سبتمبر 7, 2015 الكاتب مشاركة قام بنشر سبتمبر 7, 2015 السلام عليكم و رحمة الله وبركاته راحت عليك يا ابو سليمان بعد ساعة يجب ان اكون في المطار للسفر خارج السعودية =================================== المهم و المهم جدا وقت ما تحب تزور الحبيب عليه الصلاة و السلام في المدينة المنورة تجد اخوك احمد في خدمتك و اتشرف بلقائك بارك الله فيك وحفظك في حلك وترحالك وتعود سالما ان شاء الله نعم ارغب التواصل معك واتشرف بلقائك في طيبة الطيبة فمتى تكون متواجد ارجو اخباري بذلك لارتب وقتي رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر سبتمبر 8, 2015 الكاتب مشاركة قام بنشر سبتمبر 8, 2015 المشكلة انه لو يحصل خطا ء بنسبة واحد الى المليون يتوقف العمل لذا لا ااعرف كيف الطبيق بشكل صحيح تضغط بزر الماوس الأيمن على زر تحديث الموجود في هذا الملف تختار نسخ تذهب الى الملف الجديد - الورقة التي بها البيانات التي تم جلبها تضغط بزر الماوس الأيمن على أي مكان في الورقة التي بها البيات تختار لصق يتم ادراج الزر في الورقة اضغط على الزر بزر الماوس الأيسر يتم عمل المطلوب عبارة غير مفهومة رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر سبتمبر 30, 2015 الكاتب مشاركة قام بنشر سبتمبر 30, 2015 سبحان الله...... والحمد لله ........ ولا اله الا الله ..... والله اكبر رابط هذا التعليق شارك More sharing options...
ابو اياد ( الاسيوطى ) قام بنشر سبتمبر 30, 2015 مشاركة قام بنشر سبتمبر 30, 2015 (معدل) السلام عليكم بعد اذن استاذنا الكبير // احمد يعقوب ( مفتقدكم كثيرا ) اخى العزيز ابو سليمان التعامل مع التاريخ والوقت بحذر لوجود تنسيقات عديده لهما كن على حذر الملف المرفق يعمل عندى بكفائه بعد تعديل تنسيق تاريخ جهاز الكبيوتر الى شهر / يوم / سنه جرب المرفق واعلمنى دمت بخير ترتيب وفرز بيانات ابو اياد الاسيوطى.rar تم تعديل سبتمبر 30, 2015 بواسطه ابو اياد ( الاسيوطى ) رابط هذا التعليق شارك More sharing options...
ابو اياد ( الاسيوطى ) قام بنشر أكتوبر 1, 2015 مشاركة قام بنشر أكتوبر 1, 2015 السلام عليكم عفوا بعد مراجعه الملف المرفق وجدته الحل القديم وهو غير صحيح تم ارفاق الملف الصحيح الان ارجو من الاداره استبدال مرفقى هذا بالمرفق الذى بالمشاركه اعلاه وألغاء هذه المشاركه بعد استبدال الملف المرفق شكرا ترتيب وفرز بيانات ابو اياد الاسيوطى التصحيح.rar 1 رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر أكتوبر 1, 2015 الكاتب مشاركة قام بنشر أكتوبر 1, 2015 شكر ابو اياد على اجتهاااااااااادك بارك الله فيك رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر أكتوبر 2, 2015 مشاركة قام بنشر أكتوبر 2, 2015 السلام عليكم هذا ملف شامل كما طلبت , يعمل مع كل الملفات من نوع csv طريقة الاستخدام 1/ افتح الملف المرفق (فرز وترتيب البيانات) 2/اكتب في العمود A (وابتداءا من السطر 2 ) اسم الملف من نوع csv الذي تريد فرز بياناته 3/ افتح الملف csv الذي حددته ثم اذهب إلى الملف المرفق (فرز وترتيب البيانات)واضغط الزر تحياتي ملاحظة ما ستكتبه في السطر الأول في هذا المرفق (فرز وترتيب البيانات) سيظهر في بداية الملفات المفروزة جرب المرفق فرز وترتيب البيانات.rar 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.