问汇总分数表生成叙述性报告

EN

Sub test()
    Dim shpRpt As Shape
    Dim Ws As Worksheet
    Dim myString As String
    Dim sName As String, sTest1 As String, sTest2 As String
    Dim sTest3 As String, sTest4 As String
    Dim sGender As String
    
    
    Set Ws = ActiveSheet
    Set shpRpt = Ws.Shapes("Report")
    
    With Ws
        sName = .Range("a12")
        sTest1 = .Range("b4")
        sTest2 = .Range("c4")
        sTest3 = .Range("b5")
        sTest4 = .Range("c5")
        If .Range("c12") = "male" Then
            sGender = "His"
        Else
            sGender = "Her"
        End If
    End With
  
 
    myString = "The Math was administered for " & sName & "'s assessment. The Math is a standardized measure of development for Sample High School," _
        & "and places a strong emphasis on child-friendly, developmentally appropriate features and tasks. The WISC-V is an individually" _
        & "administered assessment that reports scores as Raw Scores (RS) with a mean (average) of 100 and standard deviation of 15," _
        & "with most people scoring between 85 and 115. Tests administered in the school environment do not capture every aspect of math ability;" _
        & " however, these tests are useful in predicting how intense instruction needs to be in order for the individual to master academic content. " _
        & sName & "'s Overall Math Test performance on the school-based measure of cognitive processing abilities falls within the Average range (RS=" & sTest1 & ";PR=" & sTest2 & "). " _
        & vbCrLf & vbCrLf _
        & "Algebra is a branch of mathematics dealing with symbols and the rules for manipulating those symbols. On this subtest," _
        & "Mike scored within the Significantly Below Average range (RS=" & sTest3 & ";PR=" & sTest4 & "). " & sGender & " scores varied quite drastically throughout the assessment."
   
   
   shpRpt.TextFrame2.TextRange = myString
End Sub