Hot Fox: Re: ]] XL-mania [[ Penyederhanaan If Else End If

quarta-feira, 27 de janeiro de 2010

Re: ]] XL-mania [[ Penyederhanaan If Else End If

ADA !

wuih.... buanyak sekaleee codingnya
padahal cuma mau bilang "nama bulan berdasarkan 2 digit angka"

dengan asumsi nama sheet yg dituju terdiri dari 4 karakter atau lebih
di mana karakter ke 3 dan ke 4 berupa angka / numerik;
berikut ini dua diantara banyak pilihan:

1
Sub Bulan1()

   Dim bln As String, bulan As String
   bln = Mid(Sheets(2).Name, 3, 2)

   If CInt(bln) > 0 And CInt(bln) < 13 Then
      bulan = Format(DateSerial(2010, CInt(bln), 1), _
              "[$-421]MMMM") & " " & Year(Date)
      MsgBox bulan
   Else
      MsgBox "nama sheet tidak seperti yg diharapkan (DDMMYY/yymmdd)"
      bulan = "Error nama sheet: " & Sheets(2).Name
   End If
   Sheets(2).Range("A1") = _
      "RESUME REALISASI PEMANFAATAN DANA BULAN " + bulan

End Sub

2

Sub Bulan2()
   Dim bln
   bln = Mid(Sheets(2).Name, 3, 2)

   If CInt(bln) > 0 And CInt(bln) < 13 Then
      bln = Format(DateSerial(Year(Date), CInt(bln), 1), _
            "[$-421]MMMM YYYY")
   Else
      bln = "format nama sheet tidak sesuai harapan"
   End If

   MsgBox bln
   Sheets(2).Range("A1") = _
      "RESUME REALISASI PEMANFAATAN DANA BULAN " + bln

End Sub

----- Original Message -----
From: Herry Sutjipto
To: XL-mania@yahoogroups.com
Sent: Wednesday, January 27, 2010 7:42 AM
Subject: ]] XL-mania [[ Penyederhanaan If Else End If
Dear para XL-Mania –er,
Ada ide untuk menyederhanakan VBA berikut ini?

    Bln = Sheets(2).Name
    Bln = Mid(Bln, 3, 2)
    If Bln = "01" Then
       Bulan = "JANUARI"
    Else
       If Bln = "02" Then
          Bulan = "FEBRUARI"
       Else
          If Bln = "03" Then
             Bulan = "MARET"
          Else
             If Bln = "04" Then
                Bulan = "APRIL"
             Else
                If Bln = "05" Then
                   Bulan = "MEI"
                Else
                   If Bln = "06" Then
                      Bulan = "JUNI"
                   Else
                      If Bln = "07" Then
                         Bulan = "JULI"
                      Else
                         If Bln = "08" Then
                            Bulan = "AGUSTUS"
                         Else
                            If Bln = "09" Then
                               Bulan = "SEPTEMBER"
                            Else
                               If Bln = "10" Then
                                  Bulan = "OKTOBER"
                               Else
                                  If Bln = "11" Then
                                     Bulan = "NOPEMBER"
                                  Else
                                     If Bln = "12" Then
                                        Bulan = "DESEMBER"
                                     Else
                                        Bulan = "Salah Format!"
                                     End If
                                  End If
                               End If
                            End If
                         End If
                      End If
                   End If
                End If
             End If
          End If
       End If
    End If
    Range("A1") = "RESUME REALISASI PEMANFAATAN DANA BULAN " + Bulan + " 2010"

Terima kasih.

Best regards
Herry Sutjipto

__._,_.___

Reply to sender | Reply to group

Messages in this topic (2)

Recent Activity:

New Members 112

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Member ke 13,013 siapa ya? Sini mau dikirimin coklat :D           |
| Member ke 31,031 dapet iPod dehh.... :D :D :D                     |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Going Green: Your Yahoo! Groups resource for green living