vba
سوال :
من یک فایل ورد دارم متشکل از 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
مطالب مرتبط
تفاوت گزینه های Blank Page با Page Break در بخش insert چیست؟ ایجاد یک صفحه خالی تفاوت گزینه های blank page با page break پاسخ به سوالات ورد
2013, Friday, 26, Apr
نحوه مرتب شدن خودکار Auto Sort رکورد ها در نرم افزار اکسل نحوه مرتب شدن خودکار (Auto Sort) رکورد ها در نرم افزار اکسل منوی Home و منوی Editing و از دکمه Sort Filter
2013, Thursday, 05, Sep
نحوه ذخیره فایل صوتی در پاور پوینت بصورت مستقل ذخیره صدا در پاور پوینت powerpoint ساخت اسلاید شو صدای پیش زمینه ذخیره فایل صوتی بدون مسیر فایل صوتی نرم افزار پاور پوینت Sound Options Media Clips
2012, Monday, 13, Aug
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ محاسبه اختلاف ساعت در اکسس amoozesh mohasebeh ekhtelaf saat dar access بدست آوردن اختلاف ساعت و تاریخ
2015, Thursday, 18, Jun
پیغام conflict در اکسل مشکل به اشتراک گذاری فایل اکسل share workbook نحوه به اشتراک گذاشتن فایل اکسل در شبکه Conficting Changes between users ارتباط با مشتریان Crm نرم افزار تحت شبکه
2014, Tuesday, 18, Feb
