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
Selasa, 14 Agustus 2012
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
(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....
Langganan:
Postingan (Atom)