بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Content Count
4,796 -
Joined
-
Last visited
-
Days Won
57
عبدالله باقشير last won the day on August 7 2015
عبدالله باقشير had the most liked content!
Community Reputation
1,257 ExcellentAbout عبدالله باقشير

-
Rank
مراقب عام
- Birthday 12/04/1967
Profile Information
-
Gender (Ar)
ذكر
-
Job Title
خاص
-
Location
اليمن
Contact Methods
-
Website URL
http://www.officena.net/team/khboor/topics1.htm
-
khadouma started following عبدالله باقشير
-
على حسن started following عبدالله باقشير
-
علي بطيخ سالم started following عبدالله باقشير
-
yosif ahmad started following عبدالله باقشير
-
Saleh89 started following عبدالله باقشير
-
abomalk started following عبدالله باقشير
-
Nagwa Mohamed started following عبدالله باقشير
-
محمود سميح نصر started following عبدالله باقشير
-
جمال العمامي started following عبدالله باقشير
-
محمدفتحى started following عبدالله باقشير
-
اداة لتصوير وحفظ صورة من الشاشة مع اضافة شرح
عبدالله باقشير reviewed عبدالله باقشير's file in أدوات عامة
-
اداة لتصوير وحفظ صورة من الشاشة مع اضافة شرح
عبدالله باقشير reviewed عبدالله باقشير's file in أدوات عامة
-
التهنئة بترقية الأستاذ { ياسر خليل } إلي مشرف
عبدالله باقشير replied to حمادة عمر's topic in General Forum
السلام عليكم ورحمة الله وبركاته الف مبروك والى الامام دوما تستاهل اخي الحبيب كل خير تقبلوا تحياتي وشكري -
الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة
عبدالله باقشير replied to ياسر خليل أبو البراء's topic in MS Excel
السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري -
السلام عليكم جزاكم الله خيرا اخي الكريم ياسر ائراءا للموضوع بدون استخدام معادلات على الخلايا 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
-
هل من طريقة في التحكم في Scroll Bars الخاص Frame بمدى ديناميكي
عبدالله باقشير replied to الجموعي's topic in MS Excel
السلام عليكم اذا كان هناك تعليق على الخلية سيقوم باضافة قائمة وسيقوم باستخدام الاسم الموجود في التعليق لنطاق القائمة شاهد المرفق 2003 FrameScrollBars1.rar -
هل من طريقة في التحكم في Scroll Bars الخاص Frame بمدى ديناميكي
عبدالله باقشير replied to الجموعي's topic in MS Excel
الله يسلمك ...........جزاكم الله خير بالنسبة لسؤالك يمكنك تغيير الخاصية KeepScrollBarsVisible الى الخيار 0 (fmScrollBarsNone) اثناء التصميم تحياتي بارك الله فيك أستاذي العلامة القديرعلى هذه المساعدة ياريت إضافة للكود ماهي الطريقة لتغيير تكست بوكس إلى كمبوبوكس بخاصية إدارة الأسماء كما فعلت في ملفك كود بحث وتعديل مرن اريد كود سهل وسلس بعيد عند تلك الأكواد المعقدة مثلا في العمود الثالث في الفورم اريد ان يظهر كمبوبوكس مكان تكست بوكس وهكذا حسب إختياري للعمود جزاكم الله خيرا اذا كان هناك تعليق على الخلية سيقوم باضافة قائمة Private Sub UserForm_Activate() Dim Sh As -
هل من طريقة في التحكم في Scroll Bars الخاص Frame بمدى ديناميكي
عبدالله باقشير replied to الجموعي's topic in MS Excel
بارك الله فيك / العلامة عبد الله باقشير أولا وقبل كل شيء الحمد لله على سلامتك إن شاء الله ما أبعدك عنا غير الخير سعدت جدا بمرورك وتعديلك أستاذي ملاحظة بسيطه عند إنقاص البيانات من الأعمدة مثلا تركت 5 بياناات فقط السكرول بار يبقى ظاهر لكن خاصية التمرير لا تظهر هل من إضافة للكود بحيث اذا نقصت البيانات لا يظهر السكرول بار الله يسلمك ...........جزاكم الله خير بالنسبة لسؤالك يمكنك تغيير الخاصية KeepScrollBarsVisible الى الخيار 0 (fmScrollBarsNone) اثناء التصميم تحياتي -
هل من طريقة في التحكم في Scroll Bars الخاص Frame بمدى ديناميكي
عبدالله باقشير replied to الجموعي's topic in MS Excel
السلام عليكم جرب هذا 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 -
إلى أحباب العالم العلامة عبد الله باقشير
عبدالله باقشير replied to محمدي عبد السميع's topic in MS Excel
السلام عليكم جزاكم الله خيرا والف شكر لكل من سال عني ويهمه امري انا والحمد لله في صحة وعافية واتابع المنتدى حسب الاستطاعة والارادة ...جزاكم الله خيرا اكرر شكري وتقديري ودمتم في رعاية الله -
السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
- 22 replies
-
- 1
-
-
- كلاس
- بالملي ثانية
-
(and 2 more)
Tagged with:
-
عدل هذا السطر هكذا For iI = lLrw To 2 Step -1
-
السلام عليكم الشكر واصل للاخ ابو تراب............ حفظه الله وائراءا للموضوع ممكن استخدام هذا الكود التالي بدون تحديد اسماء للبوكس شيك ولا للخلايا تستدل بالخلايا بموضع الشيك بوكس 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
-
وعليكم السلام محاولة للإجابة على لغز جدول متحرك ضع هذه المعادلة في الخلية B4 ثتم إسحب الى الأسفل والى اليسار =IF(OR(ROW()-3>$J$2;COLUMN()-1>$K$2);"";((COLUMN()-2)*$J$2)+ROW()-3) تحياتي
-
هذا التعبير للعمود الثاني Me.ListFind.Column(1) وهذا للثالث Me.ListFind.Column(2) وهكذا ................. تحياتي