اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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 بدون ترحيل

وهكذا

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept