هادى محمد المامون سالم

بسم الله الرحمن الرحيم اخى إكسيلجي انت الان تنافس قريق الاهلى فى الارقام القياسيه اول مشاركه 29 تحميل 45 مشاهده فى وقت قياسى دون رد أو حتى كلمه شكر للاسف لا استطيع المشاركه لان الملف لم يعمل معى على أوفيس2007 ساحاول مشاهده الملف من جهاز اخر عليه اوفيس 2003 السلام عليكم

بسم الله الرحمن الرحيم قمت بالتعديل على ملفك الاصلى و اوجدت لك الحل بثلاثه طرق Lookup IF Select Case و بهذه المناسبه اتوجه بخالص شكرى و احترامى الى اخى ابو اسامة العينبوسي على مجهوده معنا فى المنتدى . السلام عليكم Lookup_if_Select.rar

بسم الله الرحمن الرحيم بصراحه معلومه جديده و مفيده مشكور اخى نزار السلام عليكم

بسم الله الرحمن الرحيم هذا الكود لتشغيل الماوس Sub Muse_Ok() Application.CommandBars("Cell").Enabled = True End Sub هذا الكود أيقاف الماوس Sub Muse_No() Application.CommandBars("Cell").Enabled = False End Sub مرفق ملف السلام عليكم Mouse_01.rar

بسم الله الرحمن الرحيم شاهد الملف المرفق السلام عليكم Sumif.rar

بسم الله الرحمن الرحيم لاستخراج الجزر التربيع =(A2)^2 لاستخراج الجزر التكعيبى =(A2)^3 وكذلك الاس 000000غير 3 الى ماتريد السلام عليكم

بسم الله الرحمن الرحيم شاهد الملف المرفق السلام عليكم Date_Dif.rar

بسم الله الرحمن الرحيم اذا اردت ربط ملفان اذهب الى الملف الذى تريد تعديل بياناته تلقائيه ثم اكتب = ثم اذهب الى الملف الاصلى و اضغت على الخليه ثم Enter ستتحدث البيانات تلقائيا السلام عليكم

بسم الله الرحمن الرحيم لاضافه عدد (1) شهر للتاريخ أستخدم هذا الكود للتعامل مع الخليه A1 =DATE(YEAR(A1);MONTH(A1)+1;DAY(A1)) السلام عليكم

بسم الله الرحمن الرحيم حتى تصدق كلامى القى نظره على هذه المشاركه http://www.officena.net/ib/index.php?showtopic=16093 السلام عليكم

بسم الله الرحمن الرحيم مبروك القسم الجديد و أقدم لكم هديتى الى قسم الأكسيس و البرامج الاخرى كود لربط الأكسيس مع VB.NET 2005عن طريق ADO مع أظهار البيانات على DataGridView أتمنى أن يعجبكم Public Class Form2 Dim conn As New OleDb.OleDbConnection Dim ds As DataSet Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load conn.ConnectionString = ("Provider = Microsoft.jet.oledb.4.0;Data Source=|DataDirectory|Test.mdb") FillData() End Sub Private Sub FillData() Dim SelectString As String SelectString = "Select * from T_ID" Dim Cmd As New OleDb.OleDbCommand(SelectString, conn) Dim SDA As New OleDb.OleDbDataAdapter(Cmd) ds = New DataSet SDA.Fill(ds) DataGridView1.DataSource = ds DataGridView1.DataMember = ds.Tables(0).TableName End Sub End Class مرفق ملف سيكون الملف التنفيذى exe باسم Application_Access طبعا فى المسار التالى بعد فك ضغط الملف Application_Access\Application_Access\bin\Debug الملف يحتاج Microsoft .NET Framework سيعمل معك اذا كنت منصب VB.NET 2005 سيعمل معك الملف بدون مشكله السلام عليكم Application_Access.rar

بسم الله الرحمن الرحيم ستجد شرح مفصل على هذا الرابط http://www.officena.net/ib/index.php?showtopic=12203 السلام عليكم

بسم الله الرحمن الرحيم اخى Enjoy : لازم اتابع قسم الاكسيس الممتع , و بعدين احنا جامدين فى الاكسيس , لكن يكفينى المتابعه وسط العباقره فى هذا القسم السلام عليكم

بسم الله الرحمن الرحيم للأرقام الفرديه استخدم هذا الكود : Sub SerSin() Dim cont As Integer cont = 1 For i = 1 To 13000 Sheet1.Cells(i, "A") = cont If Cells(i, "A") < 25000 Then cont = cont + 2 Else Cells(i, "A").Clear Exit Sub End If Next End Sub للأرقام الزوجيه استخدم هذا الكود : Sub SerDbl() Dim cont As Integer cont = 2 For i = 1 To 25000 Sheet1.Cells(i, "A") = cont If Cells(i, "A") < 25000 Then cont = cont + 2 Else Exit Sub End If Next End Sub ليكون الفرق 5 استخدم هذا الكود : Sub SerFive() Dim cont As Integer cont = 5 For i = 1 To 13000 Sheet1.Cells(i, "A") = cont If Cells(i, "A") < 25000 Then cont = cont + 5 Else Exit Sub End If Next End Sub السلام عليكم

بسم الله الرحمن الرحيم لحمايه جميع أوراق العمل استخدم الكود التالى : Sub mProtect() Dim cont As Integer Do Until cont = Sheets.Count cont = cont + 1 Sheets(cont).Protect (hady) Loop End Sub كلمه السر hady و لفك حمايه جميع أوراق العمل استخدم الكود التالى : Sub mUnprotect() Dim cont As Integer Do Until cont = Sheets.Count cont = cont + 1 Sheets(cont).Unprotect (hady) Loop End Sub مرفق ملف السلام عليكم Protect_01.rar

بسم الله الرحمن الرحيم جرب الكود التالى : Sub Serl() For i = 1 To 25000 Sheet1.Cells(i, "A") = i Next End Sub السلام عليكم

بسم الله الرحمن الرحيم جربوا الملف المرفق لمعرفه الالوان فى الاكسيل السلام عليكم Clr_01.rar

بسم الله الرحمن الرحيم تستطيع ان تعرض البيانات فى Combo Box و مصدر البيانات اكثر من عمود بهذا الكود Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ComboBox1.Clear Dim cont As Integer cont = 1 Do Until Cells(cont, 1) = "" ComboBox1.AddItem (Cells(cont, 1) & " | " & Cells(cont, 2)) cont = cont + 1 Loop End Sub مرفق ملف السلام عليكم ComboBoxFor2_01.rar

بسم الله الرحمن الرحيم اخى skyblue : جربت الملف و لم اجد مشاكل . و لكى تجعل صفحة الادخال فاضية بعد الترحيل استخدم الكود التالى : Sheets("ادخال").Range("B4:E19").ClearContents السلام عليكم

هذه المشاركه و جدتها بقسم الأكسيل فقمت بنقلها الى قسم الأكسيس هذا هو سبب مشاركتى

بسم الله الرحمن الرحيم أعتقد ان هذا الموضوع يخص الاكسيس السلام عليكم

بسم الله الرحمن الرحيم ارفقت لك طلبك الاخير السابق و لم ترد على ؟ لاستخرج رساله للخيار استخدم الكود التالى Sub mMsgBox() msg = MsgBox("Msg", vbYesNo, "Title") If msg = vbYes Then MsgBox "Yes" Else Exit Sub End If End Sub الأخ hofn لم أفهم المطلوب السلام عليكم

بسم الله الرحمن الرحيم شكرا اخى نزار على هذا المجهود السلام عليكم

بسم الله الرحمن الرحيم هذا الكود يقوم بأخفاء جميع الأوراق عند فتح الملف فيما عدا الورقه الرئيسيه و يجب أن تكون أول و رقه فى ترتيب الاوراق و يخفى الوصول الى أوراق العمل باسفل الشاشه Sub Auto_Open() Sheets(1).Select Application.ActiveWindow.DisplayWorkbookTabs = False Dim i As Integer For i = 2 To Sheets.Count Sheets(i).Visible = False Next End Sub وهذا الكود لاظهار الوصول الى أوراق العمل باسفل الشاشه عند أغلاق الملف Sub Auto_Colse() Application.ActiveWindow.DisplayWorkbookTabs = True End Sub و هذا كود الورقه الرئيسيه Sub Main() Sheets("الرئيسية").Select Dim i As Integer For i = 2 To Sheets.Count Sheets(i).Visible = False Next End Sub و هذا كود باقى الاوراق مع تغيير اسم الورقه Sub File1() Sheets("2ط1").Visible = True Sheets("2ط1").Select End Sub السلام عليكم

بسم الله الرحمن الرحيم أشترك معنا فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=15894 السلام عليكم