عبدالله باقشير

المراقبين
  • Content count

    4,796
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    57

عبدالله باقشير last won the day on August 7 2015

عبدالله باقشير had the most liked content!

السمعه بالموقع

1,107 Excellent

عن العضو عبدالله باقشير

  • الرتبه
    مراقب عام
  • تاريخ الميلاد 04 ديس, 1967

Profile Information

  • Job Title
    خاص
  • Location
    اليمن

Contact Methods

  • Website URL
    http://www.officena.net/team/khboor/topics1.htm

اخر الزوار

13,068 زياره للملف الشخصي
  1. السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
  2. السلام عليكم جزاكم الله خيرا اخي الكريم ياسر ائراءا للموضوع بدون استخدام معادلات على الخلايا Sub kh_Start() Dim obj Dim Lr As Integer, iRnd As Integer, i As Integer Lr = Cells(Rows.Count, "A").End(xlUp).Row - 1 '======================================== Set obj = CreateObject("Scripting.Dictionary") '======================================== Do iRnd = Int((Rnd * Lr) + 1) If Not obj.Exists(iRnd) Then i = i + 1 obj.Add iRnd, i Range("F2").Cells(i, 1).Resize(1, 2).Value = Range("A2").Cells(iRnd, 1).Resize(1, 2).Value End If If i = 10 Then Exit Do Loop Set obj = Nothing End Sub المرفق 2003 Random word Generator2.rar
  3. السلام عليكم اذا كان هناك تعليق على الخلية سيقوم باضافة قائمة وسيقوم باستخدام الاسم الموجود في التعليق لنطاق القائمة شاهد المرفق 2003 FrameScrollBars1.rar
  4. الله يسلمك ...........جزاكم الله خير بالنسبة لسؤالك يمكنك تغيير الخاصية KeepScrollBarsVisible الى الخيار 0 (fmScrollBarsNone) اثناء التصميم تحياتي بارك الله فيك أستاذي العلامة القديرعلى هذه المساعدة ياريت إضافة للكود ماهي الطريقة لتغيير تكست بوكس إلى كمبوبوكس بخاصية إدارة الأسماء كما فعلت في ملفك كود بحث وتعديل مرن اريد كود سهل وسلس بعيد عند تلك الأكواد المعقدة مثلا في العمود الثالث في الفورم اريد ان يظهر كمبوبوكس مكان تكست بوكس وهكذا حسب إختياري للعمود جزاكم الله خيرا اذا كان هناك تعليق على الخلية سيقوم باضافة قائمة Private Sub UserForm_Activate() Dim Sh As Worksheet Dim txt As MSForms.Control Dim LastCol As Integer, i As Integer Set Sh = ThisWorkbook.Sheets(1) LastCol = Sh.Cells(2, Sh.Columns.Count).End(xlToLeft).Column MyTop = 10 For i = 1 To LastCol If Not Sh.Cells(2, i).Comment Is Nothing Then Set txt = Frame1.Controls.Add("Forms.Combobox.1", "MyTxt" & i) Else Set txt = Frame1.Controls.Add("Forms.TextBox.1", "MyTxt" & i) End If With txt .Move 20, MyTop, 114, 24 .Text = Sh.Cells(2, i) .SpecialEffect = fmSpecialEffectSunken .TextAlign = fmTextAlignCenter .BackColor = &HFFFFFF End With MyTop = MyTop + 30 Next Me.Frame1.ScrollHeight = MyTop End Sub المرفق 2003
  5. بارك الله فيك / العلامة عبد الله باقشير أولا وقبل كل شيء الحمد لله على سلامتك إن شاء الله ما أبعدك عنا غير الخير سعدت جدا بمرورك وتعديلك أستاذي ملاحظة بسيطه عند إنقاص البيانات من الأعمدة مثلا تركت 5 بياناات فقط السكرول بار يبقى ظاهر لكن خاصية التمرير لا تظهر هل من إضافة للكود بحيث اذا نقصت البيانات لا يظهر السكرول بار الله يسلمك ...........جزاكم الله خير بالنسبة لسؤالك يمكنك تغيير الخاصية KeepScrollBarsVisible الى الخيار 0 (fmScrollBarsNone) اثناء التصميم تحياتي
  6. السلام عليكم جرب هذا Private Sub UserForm_Activate() Dim Sh As Object Dim LastCol, i As Integer Set Sh = ThisWorkbook.Sheets(1) LastCol = Cells(2, Sh.Columns.Count).End(xlToLeft).Column MyTop = 10 For i = 1 To LastCol Set txt = Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) With txt .Text = Cells(2, i) .SpecialEffect = fmSpecialEffectSunken .TextAlign = fmTextAlignCenter .Top = MyTop .Left = 20 .Height = 24 .Width = 114 .BackColor = &HFFFFFF End With MyTop = MyTop + 30 Next Me.Frame1.ScrollHeight = MyTop End Sub
  7. السلام عليكم جزاكم الله خيرا والف شكر لكل من سال عني ويهمه امري انا والحمد لله في صحة وعافية واتابع المنتدى حسب الاستطاعة والارادة ...جزاكم الله خيرا اكرر شكري وتقديري ودمتم في رعاية الله
  8. السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
  9. عدل هذا السطر هكذا For iI = lLrw To 2 Step -1
  10. السلام عليكم الشكر واصل للاخ ابو تراب............ حفظه الله وائراءا للموضوع ممكن استخدام هذا الكود التالي بدون تحديد اسماء للبوكس شيك ولا للخلايا تستدل بالخلايا بموضع الشيك بوكس Sub kh_UpdateBoxes() Dim tx As String On Error Resume Next With Sheet1.Shapes(Application.Caller) If .ControlFormat.Value = 1 Then tx = "*" Else tx = "" .TopLeftCell.Offset(1, 0).Value = tx End With On Error GoTo 0 End Sub المرفق 2010 تشيك بوكس.rar
  11. وعليكم السلام محاولة للإجابة على لغز جدول متحرك ضع هذه المعادلة في الخلية B4 ثتم إسحب الى الأسفل والى اليسار =IF(OR(ROW()-3>$J$2;COLUMN()-1>$K$2);"";((COLUMN()-2)*$J$2)+ROW()-3) تحياتي
  12. هذا التعبير للعمود الثاني Me.ListFind.Column(1) وهذا للثالث Me.ListFind.Column(2) وهكذا ................. تحياتي
  13. السلام عليكم http://www.officena.net/ib/index.php?showtopic=14415