اذهب الي المحتوي
أوفيسنا
محمد طاهر

تمت الإجابة مكتبة الموقع - كود لتحويل مصفوفة إلى عمود واحد رأسي

Recommended Posts

كود لتحويل مصفوفة إلى عمود واحد رأسي


اجتجت الي تجويل البيانات فى مصفوفات الى عمود واجد رأسي ، فقمت باعداد هذا الملف

و هذا هو الكود

و يجب تظليل (اختيار) المصفوفة المطلوب تحويلها لعمود قبل تشغيل الكور

اختار المصفوفة ثم اضغط على الزر

ملاحظة : بفضل تجميل الاصدار الاخير الذي يظهر اسفل الصفحة لانه به ميزة اضافية 

Sub MakeOneColumn()
 Dim Myrows As Integer, Mycols As Integer
Myrows = Selection.Rows.Count
Mycols = Selection.Columns.Count

With ActiveCell

For i = 0 To Mycols '6
 For j = 0 To Myrows '3
   .Offset(Myrows * (i) + j) = .Offset(j, i)
   
 Next j
Next i

 End With
End Sub

 

 


 

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

هذا مثال على اضافة ملف لمكتبة الموثع  (مركز الملفات )

و هذه خاصية لم تستخدم كثيرا فى الفترة الماضية

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

و بناء علىه يتم اليا فتح موضوع فى القسم المناظر مثلا هذا الموضوع هنا

و يتم ربط موضوع الحوار بالملف  ، كما يمكن اضافة اصدارات مختلفة للملف  

ملاحظة خاصية الاضافة للمكتبة ليست متاحة للاعضاء الجدد

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

تم اضافة الاصدار الثاني الي نفس الموضوع فى مركز تجميل الملفات

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

ايضا نقوم بتظليل المجال المطلوب تحويله فى المصفوفة (دون عناوين الصفوف و الاعمدة) كما فى الصورة

ثم نشغل الماكرو

 

 

Matrix.PNG

  • Like 2

شارك هذه المشاركه


رابط المشاركه
شارك

رائع أستاذ محمد ,التجربة تمام ورائعة وناجحة بكل المقاييس

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

مبروك وفى تقدم ونجاح دائم ان شاء الله والإرتقاء بمنتدانا لأعلى الدرجات وأعلى المراتب

  • Like 2

شارك هذه المشاركه


رابط المشاركه
شارك

السلام عليكم

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

و ذلك  عن طريق اتباع الخطوات التالية

اضغط 

ALT+D 

ثم P

و ذلك لاستدعاء مساعد الجدوال المحورية

ثم اختار الاختبارات الموضحة فى الصورة التالية

image.png.8b5ce394f8797fd428b21fa2a685c8a9.png

 

ثم

image.png.5666dfac0667d7d778acd96f330aa5aa.png

ثم ختار المجال المراد تحويلة ثم اضغط ADD

image.png.2ecc6c71592cbc45a4b6c5fa2dc3bb64.png

و سيتم انشار الجدول

image.png.be52c5e9d794edcfb1aa77dca8a8f540.png

 

ثم الان اختار الخلية المعبرة عن المجال المراد تحويله

فمثلا لو ارد تحويل كامل الجدول اختار خلية الاجمالي التي بها الرقم 171

و الان انقر نقر مزدوج

Double Click

و ستجد المفاجأة التحويل المطلوب قد تم

image.png.ff0559ac79c385beb145dd7f1827573e.png

 

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

 

فمثلا لتحويل الصف الاول فقط فى المصفوفة اختار الخلية H5 و انقر نقر مزدوج

 

image.png.c4c7ce27dd13c8f1dcc742909ce350bf.png

 

 

 

  • Like 2

شارك هذه المشاركه


رابط المشاركه
شارك

أحسنت استاذ محمد بارك الله فيك وزادك الله من فضله

شارك هذه المشاركه


رابط المشاركه
شارك

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.


  • محتوي مشابه

    • بواسطه محمد طاهر
      احتجت لتحويل عدد كبير من القوائم الي فقرات ، فقما باعداد هذا الكود ليحول القائمة الي فقرات بدمج الاسظر ووضع فاصلية بين المحتويات.، و لتفعيله اختار محتويات القائمة ثم شغل الكود.
      و هو يصلح لاي نوع من القوائم فى الوورد سواء كانت مرقمة او تبدأ باحدى علامات النقاط ،
      Numbered Lists , or Bullet points
      فسيقوم القوم بدمجها فى فقرة واحدة و اضافة فصلة بينها
      و هذا الأمر مفيد فى الأبحاث العلمية ، حيث هناك جانب كبير من المختصين لا يحبذ الإكثار من استخدام الفوائم فى كتابات البحث العلمي ، مثل الأوراق البحثية أو الرسائل العلمية. و ان كنت أرى ان القوائم اوضح كثيرا من الفقرات 😊
      Sub ReplaceLineBreak() With Selection.Find .Text = "^p" 'replace with comma .Replacement.Text = ", " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub  
    • بواسطه أ / محمد صالح
      لكل عشاق الحديث في برمجة الأوفيس المتقدمة VBA يسعدني أن أقدم لكم شرح كود ترجمة جوجل 2019 في فيجوال بيسك للتطبيقات vba الموجودة ضمن حزمة ميكروسوفت أوفيس وسيكون الشرح على الأكسس microsoft access 2019 ومعالجة خطأ عدم ظهور الترجمة التعرف على أكواد لغات العالم world languages codes الموجودة في ترجمة جوجل وعددها 105 لغة التعرف على أسماء لغات العالم بالإنجليزية وباللغة العربية وباللغة المحلية لكل لغة دالة معرفة لإيقاف تنفيذ الكود فترة من الثواني wait مثل application.wait الموجودة في إكسل كتابة سطرين كود في سطر واحد نطق النصوص من خلال vba بجميع لغات العالم text to speech ترجمة سجلات الجداول أو الاستعلامات من خلال ADO وغيرها الكثيييييير اكتشفها بنفسك         رابط القناة لمن لم يشترك معنا حتى الآن   https://www.youtube.com/user/ostazmas2   #ostazmas   ************   فتابعونا وقوموا بتفعيل زر الجرس للتنبيه وقت صدور الفيديو وعلق ولو بحرف لكي تدعمنا للاستمرار من أجلكم   ********************* وفي هذه المرة لن أضع لكم الملف المستخدم في الشرح
      ولكن سأطلب ممن فهم الشرح أن يقوم بتطبيقه ويرفع لنا هنا ما تعلمه فعلا كنتيجة الفيديو /////////////////
      وتذكر معي الحكمة القائلة: لا تعطني سمكة ولكن علمني كيف أصطاد
    • بواسطه عبد اللطيف سلوم
      السلام عليكم 
      حاولت تحويل قاعد ةبيانات حجمها 6 ميجا لكن تم الرفض
      كم الحجم المسموح به للتحويل
      بمعنى كم ميجا يكون حجم القاعدة حتى استطيع تحويلها
      استخدم اكسس 2016 نظام 64 بت
    • بواسطه ابا جودى
      هذه الهدية القيمة شفرة الكود المستخدمة فى استخلاص اسماء الشهور والايام اهدانى اياها ذات يوم استاذى الجليل ومعلمى القدير الاستاذ الجليل @ابوخليل 
      ههههههه حتى ايضا الشفرة المستخدمة لعمل الاستبدال ( دالة Replace) ايضا يرجع الفضل فيها الى الله اولا ثم الى استاذى المبجل الاستاذ @ابوخليل 
      نعم لم تكن بنفس الهيئة كانت للاستبدال رموز خاصة وعلامات وانا قمت بالتعديل الطفيف عليها لتحويل الارقام الى عربي عن طريق ال Unicode Chart 
      ولكن لولا الله سبحانه وتعالى ثم استاذى ووالدى لما توصلت الى هذه الفكرة
      مميزات المرفق
      - موديول به كل ما يخص التاريخ 
      وكذلك تحويل الارقام الى العربية بدون التدخل فى اعدادات النظام وبدون اى خطوط خارجية 
      ولتكون الهدية كاملة مكملة هذا هو الموقع الذى استخدمة عندما اريد الحصول على ارقام رمز او حرف ما 
      https://www.ssec.wisc.edu/~tomw/java/unicode.html
      التاريخ.mdb
    • بواسطه أ / محمد صالح
      الميزة التي انتظرها الكثير من الطلاب والمعلمين والقراء عموما أصبحت الآن بدون برامج إضافية ضمن تحديثات ويندوز 10 الأخيرة windows 10 build 1803 32bit or 64bit تحويل النص المكتوب إلى صوت مسموع Text to sppech والأجمل أنها باللغة العربية ومعنى هذا أنك بدلا من أن تقرا الملف تسمعه         ولا ينقصني سوى دعاؤكم بالخير       #ostazmas
  • المتواجدين الان   0 اعضاء متواجدين الان

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

×
×
  • اضف...