افزودن rows پس از ورود اطلاعات

[jeddi]

سلام به دوستان و اساتید محترم
من سئوال درخواستیمو جستجو کردم ولی پاسخ مورد نظر من نبود
اینکه می خوام تو یه محدوده (ردیف یک تا 20 )، از ردیف 2 تا 20 Hide باشند و با وارد کردن اطلاعات ردیف یک ، ردیف دو فعال بشه unhide جهت وارد کردن اطلاعات به همین ترتیب ادامه پیدا بکنه ... و همچنین یه محدوده در همان شیت از ردیف 30 تا 50 ، ردیف 31 تا 50 Hide باشند و با وارد کردن اطلاعات ردیف 30 ، ردیف 31 فعال بشه unhide ...
و یه سوال دیگرم اینکه تو یه فرم سه تا TextBox دارم وقتی عدد را تو TextBox1 و TextBox2 وارد می کنم محاسبات می خوام اتومات تو TextBox 3 اعمال بشه بلد نیستم ولی فعلا یه CommandButton گذاشتم از طریق اون انجام میدم
متشکر از لطف همه دوستان و اساتید

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

[امين اسماعيلي]

با درود
این که نشد که یعنی من مطمعن باشم شما پیدا نکردی - مورد سومتو که قبلا صد در صد انجام شده - مورد اولتو هم که نمونه کدش هست باید با کارت وقف بدی - یعنی تا یه جاییش بری بعدش بگی کجاش مشکل داری - بعدشم تویه ردیف مثلا 1 تا 20 - کدوم سل ها توی ستونش باید جتما پر بشه تا بعدی فعال بشه - ایا همش باید پر بشه یا نه ......... اینا همش تاثیر گذاره و .........

[امين اسماعيلي]

با درود
اما حالا چون بار اولی دارم بهت میگم یه ذره کمک بهت میکنم برای مورد اولت
مثلا یه همچی کدی میخوای - اولش ردیف های 2 تا 20 رو هاید کن بعد کد زیر رو تو صفحه کد اون شیت کپی کن

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
  If Not Intersect(Target, Range("A1:A20")) Is Nothing Then
  If Target.Offset(1, 0).EntireRow.Hidden = True Then
  Target.Offset(1, 0).EntireRow.Hidden = False
  End If
  End If
   
End Sub

تو این کد منظور ما اینه که حتما تو ستون A و در رنج A1:A20 اطلاعات وارد بشه یعنی اهمیت داره و اگر ردیف بعدش هاید باشه و ما اطلاعاتی وارد کرده باشیم از هاید در بیاد -
حالا خودت کم کم ارتقاعش بده باشه .

واسه اون تکست باکس هاتم
تو ایونت Change تکست باکس 2 اینطوری بنویس

Private Sub TextBox2_Change()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub