مشاهده عدد داخل تكست باكس بصورت سه رقم سه رقم

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • 4017

    • 2010/10/03
    • 114

    مشاهده عدد داخل تكست باكس بصورت سه رقم سه رقم

    چطوري ميشه اعداد داخل يه تكست باكسو بصورت سه رقم سه رقم با يه , نشون داد؟
    مثل سلول اكسل كه سه رقم جدا ميكنه
    [color=#1e90ff]اگر تنهاترين تنهايان شوم بازهم خدا هست،
    او جانشين تمام نداشته هاي من است...![/color]
  • mokaram
    مدير تالار اکسل و بانک اطلاعاتی

    • 2011/02/06
    • 1805
    • 74.00

    #2
    از کد زیر استفاده کنید
    کد PHP:
    Private Sub TextBox1_Change()
    TextBox1.Text Format(TextBox1"#,###")
    End Sub 
    [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
    [/CENTER]

    کامنت

    • mokaram
      مدير تالار اکسل و بانک اطلاعاتی

      • 2011/02/06
      • 1805
      • 74.00

      #3
      اگه مشکلتون حل شد تیک سبز رنگ معروف ( حل شده ) را فراموش نشه
      [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
      [/CENTER]

      کامنت

      • amin.t

        • 2014/06/30
        • 91

        #4
        نوشته اصلی توسط M_R_M
        از کد زیر استفاده کنید
        کد PHP:
        Private Sub TextBox1_Change()
        TextBox1.Text Format(TextBox1"#,###")
        End Sub 
        سلام
        من یه تکست باکس دارم که براش شرط گذاشتم اگر عدد شد حرف ارور بده و فقط اجازه تایپ عدد رو میده
        حالا اگر بخوام کلمه تومان را به آخر هر قیمتم اضافه کنیم اخطار می ده
        آیا روشی برای اضافه کردن کلمه تومان بدون گرفتن اخطار وجود داره ؟

        کامنت

        • mokaram
          مدير تالار اکسل و بانک اطلاعاتی

          • 2011/02/06
          • 1805
          • 74.00

          #5
          نوشته اصلی توسط amin.t
          سلام
          من یه تکست باکس دارم که براش شرط گذاشتم اگر عدد شد حرف ارور بده و فقط اجازه تایپ عدد رو میده
          حالا اگر بخوام کلمه تومان را به آخر هر قیمتم اضافه کنیم اخطار می ده
          آیا روشی برای اضافه کردن کلمه تومان بدون گرفتن اخطار وجود داره ؟
          میشه کدی را که نوشتید بزارید؟
          [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
          [/CENTER]

          کامنت

          • amin.t

            • 2014/06/30
            • 91

            #6
            نوشته اصلی توسط M_R_M
            میشه کدی را که نوشتید بزارید؟
            این کد منه :
            کد:
            Private Sub vol_change()
            
            
            If vol.Text <> "" And Not IsNumeric(vol.Text) Then
                MsgBox "مقادیر را عددی وارد کن"
                vol.Text = ""
            End If
            End Sub
            p1.xlsm

            کامنت

            • mokaram
              مدير تالار اکسل و بانک اطلاعاتی

              • 2011/02/06
              • 1805
              • 74.00

              #7
              شما تو باتن ثبت این کار را انجام بده
              کد PHP:
              Private Sub CommandButton1_Click()

              If 
              vol.Text "" Then
                  MsgBox 
              ". مقادير قيمت را وارد کنيد"
                  
              Exit Sub
              End 
              If
              Range("a1").Value vol.Text " تومان"
                      
               
              End


              End Sub 
              [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
              [/CENTER]

              کامنت

              • Javid Mokhtari
                مدير تالار ويژوال بيسيك

                • 2012/01/16
                • 1212
                • 73.00

                #8
                با سلام.
                می شود ...
                کد PHP:
                If vol.Text <> "" And Not IsNumeric(vol.TextThen 
                   MsgBox 
                "Not IsNumeric"   
                 
                vol.Text ""
                ElseIf vol.Text <> "" And IsNumeric(vol.TextThen
                vol
                .Text vol.Text "تومان"
                End If 
                اما اینکار اصلا توصیه نمی شود چون فرمت باکس شما به text تغییر کرده و در محاسبات اشکال بوجود می آید.
                شما باید واحد خود را جدا از باکستان قرار دهید یا مثل روشی که دوست خوبمون آقا مهدی گفتن عمل کنید یا اصلا فرمت سلول را روی corrency یا accounting قرار دهید
                Last edited by Javid Mokhtari; 2014/07/23, 14:23.
                [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]

                کامنت

                • amin.t

                  • 2014/06/30
                  • 91

                  #9
                  نوشته اصلی توسط jansiz hayat
                  با سلام.
                  می شود ...
                  کد PHP:
                  If vol.Text <> "" And Not IsNumeric(vol.TextThen 
                     MsgBox 
                  "Not IsNumeric"   
                   
                  vol.Text ""
                  ElseIf vol.Text <> "" And IsNumeric(vol.TextThen
                  vol
                  .Text vol.Text "تومان"
                  End If 
                  اما اینکار اصلا توصیه نمی شود چون فرمت باکس شما به text تغییر کرده و در محاسبات اشکال بوجود می آید.
                  شما باید واحد خود را جدا از باکستان قرار دهید یا مثل روشی که دوست خوبمون آقا مهدی گفتن عمل کنید یا اصلا فرمت سلول را روی corrency یا accounting قرار دهید
                  ممنون از راهنماییتون

                  کامنت

                  • amin.t

                    • 2014/06/30
                    • 91

                    #10
                    نوشته اصلی توسط M_R_M
                    از کد زیر استفاده کنید
                    کد PHP:
                    Private Sub TextBox1_Change()
                    TextBox1.Text Format(TextBox1"#,###")
                    End Sub 
                    سلام
                    اگر بخوام اعدادی که در تکست باکس وارد می کنم باپر شدن تکس باکس فونتشون کوچک بشه باید چکار کرد ؟

                    کامنت

                    • mokaram
                      مدير تالار اکسل و بانک اطلاعاتی

                      • 2011/02/06
                      • 1805
                      • 74.00

                      #11
                      نوشته اصلی توسط amin.t
                      سلام
                      اگر بخوام اعدادی که در تکست باکس وارد می کنم باپر شدن تکس باکس فونتشون کوچک بشه باید چکار کرد ؟
                      منظورتون از کوچک شدن فونت اینه که عدد خاصی باشه یا بسته به طول رشته وارده تو تکست باکس اندازه فونت را فیت کنه؟
                      [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
                      [/CENTER]

                      کامنت

                      • amin.t

                        • 2014/06/30
                        • 91

                        #12
                        نوشته اصلی توسط m_r_m
                        منظورتون از کوچک شدن فونت اینه که عدد خاصی باشه یا بسته به طول رشته وارده تو تکست باکس اندازه فونت را فیت کنه؟
                        عدد فیت داخل تکست باکس بشه. مثل حالت align shrink to fit که برای یک سل تنظیم می کنیم.

                        یه سئوال دیگه هم داشتم اینه که توی تکست باکس چطوری متن یا اعدادو بصورت عمودی وسط چین کنم !!

                        کامنت

                        چند لحظه..