combine rows
سوال :
من یک فایل ورد دارم متشکل از 1000 خط و هر خط شامل 1 جمله ی انگلیسی است. یک فایل ورد دیگر هم دارم. آن هم متشکل از 1000 خط و هر خط شامل 1 جمله ی فارسی است. که این جمله های فارسی، ترجمه ی همان جملات انگلیسی است.
میخواهم 1 فایل داشته باشم، از مجموعه ی این 2 فایل. متشکل از 2000 خط، بدین صورت که خط 1، جمله ی انگلیسی و خط 2 ترجمه ی فارسی آن. خط 3 جمله ی انگلیسی و خط 4، ترجمه ی فارسی آن. الی آخر. روش کار به چه صورت است؟
پاسخ :
من این کار را با روش کدنویسی VBA با ایجاد یک ماکرو در اکسل انجام می دهم. که این کار بصورت زیر است.
ابتدا نرم افزار اکسل اجرا می کنیم. سپس از فایل های وردتان ابتدا متون انگلیسی را بطور کامل انتخاب کرده و در ستون A شیت یک برنامه اکسل کپی کنید و سپس همین کار را برای ترجمه های فارس در ستون B انجام دهید.
حال کلیدهای Shortcut یا میانبر ALT+F11 را بطور همزمان بزنید تا به نرم افزار VBA رفته و در Madual1 کد های زیر را کپی نمائید.
Sub Macro1()
Dim j As Integer, i As Integer
j = 1
For i = 0 To 10
Cells(i + 1, 1).Select
Cells(i + 1, 2).Select
Cells(j + i, 4) = Cells(i + 1, 1).Text
Cells(j + i + 1, 4) = Cells(i + 1, 2).Text
j = j + 1
Next i
End Sub
سپس فایل را Save کنید (طبق روشی که در آموزش از بین بردن فایل اکسل در تاریخ معین گفته شده) فایل را به فرمت دارای قابلیت اجرای Macro ذخیره نمائید.
حال دکمه سبز رنگ Run را بزنید تا برنامه اجراشود. اگر به برنامه اکسل برگردید، خواهید دید که در ستون D اکسل متون به شکلی که خواسته اید زیر هم قرار گرفته اند. می توانید ستون D را انتخاب و در یک فال متنی (NotePad) کپی کرده و بعد از آن یک بار دیگر در Word کپی نمائید.
نظرات و پاسخ ها
نوید نوشته :
سلام خوبید؟ خسته نباشید چگونه باید فونت زیر را که ایمیل در سنوات گذشته هست را تبدیل به فارسی بکنم؟ لطفا راهنمایی کنید و نتیجه را به ایمیلم بفرستید لطفا ÎÑ åÑå ÈåÇäå ی˜ÑØÑÝ Êæ ی˜ØÑÝ
یزدان نوشته :
یکی از بدترین سایت هایی که اومدم بود آشغله
مدیر سایت فارسی میتینگ نوشته :
آقا مرتضی ممنون ، شما و سایر دوستان لطف دارید. آخه پیامبر اسلام فرموده دانش خود را به دیگران منتقل نمائید، مخصوصاً ما مسلمانان. ولی خوشم اومد که رفتید و گشتید - این بهترین راه حل هست.
مرتضی نوشته :
آقا، مثل ساعت، کار کرد. خیلی ممنون که انقدر بی چشمداشت برای پاسخ سوالات وقت میگذارید. البته برای من، چون حدود 18000 جمله بود، integer رو به long تغییر دادم. و البته کلی گشتم تا فهمیدم module تو تبِ insert هست. عالی بود. تشکر.
صفحه 1 از 1
مطالب مرتبط
میخواهم windows راعوض کنم درهمان مراحل اولیه(windows is loading file) گیرمیکندوهیچ کاری انجام نمیدهدسی دی هم پس از15ثانیه ازگردش می ایستدوچراغ درایورهم خاموش میشود
2012, Thursday, 25, Oct
نحوه مرتب شدن خودکار Auto Sort رکورد ها در نرم افزار اکسل نحوه مرتب شدن خودکار (Auto Sort) رکورد ها در نرم افزار اکسل منوی Home و منوی Editing و از دکمه Sort Filter
2013, Thursday, 05, Sep
چگونه می توان وقتی از طریق کلیک بر روی عنوان و یا متنی در PowerPoint به اسلایدی دلخواه رفت؟ استفاده از BookMark در پاور پوینت گزینه Hyperlink دانلود فایل ضمیمه پاورپوینت
2012, Thursday, 06, Dec
من ویندوز xp داشتم که به ویندوز 7 تغییر دادم و از اون به بعد پرینترم کار نمی کنه در صورتی که دستگاه پرینتر رو چک کردم و سالم هست Windows 7 ویندوز XP ویندوز Seven درایور پرینتر نصب درایور
2013, Tuesday, 21, May
از بین بردن فایل اکسل در تاریخ معین ساخت فایل اکسل دارای تاریخ انقضاء (دوره آزمایشی) Expire Date In Excel ایجاد فایل اکسل با تاریخ انقضاء ایجاد ماکرو VBProject فایل اکسل
2013, Thursday, 30, May
