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 کیلوبایت
توضیحات: فایل ورد
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
بین خانه ها فاصله دارد فاصله ها رو از بین میبرد
دریافت
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
چند عدد رو سرچ میکند و نمایش میدهد
