نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

موضوع: textbox

  1. #1


    آخرین بازدید
    2022/09/06
    تاریخ عضویت
    November 2010
    نوشته ها
    140
    امتیاز
    23
    سپاس
    22
    سپاس شده
    25 در 22 پست
    سطح اکسل
    68.00 %

    textbox

    سلام
    فرمي براي ورود اطلاعات دارم كه در هر مرحله نياز به چند تا تكست دارم اما تعداد تكستها در اين فرم در هر مرحله فرق دارد . آيا ميشه با باز شدن هر فرم تعداد مورد نياز تكست ها را در ايجاد نمود. مثلا وقتي با يه كامندي اين فرم را باز كنيم 10 تا تكست ايجاد بشه و با يه كامند ديگه اي 12 تا تكست باز بشه ؟ البته در طراحي فرم هيچ تكستي گذاشته نشود و تكست ها به صورت بالا ايجاد و ساخته بشن.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    مواظب باشید به تابوت من آگهی تبلیغاتی نچسبانند (حسين پناهي)

  2.  

  3. #2


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    با استفاده از کد زیر موقع لود شدن فرم 5 تا تکست باکس تو فرم ساخته میشه و برای اینکه تعداد تکست باکسها با هر یوزری که وارد میشه متفاوت باشه بقیه دوستان حتما نظر خواهند داد.

    کد PHP:
    'Option Explicit
    Private Sub UserForm_Initialize() 
           Dim txtB1 As Control
           Dim i
            For i = 0 To 5
            Set txtB1 = Controls.Add("Forms.TextBox.1") 
           With txtB1 
               .Name = "myText" & i 
               .Height = 20  
                .Width = 50   
                .Left = 10  
              .Top = 10 * i * 2   
         End With
        Next i  
    End Sub 
    ویرایش توسط Nima : 2013/11/09 در ساعت 12:03
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************



  4. #3


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    با استفاده از کد زیر قبل از اجرای فرم از طریق InputBox تعداد تکست باکسها از کاربر گرفته میشه بعد بر اساس همین تعداد تکست باکس به فرم اضافه میشود.

    کد:
    Private Sub UserForm_Initialize()
        Dim txtB As Control
        Dim i As Integer
        Dim txt As Integer
        
        txt = InputBox("ÊÚÏÇÏ Ê˜ÓÊ Èǘӿ", "ÊÚÏÇÏ")
    
    
        For i = 1 To txt
            Set txtB = Controls.Add("Forms.TextBox.1")
            With txtB
                .Name = "myText" & i
                .Height = 20
                .Width = 80
                .Left = 10
                .Top = 10 * i * 2
            End With
        Next i
    End Sub
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************



  5. #4


    آخرین بازدید
    2019/06/24
    تاریخ عضویت
    August 2012
    نوشته ها
    42
    امتیاز
    4
    سپاس
    31
    سپاس شده
    4 در 2 پست
    تعیین سطح نشده است

    سلام
    شما نام تکست باکس ها رو myText & i قرار دادین ولی موقعی که این تکس باکس مقدار می گیره چطوری مقدارشو به یک سلول در شیت بدیم (اگه توی حلقه for قرار بدیم این مقدار رو نمی شناسه cells(i , 1).value=mytext(i).value).می شه راهنمایی بفرمایید .ممنون

  6. #5


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    مقدار i را یک متغییر public در خط ابتدای ماژولها معرفی کنید

    کد PHP:
    Public As Integer 
    کد PHP:
    Public As Integer

    Private Sub CommandButton1_Click()


    For 
    1 To i 1

    Cells
    (t1) = Me.Controls("myText" t)

    Next

    End Sub




    Private Sub UserForm_Initialize()

        
    Dim txtB As Control
        
        Dim txt 
    As Integer
        
        txt 
    InputBox("input textbox count")
        
        For 
    1 To txt
            Set txtB 
    Controls.Add("Forms.TextBox.1")
            
    With txtB
                
    .Name "myText" i
                
    .Height 20
                
    .Width 80
                
    .Left 10
                
    .Top 10 3
            End With
        Next i
        
        UserForm1
    .Height = (10 3) + 50
    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls Book2.xls اطلاعات (43.0 کیلو بایت, 6 نمایش)
    ویرایش توسط iranweld : 2018/08/26 در ساعت 14:08


  7. #6


    آخرین بازدید
    2019/06/24
    تاریخ عضویت
    August 2012
    نوشته ها
    42
    امتیاز
    4
    سپاس
    31
    سپاس شده
    4 در 2 پست
    تعیین سطح نشده است

    جناب iranweld ممنون از راهنماییتون
    من کدهارو روی فرم پیوست اجرا کردم ولی یه مشکل هست و اینکه بعد از اینکه کاربر جدید اضافه می کنم و تکست باکس ها به فرم اضافه می شن دگمه ثبت ناقص عمل می کنه یعنی فقط برای آخرین عضو(عضو جدید) کار می کنه و فقط اطلاعات اون ثبت می شه.
    ممنون
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls Book1.xls اطلاعات (23.1 کیلو بایت, 5 نمایش)

  8. #7


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    فایل پیوست را بررسی کنید
    فايل هاي پيوست شده فايل هاي پيوست شده

  9. سپاس ها (2)


  10. #8


    آخرین بازدید
    2019/06/24
    تاریخ عضویت
    August 2012
    نوشته ها
    42
    امتیاز
    4
    سپاس
    31
    سپاس شده
    4 در 2 پست
    تعیین سطح نشده است

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

  11. #9


    آخرین بازدید
    2019/06/24
    تاریخ عضویت
    August 2012
    نوشته ها
    42
    امتیاز
    4
    سپاس
    31
    سپاس شده
    4 در 2 پست
    تعیین سطح نشده است

    سلام
    در مورد دکمه ای که قرار هست تکست باکس و لیبل ایجاد کنه اگه دکمه رو توی یک frame بذاریم دکمه عمل می کنه ولی با این تفاوت که مواردی که ایجاد می کنه رو روی فرم اصلی و پشت frame ایجاد می کنه که دیده نمی شن .اگه ممکنه راهنمایی بفرمایید.ممنون


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

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

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

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

  1. Right Click در TextBox
    توسط Javad-2010 در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 10
    آخرين نوشته: 2016/08/21, 21:37
  2. ثبت تاريخ در textbox فرم اکسل
    توسط bakhshism در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2012/11/15, 14:59
  3. نمایش خودکار تاریخ شمسی در textbox
    توسط sohrabahmadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/06/09, 17:43
  4. textbox
    توسط sonbol در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/03/13, 15:19
  5. استفاده از حلقه در TextBox
    توسط hpcompaq6720s در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2011/07/12, 13:22

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

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

کلمات کلیدی این موضوع

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

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

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