Open Office Calc Macros campur Java Script bohongan


Biar nggak lupa … males ngoding lagi … 😆

Function IPK(nilai)  As String
    If nilai >= 80.5 Then
        IPK = "A"
    ElseIf nilai >= 70.5 Then
        IPK = "AB"
    ElseIf nilai >= 65.5 Then
        IPK = "B"
    ElseIf nilai >= 60.5 Then
        IPK = "BC"
    ElseIf nilai >= 55.5 Then
        IPK = "C"
    ElseIf theNilai >= 40 Then
        IPK = "D"
    Else
        IPK = "E"
    End If
End Function


Function akademik(masuk as Range) as String
    Dim strResult as String
    strResult = "javascript:{var iin=document.form;"
     Dim x,y
      for x=LBound( masuk,1) to UBound( masuk,1)
      for y=LBound( masuk,2) to UBound( masuk,2)
        strResult = strResult & masuk(x,y)&  ";"
    next y
   next x
    strResult = strResult & "iin.submit();}"
    akademik = strResult
End Function

Iklan
    • mas_arno
    • Juni 28th, 2009

    Alhamdulillah ternyata sehat2 karena masih bisa nulis di blog.

    Gimana hasil USG nya….

    Trims tips yang kecil namun ada manfaat khusus untuk saya.

  1. wah komment ahh..dah mampir klo g komment rugi…. Assalamualaikum..cuma seorang ikhwan yang berumur 18 thn dan ingin belajar… klo da waktu bisa mampir di blog sy mbak ato bu yaw… Rischan Blog ato mungkin bisa di Blog belajar komputerku dan blog saya sebagai orang temanggung wong temanggung blog tadi mampir..pingin nyari tutorial joomla ..pingin nyoba soalnya biasanya pake wp terus… salam kenal mbak ..salam hangat dari temanggung…

  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s