نجوم المشاركات

استبدل الكود بالكود التالي Dim strDirectoryPath As String strDirectoryPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "Excel" If Dir(strDirectoryPath, vbDirectory) = "" Then MkDir strDirectoryPath Output_Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "Excel" & "\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & ".xlsx" DoCmd.OutputTo acOutputQuery, "q1", "ExcelWorkbook(*.xlsx)", Output_Path, False, "", , acExportQualityPrint MsgBox "تم عملية انشاء المجلد باسم(Excel) مع تصدير الملف", vbInformation, " OK " تحياتي

قد تساعدك هذه القاعدة من تصميم الاخوة بالمنتدى لا اتذكر الاسم db2.mdb

السلام عليكم اخوتي الكرام محتاج مثال لكود vba لإنشاء جدول وتحديد نوع الحقول ( رقم - نص - تاريخ -) وخاصة الحقل من النوع yes/no جزاكم الله كل خير

كل المحبة والاحترام منكم نستفيد صديقي

تفضل <<<<<<<<<>>>>>>>>> Dim strSQL1 As String strSQL1 = "CREATE TABLE [kanory] ([ProductID] AUTOINCREMENT,[ProductName] TEXT(40) NOT NULL,[SupplierID] LONG,[BirthDate] DATETIME,[CategoryID] LONG,[QuantityPerUnit] TEXT(20),[UnitPrice] CURRENCY,[UnitsInStock] SMALLINT,[UnitsOnOrder] SMALLINT,[ReorderLevel] SMALLINT,[Discontinued] BIT NOT NULL,CONSTRAINT [PrimaryKey] PRIMARY KEY ([ProductID]));" DoCmd.RunSQL strSQL1 اسف اخي الكريم @عبد اللطيف سلوم يبدو ان المشاركيتن في في الوقت .... لكن الطريقتين مختلفتين للفائدة .....

جزاك الله خيرا استاذ محمد

يمكنك استعمال هذه المعادلة في الخلية A2 =TRANSPOSE(OFFSET(Coffee!$C$2,(ROW()-2)*8,0,8,1)) مع نسخ المعادلة لأسفل بالتوفيق

الملف المرفق يعمل بدون مشاكل راجع هذا ربما تكون المشكلة في تنسيق التاريخ بين الويندوز والاكسل حيث يجب توافق الاثنين معا TEST_3.xlsx

يفضل إرفاق ملفك أو الجزء الذي يخص المشكلة لأن هذه حالة فردية تخص حضرتك

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

شكرا لكم استاذ على دعمكم الله لايحرمنا منكم

حياكم الله اخي العزيز كما تفضل الاستاذ الفاضل محمد صالح جزاه الله خيرا الموقع تعليمي لذلك وجب عليك التعلم حتى تكمل مشوارك بتعلم الاكسل بالشكل الصحيح حاول مرة او اثنتين ستجد ان الامور ابسط مما تتصور لكم تحياتي

هذا ما قلته سابقا وأعيده الآن تصميم الصفحة أولا ثم وضع المعادلات ثانيا وقد تم تصميم الصفحة وساعدك الزميل في وضع معادلات البحث فهل نسخ المعادلات إلى أماكنها في التصميم الجديد مشكلة يصعب حلها لدرجة الاستعانة بصديق لعملها بدلا منا ؟؟؟؟؟؟ أعتقد هذه سلوكيات لا تساعد على التعلم

يمكنك استعمال هذا الكود عند تغيير كومبوكس2 Private Sub ComboBox2_Change() Dim i As Long, lastrow As Long, ws As Worksheet Set ws = Sheets("بيان") lastrow = ws.Range("e" & Rows.Count).End(xlUp).Row Me.TextBox1.Value = "" For i = 2 To lastrow If Me.ComboBox2.Value = ws.Cells(i, "e") And Evaluate("=EDATE(" & CDbl(CDate(Me.ComboBox1.Value)) & ",-1)") = CDate(ws.Cells(i, "d")) Then Me.TextBox1.Value = ws.Cells(i, "g").Value End If Next i End Sub ولا تنس أن تحذف الخلايا التي بها الشرح في الصف 12 و 13 بالتوفيق

لكي يتم وضع الصورة في النموذج يجب أن يتم استعراض الملفات وتحديدها فلماذا نريد طباعتها بعد وضعها في النموذج الأولى طباعتها من مسارها الأصلي إلا إذا كان مصدر الصورة ليس على الجهاز والهدف هو استخراجها مرة أخرى على كل حال يمكنك استعمال هذا الكود في الزر Private Sub CommandButton1_Click() Dim image_path image_path = CreateObject("scripting.filesystemobject").GetSpecialFolder(2).Path & "\mas.bmp" SavePicture Image1.Picture, image_path If MsgBox("هل تريد طباعة الصورة الآن؟", vbYesNo) = vbNo Then Exit Sub Call apiShellExecute(Application.hwnd, "print", image_path, vbNullString, vbNullString, 0) End Sub بالتوفيق

باستعمال دالة if مع دالة and إذا كانت الخلية التي بها العمر بالعام أكبر من أو يساوي 3 وأيضا الخلية التي بها العمر بالشهور أكبر من أو يساوي 6 تكون قيمة الخلية kg1 وهكذا بالتوفيق

أتمنى أن يكون الملف المرفق مفيد للجميع _______.zip

أليك أخى ماطلبت جمع الأرقام داخل الخلية.rar

السلام عليكم جرب هكذا انشاء مودويل والصق الدالة المركبة التاليه فيه Public Function Ali_Sum(Rn As Range) As Currency On Error Resume Next Application.Volatile Cr = Chr(10): Vl = Split(Rn.Value, Cr) For ii = LBound(Vl) To UBound(Vl) x = x + Val(Vl(ii)) Next Ali_Sum = x On Error GoTo 0 End Function بعدها استخدمها في خلية الجمع كالتالي =Ali_Sum(A1)