ایجاد خودکار برگه در اکسل

Sub main()
Dim i As Integer
Dim name As String
 i = 1
 
Do While i < 4
Sheets("sheet1").Select
    name = Cells(i, 1).Value
     Call CreateSheet(name)
     
     i = i + 1
Loop
End Sub
Private Sub CreateSheet(name1)
    Dim ws As Worksheet
    With ThisWorkbook
        Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count))
        ws.name = name1
    End With
End Sub

دسته بندی ستون آخر به 3 کلاس

Sub nb()

Dim i, j As Integer
Set sht_Z = ThisWorkbook.Worksheets("sheet2")
LastColumn = sht_Z.UsedRange.Columns(sht_Z.UsedRange.Columns.Count).Column
  LastRow = sht_Z.Cells(sht_Z.Rows.Count, "A").End(xlUp).Row
  For i = 2 To LastRow
       If Cells(i, LastColumn) <= 6 Then
       Cells(i, LastColumn) = "A"
       ElseIf Cells(i, LastColumn) <= 10 Then
        Cells(i, LastColumn) = "B"
        Else
         Cells(i, LastColumn) = "C"
         End If
  Next i
End Sub

تابع SUMXMY2

این دستور مجموع مربعات خطای دو بردار رو محاسبه میکنه. برای حالتی استفاده میشه که مثلا ما یه تابع رو با یه الگوریتمی تقریب زدیم حالا میخوایم ببینیم چقدر تقریبمون درست بوده.

فرمول ریاضی

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

نمونه:

SUMXMY2(array_x,array_y)

SUMXMY2(A3:A9,B3:B9)

از مقادیر بزرگتر از صفر مجموعه میانگین میگیرد

Sub avg()
Dim sum As Integer
Dim num As Integer
Dim avg As Single

For j = 2 To 8400
sum = 0
num = 0
avg = 0
  For i = 68 To 75
     If Cells(i, j) > 0 Then
     sum = sum + Cells(i, j)
     num = num + 1
     End If
     If num < 1 Then
     Sheets("avg-day").Cells(12, j) = 0
     Else
     Sheets("avg-day").Cells(12, j) = sum / num
     End If
  Next i
Next j
End Sub

بیشینه، کمینه، میانگین و انحراف معیار هر سطر در اکسل

Sub foryou()
Dim j As Integer
Dim i As Integer

i = 14 'Select a row

  Rw = Range(Cells(i, 2), Cells(i, 2076)) 'Range beetwen 2 to 2076(column)
  
    Min = WorksheetFunction.Min(Rw)
    Max = WorksheetFunction.Max(Rw)
    avg = WorksheetFunction.Average(Rw)
    std = WorksheetFunction.StDev(Rw)
    
  Cells(15 + i, 2) = Max
  Cells(15 + i, 3) = Min
  Cells(15 + i, 4) = avg
  Cells(15 + i, 5) = std
End Sub

نرم افزار محاسبه سود بورس اوراق بهادار با اکسل

با نرم افزاری که در عکس زیر مشاهده می کنید می توانید سود معاملات خود را با محاسبه کارمزد و به صورت خالص مشاهده کرده. و نتایج معاملات خود را به سادگی ذخیره نمایید. در صورت تمایل به استفاده این نرم افزار ایمیل خود را به صورت نظر ارسال کنید تا به صورت رایگان ایمیل نمایم.

http://www.aparat.com/v/eP5mh

شمارش مقادیر بزرگتر از صفر

Sub compute()
     Dim cont As Integer
     Dim start As Integer
    start = 9
    For j = 2 To 8400
        cont = 0
             For i = start To start + 7
                 
                 If Sheets("A").Cells(i, j) > 0 Then
                 cont = cont + 1
                 End If
                 
            Next i
                       Sheets("B").Cells(2, j) = cont
     Next j
End Sub

جستجوی زیر رشته در اکسل

کد زیر چگونگی جستجوی رشته هایی که دارای زیر رشته ای خاص هستند را نشان میدهد

Public Sub Search()
For i = 102 To 1 Step -1
  If Cells(i, 1) Like "*-excel" Then
    Rows(i).Delete Shift:=xlToUp
  End If
  Next i
End Sub

کد برای اکسل. کوچکترین عضو یک مجموعه دلخواه

Sub delete()
Dim j As Integer
Dim out As Single
i = 25
 For j = 2 To 1201
  Rw = Range(Cells(i, j), Cells(i + 7, j))
out = WorksheetFunction.Min(Rw)
Worksheets("Target_total").Cells(10, j) = out
 Next j
End Sub

میانگین گیری در اکسل

Sub mn()
Dim avg As Single

For i = 1 To 1
  For j = 2 To 1395 Step 7
    Rw = Range(Cells(i, j), Cells(i, j + 6))
Cells(2, j) = WorksheetFunction.Average(Rw)
  Next j
Next i
End Sub