افزودن به شیت 2

فایل اکسل

دریافت
حجم: 18.9 کیلوبایت

جستجو1

Dim a As String

Private Sub CommandButton1_Click()
a = InputBox("نام را وارد کنید", inter)
j = 0
For i = 1 To 100
    If Trim(Sheet1.Cells(i, 1)) = Trim(a) Then
        j = j + 1
        Sheet2.Cells(j, 1) = Sheet1.Cells(i, 1)
        Sheet2.Cells(j, 2) = Sheet1.Cells(i, 2)
    End If
   
Next i
   
End Sub

فایل در پایین آمده است

دریافت
حجم: 20.4 کیلوبایت
توضیحات: فایل اکسل

دریافت
حجم: 10.2 کیلوبایت
توضیحات: فایل ورد

برنامه نویسی

فایل word

دریافت
حجم: 11.6 کیلوبایت

درخواست

عکس اول

دریافت
حجم: 44.2 کیلوبایت

عکس دوم

دریافت
حجم: 45.3 کیلوبایت

دانلود تمام فایلها

همه فایلهای اکسل رو اینجا گذاشتم

این فایل رو دانلود کن

دریافت
حجم: 92.1 کیلوبایت

مرتب کردن سلولها

m = 1

n = 1

For i = 1 To 100

    For j = 1 To 100

        If (Sheet1.Cells(i, j) <> "") Then

            Sheet2.Cells(m, n) = Sheet1.Cells(i, j)

            n = n + 1

        End If

    Next j

    n = 1

    m = m + 1

Next i

بین خانه ها فاصله دارد فاصله ها رو از بین میبرد

دریافت
حجم: 19.8 کیلوبایت

کوچک کردن عدد

Dim i As Double

i = 0

For j = 1 To 100

    i = Cells(j, 1) / 1000000

    i = Round(i, 0)

    Sheet2.Cells(j, 1) = i

Next j

جستجوی چندتایی

قسمتهایی که علامت زده شده اند را به تعداد دلخواه تکرار کن

j1 = 0
j2 = 0
j3 = 0
For i = 1 To 10000

    If (Cells(i, 1) = 175) Then
        j1 = j1 + 1
        Cells(j1, 8) = Cells(i, 1)
        Cells(j1, 9) = Cells(i, 2)
    End If
   
    If (Cells(i, 1) = 176) Then
        j2 = j2 + 1
        Cells(j2, 10) = Cells(i, 1)
        Cells(j2, 11) = Cells(i, 2)
    End If
   
    If (Cells(i, 1) = 177) Then
        j3 = j3 + 1
        Cells(j3, 12) = Cells(i, 1)
        Cells(j3, 13) = Cells(i, 2)
    End If
   
Next i

چند عدد رو سرچ میکند و نمایش میدهد

دریافت
حجم: 16.6 کیلوبایت

جستجو

پرانتز خط  5و6 به جای اخر اول خوردند
j = 0
For i = 1 To 10000
    If (Cells(i, 1) = 175) Then
        j = j + 1
        Cells(j, 8) = Cells(i, 1)
        Cells(j, 9) = Cells(i, 2)
    End If
Next i

عکس

دریافت
حجم: 182 کیلوبایت