صفحه 2 از 2 نخستنخست 12
نمایش نتایج: از شماره 11 تا 19 , از مجموع 19

موضوع: تغییر در دستور vba

  1. #11


    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط nazi nazi نمایش پست ها
    کلا مشکل داره هم اسم فایل هم اسم فایلی که موقع سیو شدن میخواد را عوض کنی خطا میده
    کلا نمیدونم چرا یکی دو بار بیشتر کار نمیکنه
    فايلتون رو ضميمه كنيد بررسي كنم

  2.  

  3. #12


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    فايلتون رو ضميمه كنيد بررسي كنم
    فایلش تا rar نباشه قابلیت ارسال نداره
    فايل هاي پيوست شده فايل هاي پيوست شده

  4. #13


    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط nazi nazi نمایش پست ها
    فایلش تا rar نباشه قابلیت ارسال نداره

    بله كاربرا امكان آپلود فايل هاي xlsm رو ندارند

    شما كدهاتون رو اصلاح نكردين هنوز. خطايي كه ميده به تغيير نام ربط نداره. كدهايي كه خدمتتون ارسال ميكنم رو جايگزين كدهاي خودتون بفرماييد


    کد:
    Sub Export()
    Dim ws As Worksheet
    Dim strPath As String
    Dim myFile As Variant
    Dim strFile As String
    On Error GoTo errHandler
    Set ws = Sheet2
    Sheet2.Visible = xlSheetVisible
    strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
                & "_" _
                & Format(Now(), "yyyymmdd\_hhmm") _
                & ".pdf"
    strFile = ThisWorkbook.Path & "\" & strFile
    
    
    myFile = Application.GetSaveAsFilename _
        (InitialFileName:=strFile, _
            FileFilter:="PDF Files (*.pdf), *.pdf", _
            Title:="ãÓíÑ æ äÇã ÝÇíá ÑÇ ÌåÊ ÐÎíÑå ÓÇÒí ãÔÎÕ äãÇÆíÏ")
    
    
    If myFile <> "False" Then
        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=myFile, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    
    
        MsgBox ".ÝÇíá ÈÇ ãæÝÞíÊ ÇíÌÇÏ ÑÏíÏ"
    End If
    Sheet2.Visible = xlSheetHidden
    exitHandler:
        Exit Sub
    errHandler:
        MsgBox "ÎØÇ ÏÑ ÇíÌÇÏ ÝÇíá"
        Resume exitHandler
    End Sub

  5. سپاس ها (1)


  6. #14


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها

    بله كاربرا امكان آپلود فايل هاي xlsm رو ندارند

    شما كدهاتون رو اصلاح نكردين هنوز. خطايي كه ميده به تغيير نام ربط نداره. كدهايي كه خدمتتون ارسال ميكنم رو جايگزين كدهاي خودتون بفرماييد


    کد:
    Sub Export()
    Dim ws As Worksheet
    Dim strPath As String
    Dim myFile As Variant
    Dim strFile As String
    On Error GoTo errHandler
    Set ws = Sheet2
    Sheet2.Visible = xlSheetVisible
    strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
                & "_" _
                & Format(Now(), "yyyymmdd\_hhmm") _
                & ".pdf"
    strFile = ThisWorkbook.Path & "\" & strFile
    
    
    myFile = Application.GetSaveAsFilename _
        (InitialFileName:=strFile, _
            FileFilter:="PDF Files (*.pdf), *.pdf", _
            Title:="ãÓíÑ æ äÇã ÝÇíá ÑÇ ÌåÊ ÐÎíÑå ÓÇÒí ãÔÎÕ äãÇÆíÏ")
    
    
    If myFile <> "False" Then
        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=myFile, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    
    
        MsgBox ".ÝÇíá ÈÇ ãæÝÞíÊ ÇíÌÇÏ ÑÏíÏ"
    End If
    Sheet2.Visible = xlSheetHidden
    exitHandler:
        Exit Sub
    errHandler:
        MsgBox "ÎØÇ ÏÑ ÇíÌÇÏ ÝÇíá"
        Resume exitHandler
    End Sub
    ممنونم انجام شد

  7. #15


    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط nazi nazi نمایش پست ها
    ممنونم انجام شد
    خواهش میکنم.اگه جوابتون رو گرفتین لطف کنید تاپیک رو حل شده کنید

  8. #16


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    خواهش میکنم.اگه جوابتون رو گرفتین لطف کنید تاپیک رو حل شده کنید
    چشم
    علت ناخوانا بودن فونت ها در بعضی سیستم ها چیه؟
    با اینکه زبان را هم تغییر میدن ولی باز ناخواناست
    مثل همین کدی که شما فرستادی
    باید چکار کرد؟

  9. #17


    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط nazi nazi نمایش پست ها
    چشم
    علت ناخوانا بودن فونت ها در بعضی سیستم ها چیه؟
    با اینکه زبان را هم تغییر میدن ولی باز ناخواناست
    مثل همین کدی که شما فرستادی
    باید چکار کرد؟

    كلا محيط vba با زبان هاي غير انگليسي مشكل داره و نشون نميده مگر اينكه تنظيمات زبان در كنترل پنلتون درست باشه. براي نمايش پيام هاي فارسي من دو راه پيشنهاد ميكنم.
    روش اول استفاده از كد اسكي بجاي متن
    روش دوم لينك دادن به يك سلول در اكسل

    قبلا اين موارد رو كامل توضيح دادم.

  10. #18


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها

    كلا محيط vba با زبان هاي غير انگليسي مشكل داره و نشون نميده مگر اينكه تنظيمات زبان در كنترل پنلتون درست باشه. براي نمايش پيام هاي فارسي من دو راه پيشنهاد ميكنم.
    روش اول استفاده از كد اسكي بجاي متن
    روش دوم لينك دادن به يك سلول در اكسل

    قبلا اين موارد رو كامل توضيح دادم.
    من متن فارسی را تونستم تبدیل کنم به اسکی ولی چطور باید جایگزین کنم؟
    مثلا این کد:
    کد PHP:
    مسیر و نام فایل را  جهت  ذخیره  سازی مشخص نمایید
    مسیر و نام فایل را جهت ذخیره سازی مشخص نمایید.

  11. #19


    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط nazi nazi نمایش پست ها
    من متن فارسی را تونستم تبدیل کنم به اسکی ولی چطور باید جایگزین کنم؟
    مثلا این کد:
    کد PHP:
    مسیر و نام فایل را  جهت  ذخیره  سازی مشخص نمایید
    مسیر و نام فایل را جهت ذخیره سازی مشخص نمایید.

    براي راحتي كار بريزيد داخل يك متغير و هرجا خواستيد استفاده كنيد. مثلا اينطوري:

    کد:
    msg= chr(227)&chr(211)&chr(237)&chr(209)&chr(32)&chr(230)&chr(32)&chr(228)&chr(199)&chr(227)&chr(32)&chr(221)&chr(199)&chr(237)&chr(225)&chr(32)&chr(209)&chr(199)&chr(32)&chr(32)&chr(204)&chr(229)&chr(202)&chr(32)&chr(32)&chr(208)&chr(206)&chr(237)&chr(209)&chr(229)&chr(32)&chr(32)&chr(211)&chr(199)&chr(210)&chr(237)&chr(32)&chr(227)&chr(212)&chr(206)&chr(213)&chr(32)&chr(228)&chr(227)&chr(199)&chr(237)&chr(237)&chr(207)&chr(46)&chr(32)
    
    MsgBox msg


صفحه 2 از 2 نخستنخست 12

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

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

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

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

  1. تغییر در دستور مورد نظر در ماکرو
    توسط maziardm در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2017/08/16, 12:49
  2. چگونگی تغییر فونت و رنگ در هنگام استفاده از دستور concatenate ؟؟
    توسط alireza_a4 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2017/08/03, 15:14
  3. تغییر رنگ داده ها در دستور if
    توسط siyamaksalimi در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2016/10/24, 21:53
  4. تغییر در خصوصیات سلول با نوشتن دستور
    توسط alishams119900 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 14
    آخرين نوشته: 2013/11/27, 13:33

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

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

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