اجرای ماژول
سوال :
من یک فایل ورد دارم متشکل از 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
مطالب مرتبط
روش ترکیب کردن متن انگلیسی با ترجمه فارسی اجرای ماکر برنامه نویسی VBA فرمت دارای قابلیت اجرای Macro ایجاد Madual ماژول اجرای کد ترکیب سطرهای دو فایل ورد فایل اکسل comine rows in excell
2013, Wednesday, 24, Jul
پاس دادن مقدار یک فیلد از فرم اول به فیلدی در فرم دوم در اکسس دراکسس 2010 بر روی فرم" navigation "دو فرم را باز کرده ام میخواهم دکمه ای ایجاد کنم که با کلیک بر روی آن محتویات یک فیلد از فرم اول در فیلدی از فرم دوم درج شود
2013, Friday, 25, Oct
برقراری ارتباط بین یک تیبل با چندین تیبل بانک اطلاعاتی جدول مشخصات شناسنامه فرد relation کلید خارجی در جدول دیتابیس ساخت دیتابیس با جداول زیاد و ایجاد رابطه بین جداول و نحوه تعریف کلید خارجی database تیبل یا جدول بانک اطلاعاتی access
2016, Saturday, 13, Feb
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ محاسبه اختلاف ساعت در اکسس amoozesh mohasebeh ekhtelaf saat dar access بدست آوردن اختلاف ساعت و تاریخ
2015, Thursday, 18, Jun
چگونه یک سلول را به لیست combobox در اکسل تبدیل کنم؟ convert cell to combobox in excel تبدیل سلول به لیست کشویی در اکسل DropDown combobox اکسل آموزش اکسل پاسخ به سوالات اکسل ایجاد گزینه در اکسل
2013, Saturday, 17, Aug
