commandos1975 قام بنشر يونيو 21, 2021 مشاركة قام بنشر يونيو 21, 2021 كود نسخ الارقام الي عمود اخر aa.xlsx رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر يونيو 21, 2021 مشاركة قام بنشر يونيو 21, 2021 طلب غير مفهوم على الاطلاق ولماذا وضع الارقام في مربعات نص بدل الخلايا ؟🤔 رابط هذا التعليق شارك More sharing options...
commandos1975 قام بنشر يونيو 21, 2021 الكاتب مشاركة قام بنشر يونيو 21, 2021 السلام عليكم دا ملف متجمل من النت بهذه الطريقة ونريد وضع الارقام في خلايا رابط هذا التعليق شارك More sharing options...
أفضل إجابة نزار سليمان عيد قام بنشر يونيو 22, 2021 أفضل إجابة مشاركة قام بنشر يونيو 22, 2021 بعد اذن الاستاذ عبدالفتاح تحتاج لهذا الكود لتحويل الكنترول بوكس الى الخلية ثم تحتاج للمعادلة ادناه Sub Tester() Dim o For Each o In ActiveSheet.OLEObjects If o.progID = "Forms.HTML:Text.1" Then Debug.Print o.Name, o.Object.Value, o.TopLeftCell.Address() 'sometimes merged cells result from a HTML copy/paste, ' so don't just use .TopLeftCell to set the Value o.TopLeftCell.MergeArea.Value = o.Object.Value o.Delete End If Next o End Sub =MID($R2;COLUMN()-(COLUMN($S2)- 1);1) فضلا انظر للمرفق ... مع الشكر aa.xls 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.