وائل احمد المصري

كيفية ترحيل البيانات

اختي لم افهم سؤالك هل له علاقة بطلب اخي ان انك تسألين عن موضوع الترحيل بصفة مستقلة؟

 

موضوع متميز ..

مبدع كعادتك دائما يا مستر وائل

وَقَالُوا الْحَمْدُ لِلَّهِ الَّذِي هَدَانَا لِهَذَا وَمَا كُنَّا لِنَهْتَدِيَ لَوْلا أَنْ هَدَانَا اللَّهُ

 

 

رووووووووووووووعة فوق الرووووووووووعة يا مستر وائل

جزيت خيرا على هذا الملف الرائع

 

الاروع مرورك وتعليقك يا مستر ياسر :)

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

اخي الهادي بداية التعلم ان تجرب بيدك فحاول ان تطبق نصيحة اخي شوقي وتحاول وان عجزت تبدأ مرحلة المساعدة مجرد نصيحة :)

لفتة بسيطة :

ضع الحماية بالطريقة العادية للصفحات

ثم في ديول ضع الكودين التاليين :

Function Protectit()

        ActiveSheet.Protect Password:=pass, DrawingObjects:=True, Contents:=True, Scenarios:=True

End Function

Function Unprotectit()

    ActiveSheet.Unprotect Password:=pass

End Function

وقم باستدعاء كود فك الحماية فيبداية اوامر  زر الترحيل

وكود الحماية في نهاية اوامر زر الترحيل

:)

الاخوة الاعزاء طبتم

بناء عن طلب احد الأخوة قمت بفضل الله

بعمل ملف يقوم بتشفير البيانات وثحويلها لباركود ثم العملية العكسية لفك التشفير

فيما يمكن استخدامه ؟

1-تشفير كلمات المرور

2-تشفير البيانات بالكامل داخل ملفات الاكسيل

والعديد من الافكار

ادعوا الله ان يكون مفيدا"

باركود مع التشفير واعادة فك التشفير.rar

اخي ابو الوليد ارجوا ان تجد ضالتك في المرفق

برجاء الاطلاع والتعقيب

ملحوطة:

تجربة طباعة الباركود وتجربت الاسكانر هل سيقوم بالقرأة ام لا

باركود مع التشفير واعادة فك التشفير.rar

 

السلام عليكم

حسب مافهمت اخ زمزم

ان الخلايا التي تتلقى بيانات من مصدر خارجي

تريد نسخها الى العمود التالي بشرط مره فقط في اليوم

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

مع بعض الاضافات اليك الكود

غير المدى في اول الكود

 

Private Const FD = "yyyy/mm/dd"
Private Const FT = "hh:mm:ss"
' الخلايا التي تتلقى  قيمها من مصدر خارجي
Private Const Are As String = "$A$2:$A$500"
Dim Tim_t
Dim Dn As Range
Dim Tn As Range
Dim Tim
Private Sub Ali_Tim()
Set Tn = [XF1]
Set Dn = [XG1]

Tim_t = Now + TimeValue("00:00:05")
Application.OnTime Tim_t, "Trn_Dt", , True
Dx = IIf(Dn = "", Val(Date) - 1, Val(Dn))
      If Time > TimeValue("16:00") And Time < TimeValue("16:59") Then
        If Dn = "" Then
           Tim_Cod
           ElseIf Dn = Date And Hour(Tn) = Hour(Tim) Then
           
           ElseIf Not Dx = Val(Date) Then
           Tim_Cod
         End If
      End If
      
End Sub
Private Sub Tim_Cod()
  Dim Rng As Range
  Set Tn = [XF1]
  Set Dn = [XG1]

  '================================
  For Each Rng In Range(Are)
     If Rng > Empty Then
      With Rng
       Lc = Cells(.Row, Columns.Count).End(xlToLeft).Offset(0, 1).Column
         Cells(.Row, Lc) = Rng
      End With
     End If
  Next
  '================================
  
  Dn = Format(Now, FD)
  Tn = Format(Time, FT)
  Set Rng = Nothing
  Set Dn = Nothing: Set Tn = Nothing
End Sub
Private Sub Trn_Dt()
    Calculate
    Ali_Tim
End Sub
Sub auto_open()
    Ali_Tim
End Sub
Sub auto_close()
    On Error Resume Next
    Application.OnTime Tim_t, "Trn_Dt", , False
End Sub

عمل متميز بارك الله فيكما

 

السلام عليكم

ومع كل جديد أحب أن أقدم لأخواني معلومة خفيفة ظريفة .. بدون أكواد وبعيدا على VBA

في الملف المرفق يمكنك معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا ..... بدون أكواد

فقط بعض النطاقات المسماة !!

 

معلومة جميلة ربنا يبارك فيك :)

بعد اذن اخويا ياسر

استبدل Sheets("close").Range("l20")= TextBox94.Value

ب Sheets("close").Range("l20").Value = TextBox94.Value

وشوف ح تظبط معاك

اللهم اجعله في ميزان حساناتهم ما شاء الله عمل اكثر من رائع ابداع

 

السلام عليكم ....

اريد اختيار كلمة معينة من خلية تحتوي على جملة من عدة كلمات .

مثال لدي خلية تحتوي على الاسم (محمد علي احمد بالخير) اريد دالة تضع مثلا كلمة (بالخير) في خلية جديدة ,او اي كلمة يتم تحديدها.

ارجو ان يكون المطلوب مفهوم وواضح .... وشكرا للاهتمام

 

http://www.officena.net/ib/index.php?showtopic=55039

انظر هنا اخي عسى تلبي طلبك

 

جزيت خيرا أخي وائل على الملف الرائع

بارك الله فيك ونفع بك المسلمين

 

ربنا يبارك فيك دة شيء بسيط امام ما تعلمناه من عمالقة المنتدى جزاهم الله خيرا"

الاخوة الأفاضل ( أداريين وأعضاء) طيب الله اوقاتكم

أنا اعشق البساطة واختيار اقل الطرق تعقيدا"

لذا قمت بفضل الله بتصميم هذا الفورم البسيط

لاحضار صورة من اي مسار وعرضها ثم حفظها في مسار محدد وهو "image" في نفس مسار الملف

كما يمكن تطويعة حسب الحاجة على سبيل المثال صور الموظفين - صور الاصناف ....... الخ

ارجو ان ينال استحسانكم وان تجدوا فية فائدة أن شاء الله

طبتم

getimg.rar

بارك الله فيك اخى الكريم وجعله فى ميزان حسناتك 

 

مشكوووووووووووووووووور اخى الكريم

نحن واياكم اللهم امين

احسنت

أشكرك اخي

 

استخدم الاثنين معا بمعني

locked=True

enabled=False

 

نفس النتيجة اللون رمادي

 

جزيل الشكر على الرد

المشكلة ان خاصية locked تجعل الماوس متاح في التنقل اليها

وانا اريدها غير متاحة

طب ما تخليها ليبل وتريح نفسك

 

 

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

 

وشكرا

 

على فكرة انتة بردو ممكن تعمل العمليات الحسابية على الليبول كابشن عادي

انا معكم بانتظار الحلول لأنني مبتدئ في هدا المجال

 

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

 

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

فأنا رأيي موافق للأستاذ الكبير والمبدع القادم بشدة وائل المصري فيما يقول

سنحاول معاً إن شاء الله إيجاد حل

 

اخي دائما" تنعتني بألقاب انا اصغر من ان القب بها لك كل الود والاحترام :)

انا معكم بانتظار الحلول لأنني مبتدئ في هدا المجال

الباس ورد اية اخي الخاصة بحماية الصفحات

 

 

جزيل الشكر على الرد

المشكلة ان خاصية locked تجعل الماوس متاح في التنقل اليها

وانا اريدها غير متاحة

طب ما تخليها ليبل وتريح نفسك

 

أنا أحب من الآخر بلاش لف ودوران

 

اخي وائل وماهو حل هدا الملف لقد اتعبني كثيرا وكيف اعمل له فورمات

أخي كما اسلفت لك أنفا"

مشكلة اي ملف اكسيل تكمن في المقام الاول في التنسيقات والتسيقات لا حاجة لها الا اذا كانت الصفحة نشطة في نمط العرض لذا يمكن تسجيل هذا التنسيق بواسطة ماكرو ثم يتم استدعاء هذا الماكرو عند تنشيط هذة الصفحة في الحدث Private Sub Worksheet_Activate() مع عمل ماكرو عكسي يتم تفجيرة في حدث Private Sub Worksheet_Deactivate() وبذلك تتغلب على مشكلة التنسيقات

وبنفس المنطق يمكنك عمل المعادلات

ارجوا ان اكون قد افدتك

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

مجرد فكرة *

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

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

وبذلك يصبح حجم الملف صغير جدا" عند العمل وعند الحفظ

جزيل الشكر على الرد

المشكلة ان خاصية locked تجعل الماوس متاح في التنقل اليها

وانا اريدها غير متاحة

طب ما تخليها ليبل وتريح نفسك

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

وشكرا

استخدم الخاصية locked بدل enbled في التيكست بوكس

لعل المانع خيرا" هل وفى المرفق الغرض ان كان رجاء الرد حتى نغلق هذا الامر

شكرا"