کمک در مورد vba

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • امین نیما

    • 2015/05/24
    • 110

    [حل شده] کمک در مورد vba

    با سلام خدمت اساتید و دوستان

    اگه فرمول زیر را مشاهده بفرمایید

    "

    If Range("a1") = "hasan" Then
    Range("b1") = "C

    Else: Range("b1


    End If

    End Sub
    چطور باید فرمول رو اصلاح کرد به جای اینکه یک سلول رو بررسی کنه برای شرط چند تا سلول را برسی کنه مثلا از a1:a10 هر کجا hasan نوشته بود شرط برقرار باشه
    با تشکر
  • iranweld

    • 2015/03/29
    • 3341

    #2
    با سلام

    این هم کد درخواستی شما

    کد PHP:
    Sub test()
    For 
    1 To 10
    If Range("a" i) = "hasan" Then
    Range
    ("b"&i).Value "C"
    Else
    Range("b" i).Value "B"

    End If
    Next i

    End Sub 
    و اگر هم خواستی تا آخرین سلول پر ستون A را برای شما بررسی کنه طوری که شما انتهای ستون رو هر بار مشخص نکنید از کد ذیل استفاده کنید

    کد PHP:
    Sub test()

    Sheet1.Cells(Sheet1.Rows.Count"A").End(xlUp).Row

    For 1 To Z

    If Range("a" i) = "hasan" Then

    Range
    ("b"&i).Value "C"

    Else

    Range("b" i).Value "B"

    End If

    Next i

    End Sub 
    Last edited by iranweld; 2015/10/07, 12:15.

    کامنت

    • امین نیما

      • 2015/05/24
      • 110

      #3
      نوشته اصلی توسط iranweld
      با سلام

      این هم کد درخواستی شما

      کد PHP:
      Sub test()
      For 
      1 To 10
      If Range("a" i) = "hasan" Then
      Range
      ("b"&i).Value "C"
      Else
      Range("b" i).Value "B"

      End If
      Next i

      End Sub 
      و اگر هم خواستی تا آخرین سلول پر ستون A را برای شما بررسی کنه طوری که شما انتهای ستون رو هر بار مشخص نکنید از کد ذیل استفاده کنید

      کد PHP:
      Sub test()

      Sheet1.Cells(Sheet1.Rows.Count"A").End(xlUp).Row

      For 1 To Z

      If Range("a" i) = "hasan" Then

      Range
      ("b"&i).Value "C"

      Else

      Range("b" i).Value "B"

      End If

      Next i

      End Sub 
      با تشکر مشکل
      اینه که من نمیدونم PHP چیه و چجوری باید فرمول شما رو بکارگیری کرد در اکسل
      در مودل باید فرمول را کپی کرد
      یک توضیح کوچیک بدین در باره نحوه فعال سازی PHP llk,k ldal

      کامنت

      • iranweld

        • 2015/03/29
        • 3341

        #4
        با سلام

        فایل پیوست حاوی توضیحات اولیه میباشد
        فایل های پیوست شده

        کامنت

        • امین نیما

          • 2015/05/24
          • 110

          #5
          نوشته اصلی توسط iranweld
          با سلام

          فایل پیوست حاوی توضیحات اولیه میباشد
          با تشکر از شما سوال اخر این که کدوم قسمت فرمول مربوط به command boutom
          اجرای فرمول در فرمول شما است(چجوری اجرای فرمول رو به فرمول مربوط کردین)؟
          با تشکر از شما دوست گرامی

          کامنت

          • امین نیما

            • 2015/05/24
            • 110

            #6
            نوشته اصلی توسط امین نیما
            با تشکر از شما سوال اخر این که کدوم قسمت فرمول مربوط به command boutom
            اجرای فرمول در فرمول شما است(چجوری اجرای فرمول رو به فرمول مربوط کردین)؟
            با تشکر از شما دوست گرامی
            آقا ممنون متوجه شدم چیکار کردین فرق form control با activex control در چیست؟
            با تشکر

            کامنت

            چند لحظه..