اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ترحيل الارقام فى صورة ارقام و ليست تكست

الصفتى

بواسطه الصفتى
في منتدى الاكسيل Excel

 مشاركة
إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

  • أفضل إجابة
أ / محمد صالح

أ / محمد صالح

قام بنشر
  • أفضل إجابة
قام بنشر

جرب ترحيل قيمة مربع النص بدلا من النص 

Range("a1").value = me.textbox1.value

مع التأكد من تنسيق الخلية التي يتم الترحيل إليها عام او رقم

وبالنسبة لموضوع تسريع التنفيذ فيجب معرفة الكود المستعمل اولا

بالتوفيق 

  • Like 1
رابط هذا التعليق
شارك
الصفتى

الصفتى

قام بنشر
  • الكاتب
قام بنشر

 

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

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

رابط هذا التعليق
شارك
أ / محمد صالح

أ / محمد صالح

قام بنشر
قام بنشر

اقتراحي لاختصار وتسريع كود الترحيل من الفورم للشيت

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

فمثلا العمود F هو العمود رقم 6 نسمي مربع النص الذي سيتم ترحيله للعمود F ب txt6

وهكذا مع باقي العناصر جتى txt116 وهو الذي سيتم ترحيله للعمود DL

واستعمال هذا الكود البسيط للترحيل ومسح محتويات النموذج 

Private Sub CommandButton6_Click()
answer  =  MsgBox ("هل أنت متأكد من تعديل البيانات", vbQuestion + vbYesNo + vbDefaultButton2, "تأكيد التعديل")
If answer = vbYes Then
Dim rng1 As Range, str_search As String, row_number As Long,n as long
str_search = Txt3.Value
Set rng1 = Sheets("ليدجر").Range("E:E").Find(str_search, , xlValues, xlWhole)
If Not rng1 Is Nothing Then
row_number = rng1.Row
Application.ScreenUpdating = False
For n = 6 To 116
Sheets("ليدجر").Cells(row_number, n).Value = Me.Controls("txt" & n).Value
Next n

For n = 6 To 116
Me.Controls("txt" & n).Value = ""
Next n
Application.ScreenUpdating = True
End If
End If
MsgBox "تم التعديل بنجاح"
End Sub

بالتوفيق

رابط هذا التعليق
شارك
أ / محمد صالح

أ / محمد صالح

قام بنشر
قام بنشر

أخي الكريم

الكود في التعديل الأخير لا يذهب للشيت ليدجر لو لاحظت تم حذف السطر الخاص ب  

ThisWorkbook.Sheets("ليدجر").Activate

ناتي للخطأ الذي ظهر في اول سطر في التعديل الجديد

8 ساعات مضت, أ / محمد صالح said:

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

فمثلا العمود F هو العمود رقم 6 نسمي مربع النص الذي سيتم ترحيله للعمود F ب txt6

هل قمت بإعادة تسمية العناصر على النموذج ؟

حوالي 110 عنصر يتم اعادة تسميتهم ب txt6 & txt7 & txt8 وهكذا حتى txt116

لا أعتقد أنك قمت بهذه الخطوة

رابط هذا التعليق
شارك
الصفتى

الصفتى

قام بنشر
  • الكاتب
قام بنشر

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

رابط هذا التعليق
شارك
أ / محمد صالح

أ / محمد صالح

قام بنشر
قام بنشر
8 ساعات مضت, أ / محمد صالح said:

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

فمثلا العمود F هو العمود رقم 6 نسمي مربع النص الذي سيتم ترحيله للعمود F ب txt6

مرة أخرى

يجب تسمية العناصر بنفس ترنيب الشيت

عنصر العمود f يكون اسمه txt6

عنصر العمود g يكون اسمه txt7

عنصر العمود h يكون اسمه txt8

وهكذا الى نهاية الخلايا التي تتم ترحيلها

  • Like 1
رابط هذا التعليق
شارك
أ / محمد صالح

أ / محمد صالح

قام بنشر
قام بنشر

حضرتك لا تعدل الشيت

التعديل في اسم عنصر التحكم تكست بوكس الذي في النموذج

فقط تجدد العنصر وفي جزء الخصائص تكتب الاسم الجديد في الخاصية name

هذا إذا كنت ترغب في اختصار الكود

رابط هذا التعليق
شارك
الصفتى

الصفتى

قام بنشر
  • الكاتب
قام بنشر

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

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

رابط هذا التعليق
شارك
أ / محمد صالح

أ / محمد صالح

قام بنشر
قام بنشر

مع كل مجموعة اعمدة متتالية يمكن استعمال الحلقة النكرارية

مثلا من 6 الى 25

ومرة اخرى من 28 الى 45

بهذا تركنا العمود رقم 26 و 27 بدون ترحيل

وهكذا

رابط هذا التعليق
شارك
أ / محمد صالح

أ / محمد صالح

قام بنشر
قام بنشر

إذا كنت تقصد الذي بين for و next 

فهو نفس السطر في الكود المختص الذي فيه n بين 6 و 116

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept