بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
4,431 -
تاريخ الانضمام
-
Days Won
191
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أ / محمد صالح
-
جميعا بإذن الله
-
قبل التحميل ومراجعة ملفك هل رابط الملف في جوجل درايف تمت مشاركته مع كل من يعرف الرابط أم انه خاص بمالكه فقط؟؟ ربما يكون هذا سبب الخطأ
-
السلام عليكم .. ضيف جديد بينكم
أ / محمد صالح replied to Aladdin TR's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
اهلا وسهلا نفع الله بكم -
الشكر لله وفقنا الله جميعا لكل خير
-
جميعا بإذن الله تعالى
-
بعد إذن جميع الأصدقاء المشاركين في هذا الموضوع الرائع هذا جهدي المتواضع لتحميل الملفات من جوجل درايف بنفس الاسم والامتداد فقط تحتاج رابط الملف كاملا وأن يكون الملف عاما (مشاركا مع الجميع) الكود يعالج مشكلة أسماء الملفات العربية صالح للنواتين 32بت وكذلك 64بت يعمل في كل التطبيقات التي تستعمل vba يوضع هذا الكود في موديول جديد Sub DownloadFromGD(GDriveURL As String) Dim myURL As String Dim FileID As String Dim xmlhttp As Object Dim name0 As Variant Dim oStream As Object FileID = Split(Split(GDriveURL, "/d/")(1), "/")(0) myURL = "http://drive.google.com/u/0/uc?id=" & FileID & "&export=download" Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.Open "GET", myURL, False xmlhttp.Send name0 = DECODEURL(xmlhttp.getResponseHeader("Content-Disposition")) If name0 = "" Then MsgBox "الملف غير موجود في الموقع" Exit Sub End If name0 = Split(name0, "*=UTF-8''")(1) 'split after *=UTF-8'' to get utf8 names If xmlhttp.Status = 200 Then Set oStream = CreateObject("ADODB.Stream") oStream.Open oStream.Type = 1 oStream.Write xmlhttp.responseBody oStream.SaveToFile CurrentProject.Path & "\" & name0, 2 ' 1 = no overwrite, 2 = overwrite oStream.Close End If Set xmlhttp = Nothing Set Stream = Nothing MsgBox "تم تحميل الملف في نفس مسار البرنامج باسم: " & name0 End Sub Function DECODEURL(varText As Variant) Static objHtmlfile As Object If objHtmlfile Is Nothing Then Set objHtmlfile = CreateObject("htmlfile") objHtmlfile.parentWindow.execScript "function decode(s) {return decodeURIComponent(s)}", "jscript" End If DECODEURL = objHtmlfile.parentWindow.decode(varText) End Function طريقة استخدام الكود مثل السطر المكتوب في الإجراء test أو يمكن وضعه عند الضغط على زر مثلا ويتكون هذا السطر من كتابة اسم الاجراء DpwnloadFromGD ثم رابط الملف المراد تحميله بين علامتي تنصيص ويمكن استخدام قيمة مربع النص بدلا من تثبيت رابط الموقع Sub test() DownloadFromGD "https://drive.google.com/file/d/18jrvTxgR1QTzwm8YaJHIvsdOmqj02L2x/view" End Sub ولا تنسوني من صالح دعائكم بالتوفيق للجميع
-
عليكم السلام سيتم الجمع بصورة تلقائية إذا تم إدراج الصفوف الجديدة قبل الصف الأخير (الذي قبل الإجمالي مباشرة) ولكي يتم ذلك نحدد الصف الثالث ثم نضغط كلك يمين ثم نختار إدراج insert وهكذا في كل إدراج بالتوفيق
-
كيفية اضافة شيت جديد باسم الموظف ورقمه باستخدام VBA
أ / محمد صالح replied to mmagedmemo's topic in منتدى الاكسيل Excel
بارك الله فيكم -
بإذن الله يفيدك هذا التعديل رغم اني كنت أتوقع وجود محاولة منكم في المعادلات البسيطة بالتوفيق حصر العجز والزيادة فى الحصص.xlsx
-
فورم المخزن والتعرف على تفعيل الماكرو واظهار المطور فيديو 1
أ / محمد صالح replied to مجدى يونس's topic in منتدى الاكسيل Excel
ما شاء الله رائع كعادتك صديقي -
مساعدة في الاكسل حذف بعض البيانات في الاعمدة
أ / محمد صالح replied to أبو ألين's topic in منتدى الاكسيل Excel
عليكم السلام ورحمة الله وبركاته كل خلية يوجد بها أكثر من بيان بينهما سطر جديد داخل نفس الخلية وبعض الخلايا تحتوي على سطرين و بعضها يحتوي على 3 سطور وبعضها يحتوي على 4 سطور وبعضها يحتوي على 5 سطور ويوجد تقريبا 6 سطور أيضا و بعضها يحتوي على سطر واحد فقط هل المطلوب جلب بيانات آخر سطر داخل الخلية يعني السطر الثاني في حالة وجود 2 والثالث في حالة وجود 3 وهكذا ؟؟؟ مع العلم ليست كل الخلايا في نفس الصف منضبطة في عدد السطور فمثلا الصف 17 أول 4 أعمدة يوجد في الخلية 4 سطور وفي العمودين 5 و 6 في نفس الصف نجد الخلية بها 5 سطور وهذا الاضطراب لا يسمح بضبط الأمر فأول خطوة للحصول على المطلوب هو ضبط عدد السطور في كل صف بالتوفيق -
الرابط الموجود في الحلية هو Mark Zuckerberg مرتبط بهذا العنوان https://www.facebook.com/zuck?__cft__[0]=AZXlg8B7EB-A_janTQ24MXbO6O1Hb-QgGF5Cr3gwhFX7gitPtdC7-iHeelnR7MI5YNDwu1-lqeTH1nQA7QiBm95wTU6uubcdaN2PQO1ACnnMAylE3u-iMm0U-ZmXKwy5LROzsgXi60fwx6BHoItpu7b7&__tn__=-UC%2CP-R والأفضل أن يتم نسخ الرابط إلى هذا الجزء فقط https://www.facebook.com/zuck وعند الضغط على الرابط من الكمبيوتر تم فتح إصدار سطح المكتب فقط ولا يفتح نافذة الموبايل بالتوفيق
-
تعبئة الخلايا الفارغة باسم العميل
أ / محمد صالح replied to Alaa El Din's topic in منتدى الاكسيل Excel
الشكر لله الذي وفقنا لهذا 👍🌹👍 -
تعبئة الخلايا الفارغة باسم العميل
أ / محمد صالح replied to Alaa El Din's topic in منتدى الاكسيل Excel
يمكنك استعمال هذا الكود sub fillblank() lr = cells(rows.count, 1).end(xlup).row for n=2 to lr if cells(n, 1).value <> "" then customer = cells(n, 1).value else cells(n, 1).value = customer end if next n msgbox "Done by mr-mas.com" end sub بالتوفيق -
يفضل إرفاق ملفك او مثال منه على العموم هذا مثال سريع إن شاء الله يكون المطلوب الخصم بناء على وقت الحضور.xlsx
-
تعديل فى صلاحيات زوار الموقع
أ / محمد صالح replied to محمد طاهر عرفه's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
خطوة موفقة بإذن الله -
امتداد الملف غير مدعوم في اكسل حيث أن تنسيقه لا يتناسب مع الامتداد ربما يكون مصدر هذا الملف هو برامج استعادة المحذوفات حيث أنها تخدع المستخدم بنفس اسم وامتداد الملف وحجمه لكنه لا يعمل ونسبة العمل بها قليلة جدا بالتوفيق
-
بعد إذن الجميع هذا ملفك بعد تصحيح الخطأ في الكود الخطأ في نقل الكود وليس الكود الأصلي وينتج هذا الخطأ عن عدم فهم دلالات الأرقام والمتغيرات في الكود بالتوفيق مجمع الشيتات.xlsm
-
جميعا بإذن الله
-
المشكلة الأولى تكمن في أن النص الموجودج في مربع النص هو نص string وليس مصفوفة array والحل mycols = Split(textbox2.value, ",") لتحويل النص إلى مصفوفة ولتحويل العنصر في المصفوفة من نص إلى رقم نستعمل int في هذا السطر a(ii + 1, j) = ws.Cells(i, Int(myCols(ii))).Value والمشكلة الثانية تكمن في أن الخلية الفارغة قيمتها صفر ولا يوجد عمود رقمه صفر والحل ألا توجد خلية فارغة وهذا ملفك بعد التعديل: لأنه في الغالب يوجد مشكلة في تطبيق المعلومة المستفادة من الإجابة بالتوفيق listbox dynamic.xlsb
-
الهدف من الموقع هو تبادل الخبرات والتعلم وليس تقديم برامج جاهزة للغير عليكم بدراسة الكود وتغيير العمودين ورقم البداية وعدد الصفوف أعلى صف البداية بالتوفيق
-
عدم السماح في العمود بكتابة رقم مكرر في نطاقين مختلفين
أ / محمد صالح replied to حراثي تواتي's topic in منتدى الاكسيل Excel
يمكنك استعمال التنسيق الشرطي بمعادلة مثل =OR(COUNTIF($F$6:$I$11,C6)>0,COUNTIF($L$14:$N$19,C6)>0) وتطبق على المدى المطلوب بالتوفيق عدم السماح بتكرار.xlsx- 1 reply
-
- 2