[µo°Ý] VBA ¼Ð·Ç®t°ÝÃD

taiwan16699

hi~¦U¦ì°ª¤â­Ì¡A¤p§Ì¼ç¤ô¤w¤[¡A¤µ¤é¹J¨ìvba¼Ð·Ç®tªº°ÝÃD·Q½Ð±Ð¦U¦ì
¥H¤U¬O§Úªºµ{¦¡½X!!

°ÝÃD¦b©ó§Úªºrawdata¬O¤@±Æ³£¬O¦P¼Ë¾ã¼Æ®É¡A¼Ð·Ç®t­pºâµ²ªG·|¥¿½T¨ÃÅã¥Ü¬°0
¦ý¤@±Æ¬°¦P¼Ë¤p¼Æ®É¡A«h¼Ð·Ç®t·|­pºâ¥XE-17¦¸¤è¡A½Ð°Ý¸Ó¦p¦ó¸Ñ¨M

ªþ¤WÀÉ®×!!


Sub toolmeanstd()

    Dim shTable As Worksheet
    Set shTable = Sheets("Finaltable")
    Set shraw = Sheets("data-tool")
   
    TableEndR = shTable.Range("A65536").End(xlUp).Row
    dataEndR = shraw.Range("H65536").End(xlUp).Row
    dataEndC = shraw.Range("XDF1").End(xlToRight).Column
   
    For R = 3 To TableEndR
        Set mappRng = shraw.Range("H1:XFD1").Find(Trim(shTable.Cells(R, 1)), LookAt:=xlWhole)
               
                If Not mappRng Is Nothing Then  '¤ñ¹ï¨ì¸ê®Æ
                mappC = mappRng.Column '(¦bmappRng½d³ò¸Ì¦³´X­Ócolumn)
                rowCnt = 0: dataSum = 0
               
                'shTable.Cells(R, 6) = shraw.Cells(1, mappC)
                    
                    For R1 = 2 To dataEndR
                            rowCnt = rowCnt + 1
                            dataSum = dataSum + shraw.Cells(R1, mappC)
                            shTable.Cells(R, 6) = dataSum / rowCnt
                    Next
                        
                    'Âk¹sªº¥Øªº¦b©ó©È¤§«e¦³¥Î¨ì¦¹ÅܼơA·|³y¦¨µ{¦¡²§±`
                    
                    sigma = 0
                    For R2 = 2 To dataEndR
                       sigma = sigma + ((shraw.Cells(R2, mappC).Value - (dataSum / rowCnt)) ^ 2)
                    Next

                    stdValue = (sigma / (rowCnt - 1)) ^ 0.5
                    shTable.Cells(R, 7) = stdValue
                              
                End If
    Next

End Sub