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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • sasan.kazemi

    • 2012/06/09
    • 7
    #1

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

    با سلام به اساتید محترم
    و تشکر از شما سروران گرامی

    پس از مطالعه آموزشهای این سایت وزین و در جهت راحت نمودن کار خودم در آزمایشگاه ، فایل زیر را با کمک نمونه فایلهای شما دوستان ، ایجاد نموده ولی در ادامه با مشکلات زیر مواجه گردیدم
    لطفا در صورت امکان بنده را راهنمایی نمائید

    در زمان ورود اطلاعات عددی در تکست باکسهای load و elongation در یوزر فرم و انتقال یافتن آنها به سلولهای مشخص شده در شیت ، فرمت اعداد به فرمت تکست تغییر مینماید که این مساله باعث عدم انجام محاسبات دیگر بر روی آن میگردد
    لطفا در صورت امکان دستوری را ارائه دهید که فرمت محدوده مشخص شده در شیت فایل نمونه را بعد از ورود اطلاعات عددی ، مجددا از تکست به نامبر برگرداند .

    لطفا فایل نمونه را از لینک زیر دانلود نمائید

    http://setareh-zagros-azarakhsh.com/test%20sheet.xlsm
    برچسب ها: هیچ‌کدام
    • Javid Mokhtari
      مدير تالار ويژوال بيسيك

      • 2012/01/16
      • 1212
      • 73.00
      #2
      RE: درخواست بازبینی فایل اکسل و کمک در جهت رفع مشکل

      نوشته اصلی توسط sasan.kazemi
      با سلام به اساتید محترم
      و تشکر از شما سروران گرامی

      پس از مطالعه آموزشهای این سایت وزین و در جهت راحت نمودن کار خودم در آزمایشگاه ، فایل زیر را با کمک نمونه فایلهای شما دوستان ، ایجاد نموده ولی در ادامه با مشکلات زیر مواجه گردیدم
      لطفا در صورت امکان بنده را راهنمایی نمائید

      در زمان ورود اطلاعات عددی در تکست باکسهای load و elongation در یوزر فرم و انتقال یافتن آنها به سلولهای مشخص شده در شیت ، فرمت اعداد به فرمت تکست تغییر مینماید که این مساله باعث عدم انجام محاسبات دیگر بر روی آن میگردد
      لطفا در صورت امکان دستوری را ارائه دهید که فرمت محدوده مشخص شده در شیت فایل نمونه را بعد از ورود اطلاعات عددی ، مجددا از تکست به نامبر برگرداند .

      لطفا فایل نمونه را از لینک زیر دانلود نمائید

      http://setareh-zagros-azarakhsh.com/test%20sheet.xlsm
      با سلام.
      فرمول هایی رو که به صورت:

      Worksheets("Sheet1").Range("B6").Value = TextBox7

      نوشته اید رو به شکل:

      Worksheets("Sheet1").Range("B6").Value = TextBox7.Text

      بنویسید.

      در ضمن به جای کدهای :

      UserForm1.TextBox8.Text = " "
      UserForm1.TextBox9.Text = " "
      UserForm1.TextBox10.Text = " "
      UserForm1.TextBox11.Text = " "
      UserForm1.TextBox12.Text = " "
      UserForm1.TextBox13.Text = " "
      UserForm1.TextBox14.Text = " "
      UserForm1.TextBox15.Text = " "
      UserForm1.TextBox16.Text = " "
      UserForm1.TextBox17.Text = " "
      UserForm1.TextBox18.Text = " "
      UserForm1.TextBox19.Text = " "
      UserForm1.TextBox20.Text = " "
      UserForm1.TextBox21.Text = " "
      UserForm1.TextBox22.Text = " "
      UserForm1.TextBox23.Text = " "
      UserForm1.TextBox24.Text = " "
      UserForm1.TextBox25.Text = " "
      UserForm1.TextBox26.Text = " "
      UserForm1.TextBox27.Text = " "
      UserForm1.TextBox28.Text = " "
      UserForm1.TextBox29.Text = " "
      UserForm1.TextBox30.Text = " "
      UserForm1.TextBox31.Text = " "
      UserForm1.TextBox32.Text = " "
      UserForm1.TextBox33.Text = " "
      UserForm1.TextBox34.Text = " "
      UserForm1.TextBox35.Text = " "
      UserForm1.TextBox36.Text = " "
      UserForm1.TextBox37.Text = " "
      UserForm1.TextBox38.Text = " "
      UserForm1.TextBox39.Text = " "
      UserForm1.TextBox40.Text = " "
      UserForm1.TextBox41.Text = " "

      میتونید از کد:

      For i = 8 To UserForm1.Controls.Count
      If TypeName(UserForm1.Controls(i)) = "TextBox" Then
      UserForm1.Controls(i).Text = ""
      End If
      Next

      هم استفاده کنید.
      [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
      بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

      شرکت در دوره:
      [/FONT][/SIZE]
      [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
      [/B][/FONT][/SIZE]
      [/CENTER]
      [/INDENT]
      [/FONT]

        کامنت

        • sasan.kazemi

          • 2012/06/09
          • 7
          #3
          RE: درخواست بازبینی فایل اکسل و کمک در جهت رفع مشکل

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

            کامنت

            قبلی template بعدی
            چند لحظه..