الصفتى

أغسطس 27, 2021

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

مرفق نموزج العملتجربة.xlsb

أغسطس 24, 2021

جزاك الله خيرا

أغسطس 24, 2021

تسلم ايديك هو اعاد الترحيل بالميلادى و لكنه لغى اظهار التاريخ الهجرى على الفورم ايضا هل هناك امكانية لاظهراه دون التاثير على الترحيل

أغسطس 24, 2021

عند استخدام الكود لكتابة التاريخ الهجرى في ليبل في الفورم فانه يجعل ترحيل البيانات تتم بالهجرى أيضا و ليس الميلادى

()Private Sub UserForm_Activat 
L1.Caption = "date :" & Format(Date, "ddd dd mmm yyyy")
 VBA.Calendar = vbCalHijri
L2.Caption = "date hijri:" & Format(Date, "ddd dd mmm yyyy")
Do
L3.Caption = Now
DoEvents
End Sub

TEST.xlsb

أغسطس 21, 2021

البحث عن رقم العقد الموجود بالفورم في SHEET1 ثم ترحيل القيمة الموجوده في تكست بوكس 4 و التاريخ الموجود في تكست بوكس7فى ااول خليه فارغه في النطاق من T : Atمع عدم فتح SHEET1
TEST.xlsb

أغسطس 19, 2021

جزاك الله خيرا تمت بنجاح

أغسطس 19, 2021

الساده الافاضل كيف يمكن التغلب على هذا التحدى و جعل الترحيل يكون على اول صف فارغ داخل الجدول و هذه هى بداية الكود

Dim LastRow As Long
lastrow = thisworkbook.sheets("xx").range("g1000000").End(xlUp).Row
LastRow = LastRow + 1

أغسطس 18, 2021

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

أغسطس 18, 2021

السادة الخبراء تحية طيبة و بعد هل ممكن المساعدة فى هذا الطلب

كيفية ادراج قيمة أخر خلية موجودة بعمود فى Textbox بالفورم

بفرض العمود E و الشيت الموجود به اسمه ليدجر

أغسطس 14, 2021

السادة الخبراء الافاضل لدى تحدى فى كود ترحيل و هو انه فى حالة وجود تكست بوكس مخصص للتاريخ فارغ فان الكود لا يعمل مع العلم ان الفورم يحتوى على العديد من التكست بوكس المخصصه و احيانا لا تكون جميعها مكتملة -- مرفق جزء من الكود

Dim lastRow As Long
lastRow = ThisWorkbook.sheets("SCREEN").Range("G1000000").End(xlUp).Row
lastRow = lastRow + 1
Application.ScreenUpdating = False
With ThisWorkbook.sheets("SCREEN")
.Range("G" & lastRow).Value = TXT1.Value
.Range("H" & lastRow).Value = CDate(TXT2)
.Range("I" & lastRow).Value = Txt16.Value
.Range("J" & lastRow).Value = Txt14.Value
.Range("K" & lastRow).Value = Txt15.Value
.Range("L" & lastRow).Value = Txt7.Value
.Range("M" & lastRow).Value = Txt8.Value
.Range("N" & lastRow).Value = Txt9.Value
.Range("O" & lastRow).Value = CDate(Txt12)

و استخدمت CDATE لحل مشكلة ان التاريخ كان يرحل بصيغه مختلفه فظهرت لى مشكلة انه يرفض التكست بوكس الفارغه
و لكم جزيل الشكر

أغسطس 9, 2021

تمام حجرب و اعلم حضرتك بالنتيجة شكرا جزيلا

أغسطس 9, 2021

انا فهمت قصد حضرتك فى ترتيب عناصر التحكم لكن التحدى ان الاعمدة التى سترحل عليها البيانات ليست متتالية فى فى الوسط اعمده لا يرحل لها شىء لاحتوائها على معادلات على حسب ما فهمت من الكود انه حيرحل من عناصر تحكم متتالية الى اعمدة فى قاعدة البيانات متتالية ايضا

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

أغسطس 9, 2021

شكرا على تعبك معايا بس للاسف صعب اعدل فى قاعدة البيانات لان الفراغات بين الاعمدة مرتبطة بمعادلات

أغسطس 9, 2021

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

أغسطس 9, 2021

عند تجربة الكود اعطانى خطأ فى السطر الاتى من الكود

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

أغسطس 8, 2021

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

Private Sub CommandButton6_Click()
answer =  MsgBox ("هل متاكد من تعديل البيانات", vbQuestion + vbYesNo + vbDefaultButton2, "تاكيد التعديل")
If answer = vbYes Then
Dim rng1 As Range
Dim str_search As String
str_search = Txt3.Value
ThisWorkbook.Sheets("ليدجر").Activate
Set rng1 = Sheets("ليدجر").Range("E:E").Find(str_search, , xlValues, xlWhole)
If Not rng1 Is Nothing Then
rng1.Select
Dim row_number As Long
row_number = ActiveCell.Row
Application.ScreenUpdating = False
Sheets("ليدجر").Range("F" & row_number).Value = Txt29.Value
Sheets("ليدجر").Range("G" & row_number).Value = TXT1.Value
Sheets("ليدجر").Range("H" & row_number).Value = TXT2.Value
Sheets("ليدجر").Range("I" & row_number).Value = Txt16.Value
Sheets("ليدجر").Range("J" & row_number).Value = Txt14.Value
Sheets("ليدجر").Range("K" & row_number).Value = Txt15.Value
Sheets("ليدجر").Range("L" & row_number).Value = Txt7.Value
Sheets("ليدجر").Range("M" & row_number).Value = Txt7.Value
Sheets("ليدجر").Range("N" & row_number).Value = Txt7.Value
Sheets("ليدجر").Range("O" & row_number).Value = Txt12.Value
Sheets("ليدجر").Range("P" & row_number).Value = Txt11.Value
Sheets("ليدجر").Range("Q" & row_number).Value = Txt21.Value
Sheets("ليدجر").Range("R" & row_number).Value = Txt4.Value
Sheets("ليدجر").Range("S" & row_number).Value = Txt10.Value
Sheets("ليدجر").Range("T" & row_number).Value = Txt13.Value
Sheets("ليدجر").Range("U" & row_number).Value = Txt5.Value
Sheets("ليدجر").Range("V" & row_number).Value = Txt6.Value
Sheets("ليدجر").Range("W" & row_number).Value = Txt38.Value
Sheets("ليدجر").Range("X" & row_number).Value = Txt32.Value
Sheets("ليدجر").Range("Y" & row_number).Value = Txt33.Value
Sheets("ليدجر").Range("Z" & row_number).Value = Txt36.Value
Sheets("ليدجر").Range("AA" & row_number).Value = Txt17.Value
Sheets("ليدجر").Range("AB" & row_number).Value = Txt18.Value
Sheets("ليدجر").Range("AC" & row_number).Value = Txt19.Value
Sheets("ليدجر").Range("AD" & row_number).Value = Txt20.Value
Sheets("ليدجر").Range("AS" & row_number).Value = Txt31.Value
Sheets("ليدجر").Range("AU" & row_number).Value = Txt22.Value
Sheets("ليدجر").Range("AV" & row_number).Value = Txt23.Value
Sheets("ليدجر").Range("AW" & row_number).Value = Txt24.Value
Sheets("ليدجر").Range("AX" & row_number).Value = Txt25.Value
Sheets("ليدجر").Range("AY" & row_number).Value = Txt26.Value
Sheets("ليدجر").Range("AZ" & row_number).Value = Txt27.Value
Sheets("ليدجر").Range("AT" & row_number).Value = Txt28.Value
Sheets("ليدجر").Range("BB" & row_number).Value = Txt34.Value
Sheets("ليدجر").Range("BC" & row_number).Value = Txt35.Value
Sheets("ليدجر").Range("BD" & row_number).Value = Txt30.Value
Sheets("ليدجر").Range("EA" & row_number).Value = S2.Value
Sheets("ليدجر").Range("KJ" & row_number).Value = S4.Value
Sheets("ليدجر").Range("JX" & row_number).Value = Txt37.Value
Sheets("ليدجر").Range("EE" & row_number).Value = C1.Value
Sheets("ليدجر").Range("EF" & row_number).Value = A1.Value
Sheets("ليدجر").Range("EG" & row_number).Value = C2.Value
Sheets("ليدجر").Range("EH" & row_number).Value = A2.Value
Sheets("ليدجر").Range("EI" & row_number).Value = C3.Value
Sheets("ليدجر").Range("EJ" & row_number).Value = A3.Value
Sheets("ليدجر").Range("EK" & row_number).Value = C4.Value
Sheets("ليدجر").Range("EL" & row_number).Value = A4.Value
Sheets("ليدجر").Range("EM" & row_number).Value = C5.Value
Sheets("ليدجر").Range("EN" & row_number).Value = A5.Value
Sheets("ليدجر").Range("EO" & row_number).Value = C6.Value
Sheets("ليدجر").Range("EP" & row_number).Value = A6.Value
Sheets("ليدجر").Range("EQ" & row_number).Value = C7.Value
Sheets("ليدجر").Range("ER" & row_number).Value = A7.Value
Sheets("ليدجر").Range("ES" & row_number).Value = c8.Value
Sheets("ليدجر").Range("ET" & row_number).Value = A8.Value
Sheets("ليدجر").Range("EU" & row_number).Value = c9.Value
Sheets("ليدجر").Range("EV" & row_number).Value = A9.Value
Sheets("ليدجر").Range("EW" & row_number).Value = c10.Value
Sheets("ليدجر").Range("EX" & row_number).Value = A10.Value
Sheets("ليدجر").Range("EY" & row_number).Value = c11.Value
Sheets("ليدجر").Range("EZ" & row_number).Value = A11.Value
Sheets("ليدجر").Range("FA" & row_number).Value = c12.Value
Sheets("ليدجر").Range("FB" & row_number).Value = A12.Value
Sheets("ليدجر").Range("FC" & row_number).Value = c13.Value
Sheets("ليدجر").Range("FD" & row_number).Value = A13.Value
Sheets("ليدجر").Range("FE" & row_number).Value = C14.Value
Sheets("ليدجر").Range("FF" & row_number).Value = A14.Value
Sheets("ليدجر").Range("FG" & row_number).Value = C15.Value
Sheets("ليدجر").Range("FH" & row_number).Value = A15.Value
Sheets("ليدجر").Range("FI" & row_number).Value = c16.Value
Sheets("ليدجر").Range("FJ" & row_number).Value = A16.Value
Sheets("ليدجر").Range("FK" & row_number).Value = c17.Value
Sheets("ليدجر").Range("FL" & row_number).Value = A17.Value
Sheets("ليدجر").Range("FM" & row_number).Value = c18.Value
Sheets("ليدجر").Range("FN" & row_number).Value = A18.Value
Sheets("ليدجر").Range("FO" & row_number).Value = c19.Value
Sheets("ليدجر").Range("FP" & row_number).Value = A19.Value
Sheets("ليدجر").Range("FQ" & row_number).Value = c20.Value
Sheets("ليدجر").Range("FR" & row_number).Value = A20.Value
Sheets("ليدجر").Range("FS" & row_number).Value = c21.Value
Sheets("ليدجر").Range("FT" & row_number).Value = A21.Value
Sheets("ليدجر").Range("FU" & row_number).Value = C22.Value
Sheets("ليدجر").Range("FV" & row_number).Value = A22.Value
Sheets("ليدجر").Range("FW" & row_number).Value = c23.Value
Sheets("ليدجر").Range("FX" & row_number).Value = A23.Value
Sheets("ليدجر").Range("FY" & row_number).Value = c24.Value
Sheets("ليدجر").Range("FZ" & row_number).Value = A24.Value
Sheets("ليدجر").Range("GA" & row_number).Value = c25.Value
Sheets("ليدجر").Range("GB" & row_number).Value = A25.Value
Sheets("ليدجر").Range("GC" & row_number).Value = c26.Value
Sheets("ليدجر").Range("GD" & row_number).Value = A26.Value
Sheets("ليدجر").Range("GE" & row_number).Value = c27.Value
Sheets("ليدجر").Range("GF" & row_number).Value = A27.Value
Sheets("ليدجر").Range("GG" & row_number).Value = c28.Value
Sheets("ليدجر").Range("GH" & row_number).Value = A28.Value
Sheets("ليدجر").Range("GI" & row_number).Value = C29.Value
Sheets("ليدجر").Range("GJ" & row_number).Value = A29.Value
Sheets("ليدجر").Range("GK" & row_number).Value = C30.Value
Sheets("ليدجر").Range("GL" & row_number).Value = A30.Value
Sheets("ليدجر").Range("BG" & row_number).Value = D2.Value
Sheets("ليدجر").Range("BH" & row_number).Value = H2.Value
Sheets("ليدجر").Range("BI" & row_number).Value = D3.Value
Sheets("ليدجر").Range("BJ" & row_number).Value = H3.Value
Sheets("ليدجر").Range("BK" & row_number).Value = D4.Value
Sheets("ليدجر").Range("BL" & row_number).Value = H4.Value
Sheets("ليدجر").Range("BM" & row_number).Value = D5.Value
Sheets("ليدجر").Range("BN" & row_number).Value = H5.Value
Sheets("ليدجر").Range("BO" & row_number).Value = D6.Value
Sheets("ليدجر").Range("BP" & row_number).Value = H6.Value
Sheets("ليدجر").Range("BQ" & row_number).Value = D7.Value
Sheets("ليدجر").Range("BR" & row_number).Value = H7.Value
Sheets("ليدجر").Range("BS" & row_number).Value = D8.Value
Sheets("ليدجر").Range("BT" & row_number).Value = H8.Value
Sheets("ليدجر").Range("BU" & row_number).Value = D9.Value
Sheets("ليدجر").Range("BV" & row_number).Value = H9.Value
Sheets("ليدجر").Range("BW" & row_number).Value = D10.Value
Sheets("ليدجر").Range("BX" & row_number).Value = H10.Value
Sheets("ليدجر").Range("BY" & row_number).Value = D11.Value
Sheets("ليدجر").Range("BZ" & row_number).Value = H11.Value
Sheets("ليدجر").Range("CA" & row_number).Value = D12.Value
Sheets("ليدجر").Range("CB" & row_number).Value = H12.Value
Sheets("ليدجر").Range("CC" & row_number).Value = D13.Value
Sheets("ليدجر").Range("CD" & row_number).Value = H13.Value
Sheets("ليدجر").Range("CE" & row_number).Value = D14.Value
Sheets("ليدجر").Range("CF" & row_number).Value = H14.Value
Sheets("ليدجر").Range("CG" & row_number).Value = D15.Value
Sheets("ليدجر").Range("CH" & row_number).Value = H15.Value
Sheets("ليدجر").Range("CI" & row_number).Value = D16.Value
Sheets("ليدجر").Range("CJ" & row_number).Value = H16.Value
Sheets("ليدجر").Range("CK" & row_number).Value = D17.Value
Sheets("ليدجر").Range("CL" & row_number).Value = H17.Value
Sheets("ليدجر").Range("CM" & row_number).Value = D18.Value
Sheets("ليدجر").Range("CN" & row_number).Value = H18.Value
Sheets("ليدجر").Range("CO" & row_number).Value = D19.Value
Sheets("ليدجر").Range("CP" & row_number).Value = H19.Value
Sheets("ليدجر").Range("CQ" & row_number).Value = D20.Value
Sheets("ليدجر").Range("CR" & row_number).Value = H20.Value
Sheets("ليدجر").Range("CS" & row_number).Value = D21.Value
Sheets("ليدجر").Range("CT" & row_number).Value = H21.Value
Sheets("ليدجر").Range("CU" & row_number).Value = D22.Value
Sheets("ليدجر").Range("CV" & row_number).Value = H22.Value
Sheets("ليدجر").Range("CW" & row_number).Value = D23.Value
Sheets("ليدجر").Range("CX" & row_number).Value = H23.Value
Sheets("ليدجر").Range("CY" & row_number).Value = D24.Value
Sheets("ليدجر").Range("CZ" & row_number).Value = H24.Value
Sheets("ليدجر").Range("DA" & row_number).Value = D25.Value
Sheets("ليدجر").Range("DB" & row_number).Value = H25.Value
Sheets("ليدجر").Range("DC" & row_number).Value = D26.Value
Sheets("ليدجر").Range("DD" & row_number).Value = H26.Value
Sheets("ليدجر").Range("DE" & row_number).Value = D27.Value
Sheets("ليدجر").Range("DF" & row_number).Value = H27.Value
Sheets("ليدجر").Range("DG" & row_number).Value = D28.Value
Sheets("ليدجر").Range("DH" & row_number).Value = H28.Value
Sheets("ليدجر").Range("DI" & row_number).Value = D29.Value
Sheets("ليدجر").Range("DJ" & row_number).Value = H29.Value
Sheets("ليدجر").Range("DK" & row_number).Value = D30.Value
Sheets("ليدجر").Range("DL" & row_number).Value = H30.Value

'لو هناك زر اختيار ضع الكود الخاص به اسفل التعليق
'كود مسح البيانات

Me.Txt29.Value = ""
Me.TXT1.Value = ""
Me.TXT2.Value = ""
Me.Txt16.Value = ""
Me.Txt14.Value = ""
Me.Txt15.Value = ""
Me.Txt7.Value = ""
Me.Txt8.Value = ""
Me.Txt9.Value = ""
Me.Txt12.Value = ""
Me.Txt11.Value = ""
Me.Txt21.Value = ""
Me.Txt4.Value = ""
Me.Txt10.Value = ""
Me.Txt13.Value = ""
Me.Txt5.Value = ""
Me.Txt6.Value = ""
Me.Txt38.Value = ""
Me.Txt32.Value = ""
Me.Txt33.Value = ""
Me.Txt36.Value = ""
Me.Txt17.Value = ""
Me.Txt18.Value = ""
Me.Txt19.Value = ""
Me.Txt20.Value = ""
Me.Txt31.Value = ""
Me.Txt22.Value = ""
Me.Txt23.Value = ""
Me.Txt24.Value = ""
Me.Txt25.Value = ""
Me.Txt26.Value = ""
Me.Txt27.Value = ""
Me.Txt28.Value = ""
Me.Txt34.Value = ""
Me.Txt35.Value = ""
Me.Txt30.Value = ""
Me.S2.Value = ""
Me.S4.Value = ""
Me.Txt37.Value = ""
Me.C1.Value = ""
Me.A1.Value = ""
Me.C2.Value = ""
Me.A2.Value = ""
Me.C3.Value = ""
Me.A3.Value = ""
Me.C4.Value = ""
Me.A4.Value = ""
Me.C5.Value = ""
Me.A5.Value = ""
Me.C6.Value = ""
Me.A6.Value = ""
Me.C7.Value = ""
Me.A7.Value = ""
Me.c8.Value = ""
Me.A8.Value = ""
Me.c9.Value = ""
Me.A9.Value = ""
Me.c10.Value = ""
Me.A10.Value = ""
Me.c11.Value = ""
Me.A11.Value = ""
Me.c12.Value = ""
Me.A12.Value = ""
Me.c13.Value = ""
Me.A13.Value = ""
Me.C14.Value = ""
Me.A14.Value = ""
Me.C15.Value = ""
Me.A15.Value = ""
Me.c16.Value = ""
Me.A16.Value = ""
Me.c17.Value = ""
Me.A17.Value = ""
Me.c18.Value = ""
Me.A18.Value = ""
Me.c19.Value = ""
Me.A19.Value = ""
Me.c20.Value = ""
Me.A20.Value = ""
Me.c21.Value = ""
Me.A21.Value = ""
Me.C22.Value = ""
Me.A22.Value = ""
Me.c23.Value = ""
Me.A23.Value = ""
Me.c24.Value = ""
Me.A24.Value = ""
Me.c25.Value = ""
Me.A25.Value = ""
Me.c26.Value = ""
Me.A26.Value = ""
Me.c27.Value = ""
Me.A27.Value = ""
Me.c28.Value = ""
Me.A28.Value = ""
Me.C29.Value = ""
Me.A29.Value = ""
Me.C30.Value = ""
Me.A30.Value = ""
Me.D1.Value = ""
Me.H1.Value = ""
Me.D2.Value = ""
Me.H2.Value = ""
Me.D3.Value = ""
Me.H3.Value = ""
Me.D4.Value = ""
Me.H4.Value = ""
Me.D5.Value = ""
Me.H5.Value = ""
Me.D6.Value = ""
Me.H6.Value = ""
Me.D7.Value = ""
Me.H7.Value = ""
Me.D8.Value = ""
Me.H8.Value = ""
Me.D9.Value = ""
Me.H9.Value = ""
Me.D10.Value = ""
Me.H10.Value = ""
Me.D11.Value = ""
Me.H11.Value = ""
Me.D12.Value = ""
Me.H12.Value = ""
Me.D13.Value = ""
Me.H13.Value = ""
Me.D14.Value = ""
Me.H14.Value = ""
Me.D15.Value = ""
Me.H15.Value = ""
Me.D16.Value = ""
Me.H16.Value = ""
Me.D17.Value = ""
Me.H17.Value = ""
Me.D18.Value = ""
Me.H18.Value = ""
Me.D19.Value = ""
Me.H19.Value = ""
Me.D20.Value = ""
Me.H20.Value = ""
Me.D21.Value = ""
Me.H21.Value = ""
Me.D22.Value = ""
Me.H22.Value = ""
Me.D23.Value = ""
Me.H23.Value = ""
Me.D24.Value = ""
Me.H24.Value = ""
Me.D25.Value = ""
Me.H25.Value = ""
Me.D26.Value = ""
Me.H26.Value = ""
Me.D27.Value = ""
Me.H27.Value = ""
Me.D28.Value = ""
Me.H28.Value = ""
Me.D29.Value = ""
Me.H29.Value = ""
Me.D30.Value = ""
Me.H30.Value = ""
Application.ScreenUpdating = True
End If
End If
MsgBox "تم التعديل بنجاح"
End Sub

كود تعديل.docx

أغسطس 5, 2021

ممكن اعرف الخطأ فى الكود و مرفق صوره

Private Sub lblResize()
  Dim eCadre As Long, hCaption As Long
  eCadre = (Me.Width - Me.InsideWidth) / 2
  hCaption = Me.Height - Me.InsideHeight - eCadre
  Me.Resize.Left = Me.Width - Me.Resize.Width - eCadre
  Me.Resize.Top = Me.Height - Me.Resize.Height - hCaption - eCadre
End Sub

أغسطس 2, 2021

الساده الخبراء هل هناك حل لجعل الفورم يرحل الارقام فى صورة ارقام و ليست تكست و هل هناك امكانية لتسريع تنفيذ امر ترحيل البيانات من الفورم

و جزاكم الله خيرا

أغسطس 1, 2021

شكرا جزيلا و جزاك الله كل خير

لو مفيش ازعاج لحضرتك هلى فى كود يجعل التكست بوكس المنوط ادخال تواريخ فيها لا تقبل الا ادخال تاريخ كامل yyyy/mm/dd مع العلم هما حوالى 30 تكست بوكس و شكرا لاهتمام حضرتك

أغسطس 1, 2021

الساده الافاضل لدى فورم على الاكسيل ارتفاعه اكبر من الشاشه و لا استطيع تحريكه للاسفل لارى باقى الفورم فما هو الحل( ملحوظة الفورم فى مقاس A4 تقريبا

يوليو 31, 2021

كود يظهر تاريخ القسط للشهر طبقا للخلية k1

كوديظهر الدفعه المقابله للشهر طبقا للخلية k1

كود لجمع الدفعات المستحقه حتى التاريخ بالخلية o2

ملحوظة برجاء ان يعمل الكود في حالة ان العمود Aلا يساوى صفر

تعديل على المطلوب باضافة معادلات صفيف للملف ان امكن تحويلها لكود و توضح المطلوب و الهدف من رغبتى تحويلها الى كود هو تقليل مساحة الملف لاحتوائه على 9000 صف

و لكم جزيل الشكر

مثال للمطلوب.xlsb

يوليو 30, 2021

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

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

يوليو 29, 2021

ممكن اعرف الخظأ فى الكود اى؟

Private Sub CommandButton2_Click()
Dim i As Long
Me.ListBox1.CLEAR
'لعمل رأس الاعمدة
Me.ListBox1.AddItem
For a = 1 To 6
Me.ListBox.List(0, a - 1) = Sheet3.Cells(1, a)
Next a
Me.ListBox1.Selected(0) = True
End Sub

يوليو 26, 2021

السلام عليكم و رحمة الله و بركاته

الساده الافاضل خبراء vbaبرجاء التكرم و مساعدتى فى تصحيح الكود فى التكست بوكس و الذى يقوم بالبحث فى ليست بوكس و التحديات التى تقابلنى فيه هى:

1-عند فتح الفورم فى شيت 1 و عمل البحث يقوم الفورم بفتح شيت البيانات(ليدجر ايضا) و لا ارغب فى ذلك افضل ان لايفتح الشيت و اكتفى بالبيانات فى الليست بوكس

2-ارغب فى ظهور 6 اعمدة فقط فى الليست بوكس و هم غير مرتبين فى شيت الليدجر

3- اظهار رءوس الاعمده فى الليست بوكس ... مرفق ملف موضح به ... و لكم جزيل الشكر

تجربة.xlsb

يوليو 31, 2020

شكرا جزيلا استاذ سليم و كل عام و حضرتك طيب عيد مبارك عليك. تعبتك معايا بس للاسف دى مش بتجمع طبقا للتاريخ شكرا لحضرتك

تسجيل الدخول

المنتدى

مكتبة الموقع

معرض الصور

المدونات

الوسائط المتعددة

مشاركات المكتوبه بواسطه الصفتى

Important Information