حمدى قام بنشر أكتوبر 6, 2006 مشاركة قام بنشر أكتوبر 6, 2006 (معدل) كل عام وانتم بخير هل من الممكن ان يتم الادخال في الخلية a1 ادخال اي ارقام 123456 وبعد الضغط على مفتاح الادخال تنتقل تلك الارقام الى b1 بحيث يتم افراغ a1 من البيانات والتركيز ايضا يكون على a1 اقصد بعد الضغط على مفتاح الادخال a1=setfocus a1=" " فارغ ويتم انتقال الرقم الجديد في a1 الى اول سطر فارغ في b1 وشكرا تم تعديل أكتوبر 6, 2006 بواسطه حمدى رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر أكتوبر 7, 2006 مشاركة قام بنشر أكتوبر 7, 2006 (معدل) تم طرح هذه الفكرة من قبل في المنتدى والمشاركة موجودة على الرابط التالي: http://www.officena.net/ib/index.php?showtopic=12657&hl= على كل حال .. قمت بإجراء بعض التعديلات على الكود الموجود في الرابط السابق لكي يتناسب مع طلبك .. شاهد المرفق، ________________________________________.rar تم تعديل أكتوبر 7, 2006 بواسطه علي السحيب رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر أكتوبر 7, 2006 مشاركة قام بنشر أكتوبر 7, 2006 الله عليك اخ علي زادك الله من علمة ونفع بك رابط هذا التعليق شارك More sharing options...
حمدى قام بنشر أكتوبر 7, 2006 الكاتب مشاركة قام بنشر أكتوبر 7, 2006 الاخ العزيز علي السحيب شكرا جزيلاً مع دعواتي لك بالخير والصحة في الشهر الكريم تقبل الله منك صالح الاعمال هو المطلوب بالضبط رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر أكتوبر 8, 2006 مشاركة قام بنشر أكتوبر 8, 2006 (معدل) هل يمكن يااستاذ علي ان تترحل الارقام الى B1 ثم الى C1 ثم الى D1 ثم الى E1 ثم بعد ذلك تبدا من B2 ثم الى الى C2 ثم الى D2 ثم الى E2 وهكذا . واخيرا فعلا نشكرك ونقول ماشاء الله على هذا الابداع ربي يحفظك من كل سوء تحياتي لك تم تعديل أكتوبر 11, 2006 بواسطه علي السحيب رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر أكتوبر 11, 2006 مشاركة قام بنشر أكتوبر 11, 2006 الكود التالي ينفذ جميع ما طلبت: Private Sub Worksheet_Change(ByVal Target As Range) MF = Application.WorksheetFunction.CountA([B1:E65535]) Mod 4 If [A1] = "" Then Exit Sub If Target.Address = "$A$1" Then With Columns(1).Rows(65536).End(xlUp) .Offset(Application.WorksheetFunction.CountA([E1:E65536]), MF + 1) = [A1] End With With [A1] .Select .ClearContents End With End If End Sub شاهد المرفق، __________________________________________.rar رابط هذا التعليق شارك More sharing options...
حمدى قام بنشر أكتوبر 11, 2006 الكاتب مشاركة قام بنشر أكتوبر 11, 2006 الاخ العزيز علي السحيب اكثر من رائع رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر أكتوبر 11, 2006 مشاركة قام بنشر أكتوبر 11, 2006 أشكرك .. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها