Selasa, 14 Agustus 2012

Default Sheet on First Load

Untuk menentukan sheet mana yang akan dibuka diawal pada saat file excel dibuka caranya cukup mudal, anda bisa menggunakan macro sederhana seperti dibawah ini :

Private Sub Workbook_Open()
  Sheets(1).Activate
End Sub

angka 1 adalah sebagai index atau nomor urut sheet yang akan dibuka, nomor ini bisa diganti dengan nama sheet tertentu, karena dikuatirkan sheet akan diubah urutannya.

Private Sub Workbook_Open()
  Sheets("Sheet3").Activate
End Sub

Senin, 23 Juli 2012

Get Column Letter From Number

Berikut ini adalah macro untuk konversi dari number ke column character.
(dibuat hingga 3 digit kolom, bagi pengguna Microsoft Excel 2010)

Function m_GetCell(iColumn As Integer) As String
  Dim i, vColumn1, vColumn2, vColumn3 As Integer
  Dim sColumn As String
 
  If iColumn <= 26 Then
    vColumn1 = iColumn + 64
  End If
  If iColumn > 26 And iColumn <= 26 * 26 Then
    vColumn1 = (iColumn - (iColumn Mod 26)) \ 26 + 64
    vColumn2 = iColumn Mod 26 + 64
  End If
  If iColumn > 26 * 26 And iColumn <= 26 * 26 * 26 Then
    vColumn1 = (((iColumn - (iColumn Mod 26)) \ 26) - ((iColumn - (iColumn Mod 26)) \ 26) Mod 26) \ 26 + 64
    vColumn2 = (iColumn - (iColumn Mod 26)) \ 26 Mod 26 + 64
    vColumn3 = iColumn Mod 26 + 64
  End If
  m_GetCell = Chr(vColumn1) & Chr(vColumn2) & Chr(vColumn3)
End Function


Sub test()
    MsgBox m_GetCell(16383)
End Sub


Semoga membantu,

Thanks

Rabu, 25 April 2012

Excel 2010 : SUMIFS & COUNTIFS

Excel 2010 : Sumif & Countif with multiple condition 

Sebenarnya hal ini sudah pernah saya jelaskan dengan menggunakan Excel 2003.

Nah kali ini bahasan serupa akan saya ulas kembali menggunakan Excel 2010. 
Dengan menggunakan excel 2010, maka anda sudah tidak perlu lagi melakukan Ctrl+Shift+Enter untuk membuat sumif dengan array data. Cukup dengan menggunakan SUMIFS dan COUNTIFS saja 
Format : 
SUMIFS(Sum_Range,Range_Data1,Criteria1,Range_Data2,Criteria2,…) COUNTIFS(Range_Data1,Criteria1,Range_Data2,Criteria2,…) 

Sebagai contoh array data adalah sebagai berikut : 
{1,2,3,4,5,6,7,8,9,0} 

Untuk sum data yang lebih besar dari 6 -> 7+8+9 = 24, dan jumlah data yang lebih besar dari 6 adalah 3  


Caranya adalah sebagai berikut :

=SUMIFS(B19:K19,B19:K19,">6")
=COUNTIFS(B19:K19,">6")

Selamat mencoba....