پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 19

موضوع: انتقال متن یک شیت به فایل تکست

  1. #1


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    924
    امتیاز
    656
    سپاس
    29
    سپاس شده
    802 در 343 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    انتقال متن یک شیت به فایل تکست

    با درود فراوان
    برای اینکه وقتی در یک صفحه اکسل اطلاعاتی را وارد کنیم در آدرس مورد نظر ما یک فایل تکس ایجاد شده و
    اطلاعات صفحه اکسل به آن فایل انتقال پیدا کند چگونه عمل می کینم.
    چرا اینکار را می کینم ؟
    برای اینکار ممکن است دلیل خاصی پیدا نکنیم و همچنین در صورت نیاز با یک کپی کردن و پیست کردن در یک فایل تکس
    کار انجام شده و نیاز به ماکرو و کد نویسی نیست (خیلی راحت)
    اما...
    با این وجود ممکن است برای بعضی ها بسته به نوع کارشان نیازهای متفاوتی به این کار داشته باشند
    1 - به فرض اینکه در شرکتی کار می کنیم که در یک صفحه اکسل اطلاعات مختلفی از کار کنان آن شرکت را در آن وارد کرده و روزانه آن را به روز می کنیم .
    یکی از این اطلاعات تاریخ و ساعت پرواز بلیتی است که شرکت برای کارکنان تهیه می کند . نیاز است که اطلاعات را در شبکه قرار
    دهیم تا کارکنان از وضعیت تائید شدن بلیت خود با خبر شوند.
    با این کدی که می نویسیم فقط اطلاعات خاصی از صفحه اکسل که ما مشخص می کنیم در صفحه تکس قرار می گیرد و چنانچه کسی آن
    فایل تکس را حذف کرده باشد بصورت خودکار آن فایل دوباره ایجاد شده و اطلاعات نیز به روز نگه میدارد و همچنین با چنین کاری
    فایلی که در شبکه قرارا داده ایم کم حجم بوده و اطلاعات اضافی نیز در آن قرار ندارد.
    و هربار که ماکرو را اجرا کنید مطالب فایل تکست به روز می شود

    2- اگر با اکسل برنامه نویسی می کنیم و نیاز به ایجاد فایل تکس داریم نیازی نیست کار بر آن را ایجاد کند و بصورت خودکار ایجاد می شود.
    و استفاده ها ی دیگری که دوستان بهتر می دانند.

    * در کد زیر i2 تعداد ستونی از صفحه است که قرار است به فایل تکست انتقال داده شود


    * کد:نام و آدرسی که فایل تکست در آن ایجاد می شود (c:\File man.txt) قرار داده ایم که قایل تغییر است




    Sub FileText()
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\File man.txt", True)
    n = 0
    n1 = 0
    For Each c In Range("A:A")
    If c <> "" Then
    n = n + 1
    End If
    Next
    For i = 0 To n + n1
    For i2 = 0 To 5
    tex = tex & " " & Sheet1.Range("A1").Offset(i, i2)
    Next i2
    a.WriteLine tex
    tex = ""
    Next i

    End Sub

    بدرود:blush:


    فایل نمونه:
    متاسفانه هرکاری کردم ضمیمه نشد

    بدرود:blush:
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    محصولات کاربر

    کتاب آموزش جامع و پیشرفته اکسل 2010
    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    مشهد
    نوشته ها
    426
    امتیاز
    885
    سپاس
    252
    سپاس شده
    816 در 182 پست

    mrexcel به Yahoo ارسال پیام

    RE: انتقال متن یک شیت به فایل تکست

    با سلام
    من كد اين كار را تا اكنون در كنابها نديده بودم .
    اميدوارم با مطالعه و كمك شما توانائي از ويژوال را ياد بگيرم

  4. #3


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    924
    امتیاز
    656
    سپاس
    29
    سپاس شده
    802 در 343 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: انتقال متن یک شیت به فایل تکست

    در خدمت دوستان هستم

  5. #4


    آخرین بازدید
    09 _ 03 _ 2017
    تاریخ عضویت
    April_2010
    نوشته ها
    104
    امتیاز
    92
    سپاس
    444
    سپاس شده
    101 در 38 پست

    RE: انتقال متن یک شیت به فایل تکست

    با سلام
    بسيار عالي و كاربردي بود.
    كمتر كسي مي تواند اين كد نويسي را انجام دهد.
    باسپاس

  6. #5


    آخرین بازدید
    5 روز پیش
    تاریخ عضویت
    June_2010
    محل سکونت
    تهران
    نوشته ها
    121
    امتیاز
    12
    سپاس
    11
    سپاس شده
    1 در 1 پست

    runmohsen به Yahoo ارسال پیام

    RE: انتقال متن یک شیت به فایل تکست

    سلام این کد رو برای استفاده کجا و چطوری فعال کنبم
    باتشکر
    [size=medium]موفق باشيد[/size]

  7. #6


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    924
    امتیاز
    656
    سپاس
    29
    سپاس شده
    802 در 343 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: انتقال متن یک شیت به فایل تکست

    با درود فراوان
    این کد بسته به استفاده ای که از آن می کنیم می توان در جاهای مختلفی استفاده کرد
    یکی از جاهای که می تونیم استفاده کنیم در ماکرو است که زمان اجرای ماکرو بصورت دستی اجرا شده و عمل می کند
    و جاهای مختلفی دیگر مثل قرار دادن این کد در رویداد OPen و یا Close است که هنگام باز شدن ورک بوک و یا بسته شدن عمل می کند که من یک مثال از این نوع در اینجا قرار داده ام
    در این مثال که هر بار که این فایل را باز و بسته میکنید آخرین ورود و خروج در یک فایل متنی کنار همین فایل (در هرکجای کامپیوتر که قرار داده باشید) ثبت می کند
    با کارهایی شبیه به این می توان برای برنامه های که با اکسل می نویسیم مشخصات فایلو یا فایل کمکی که توضیحاتی در باره فایل در آن قرار می گیرد را در فایل متنی ساخت
    و همچنین برای کارهای امنیتی فایلی که برنامه نویسی کرده ایم که با شرط خاصی این فایل متنی را بسازد و در هر کامپویتری که این فایل متنی وجود نداشته باشد برنامه اجرا نشود و یا تاریخ انقضا را برای فایلی طراحی کنیم که بعد از اولین باری که فایل باز می شود مدت خاصی برنامه کار کند و پس از آن دیگر قابل اجرا نباشد و خیلی از کارهایی دیگه که بسته به نیازی که داریم میتوان از آن استفاده کرد


    کد بالا هم در ماکرو فایل نمونه قرار داده ام که با اجرای ماکرو در درایو C یک فایل متنی می سازد که متن شیت یک را به فایل متنی انتقال می دهد
    اگر مشکلی بود در خدمتم

    لینک دانلود فایل نمونه

    File #1: http://www.lon.ir/up/uploads/1276602125.zip

  8. #7


    آخرین بازدید
    5 روز پیش
    تاریخ عضویت
    June_2010
    محل سکونت
    تهران
    نوشته ها
    121
    امتیاز
    12
    سپاس
    11
    سپاس شده
    1 در 1 پست

    runmohsen به Yahoo ارسال پیام

    RE: انتقال متن یک شیت به فایل تکست

    سلام
    باتشکر
    اما این کد فقط تاریخ آخرین ورود و خروج رو گفته و سیو میکنه
    وآخرین دیتای وارد شده رو به شکل تکست سیو نکرد
    [size=medium]موفق باشيد[/size]

  9. #8


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    924
    امتیاز
    656
    سپاس
    29
    سپاس شده
    802 در 343 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: انتقال متن یک شیت به فایل تکست

    با درود فراوان
    کدی که برای ورود و خروج فایل گذاشته ام فقط ورود و خروج را ثبت می کند
    ولی اگر ماکرو را اجرا کنید مطالب شیت یک را به یک فایل متنی انتقال می دهد
    که اگر آن ماکر این کار را انجام نداد بواسطه آدرسی است که در آن ماکرو است و اگر آدرسی از کامپیوترت را در آن قسمت بنویسی فایل را انتقال می دهد

  10. #9


    آخرین بازدید
    5 روز پیش
    تاریخ عضویت
    June_2010
    محل سکونت
    تهران
    نوشته ها
    121
    امتیاز
    12
    سپاس
    11
    سپاس شده
    1 در 1 پست

    runmohsen به Yahoo ارسال پیام

    RE: انتقال متن یک شیت به فایل تکست

    سلام
    جناب شمس العلما ء چطور میتوان با وارد کردن یک کد در یک سلول محدوده مور نظر یا همان اطلاعات مربوط به کد مورد نظر را فیلتر کرد و نیازی به گشودن زبانه فیلتر وانتخاب کد یا شماره مورد نظر نداشته باشیم
    [size=medium]موفق باشيد[/size]

  11. #10


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    924
    امتیاز
    656
    سپاس
    29
    سپاس شده
    802 در 343 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: انتقال متن یک شیت به فایل تکست

    با درود فراوان

    اگر درست متوجه شده باشم منظور شما این است که بجای فیلتر کرد از زبانه فیلتر وقتی در یک سل دیگر آیتمی را بنویسیم آن ایتم بصورت خودکار در ستون مورد نظر فیلتر شود

    که در این مورد نمونه ای را حاضر کرده ام که کد و یا کلمه هایی که در ستون A1 وجود دارد در سل B1 بنویسیم بصورت خودکار فیلتر را انجام میدهد

    نمونه فایل:

    [attachment=155]
    فايل هاي پيوست شده فايل هاي پيوست شده


صفحه 1 از 2 12 آخرینآخرین

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. چگونه بدست اوردن حجم هر شیت در یک WORKBOOK ؟
    توسط Nima در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 27 _ 12 _ 2012, 08:20
  2. درخواست کمک برای ساختن یک فرمول جستجو در شیت های اکسل
    توسط vahiddb در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 22 _ 12 _ 2012, 13:12
  3. بدست آوردن نهایت امنیت در اکسل ؟؟!!
    توسط dez.fuli در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 05 _ 05 _ 2012, 10:32
  4. پاسخ ها: 3
    آخرين نوشته: 11 _ 04 _ 2012, 19:03

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

ماکرو برای انتقال داده از اکسس به اکسل

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است