اجرای for با شرط از تکست باکس

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • narcissus

    • 2019/09/15
    • 17
    • 33.00
    #1

    [حل شده] اجرای for با شرط از تکست باکس

    سلام دوستان
    یه فرمی هست که داخلش اقساط ثبت میشه
    حالا میخوام که شماره قسط که ستون اول هست بصورت خودکار شماره بندی بشه تا آخرین شماره ای که در for 1 to 12 نوشته شده
    و تعداد اقساط رو از textbox1 برداره که در اینجا فعلا 12 هست
    وستون دوم تاریخ سررسید قسط هست که میخوام بصورت خودکار به فاصله یک ماه به تعداد اقساط پر بشه اولین قسط رو از textbox4 برداره
    فایل پیوست را مشاهده بفرمایید
    متشکر
    Book1(4).xls
    برچسب ها: for next
    • iranweld

      • 2015/03/29
      • 3341
      #2
      نوشته اصلی توسط narcissus
      سلام دوستان
      یه فرمی هست که داخلش اقساط ثبت میشه
      حالا میخوام که شماره قسط که ستون اول هست بصورت خودکار شماره بندی بشه تا آخرین شماره ای که در for 1 to 12 نوشته شده
      و تعداد اقساط رو از textbox1 برداره که در اینجا فعلا 12 هست
      وستون دوم تاریخ سررسید قسط هست که میخوام بصورت خودکار به فاصله یک ماه به تعداد اقساط پر بشه اولین قسط رو از textbox4 برداره
      فایل پیوست را مشاهده بفرمایید
      متشکر
      [ATTACH]20964[/ATTACH]

      از کد ذیل استفاده کنید

      کد PHP:
      Private Sub CommandButton1_Click()
      Dim i As Integer

      z1       = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row + 1

      If z1 = 1 Then z1 = 2



      If IsNumeric(Val(TextBox1)) Then

      For i = z1 To z1 + Val(TextBox1)-1

      Sheet1      .Range("A" & i) = Cells(i, 1) = i

      Sheet1      .Range("B" & i) = TextBox4.Value
      Sheet1      .Range("c" & i) = TextBox2.Value
      Sheet1      .Range("d" & i) = TextBox3.Value

      Next

      TextBox1      .Value = ""
      TextBox2.Value = ""
      TextBox3.Value = ""
      TextBox4.Value = ""

      End If

      End Sub 

        کامنت

        • majid_mx4

          • 2012/06/25
          • 699
          #3
          ضمن تشکر از استاد محترم جناب آقای IranWeldو کسب اجازه از ایشان

          توضیح : در مورد تاریخ بهتر است از Addin شمسی استفاده نمایید.یا ADDMonth ولی در مورد سریال نامبر از دستور زیر استفاده نمایید.
          کد:
          Private Sub CommandButton1_Click()
Dim i As Integer

z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row + 1


For b = 1 To Val(TextBox1)

For i = z1 To z1 + Val(TextBox1) - 1

Sheet1.Range("A" & i) = b
b = b + 1

Sheet1.Range("B" & i) = TextBox4.Value
Sheet1.Range("c" & i) = TextBox2.Value
Sheet1.Range("d" & i) = TextBox3.Value

Next
Next
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""



End Sub
          موفق باشید میر

            کامنت

            • narcissus

              • 2019/09/15
              • 17
              • 33.00
              #4
              سلام
              ممنونم ولی شماره ها false میافته

              - - - Updated - - -

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

                کامنت

                • majid_mx4

                  • 2012/06/25
                  • 699
                  #5
                  با سلام

                  لطفا فایل ضمیمه را بررسی نمایید.

                  توضیح : تاریخ در فرم بصورت اسلش دار وارد شود مثال 1399/03/06 در شیت بدون اسلش ثبت خواهد شد.

                  موفق باشید میر
                  فایل های پیوست شده

                    کامنت

                    • narcissus

                      • 2019/09/15
                      • 17
                      • 33.00
                      #6
                      نوشته اصلی توسط majid_mx4
                      با سلام

                      لطفا فایل ضمیمه را بررسی نمایید.

                      توضیح : تاریخ در فرم بصورت اسلش دار وارد شود مثال 1399/03/06 در شیت بدون اسلش ثبت خواهد شد.

                      موفق باشید میر

                      متشکرم استاد حل شد

                        کامنت

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