Google sheet: Formula mencari Rank mengikut kelas

 Formula mencari rank mengikut kelas apabila terdapat semua senarai nama mengikut tingkatan dalam satu sheet. Contoh tujuan mencari kedudukan dalam kelas.

Bagi contoh di bawah, rank kelas adalah menggunakan  formula

 =SUMPRODUCT((B2=$B$2:$B$11)*(C2<$C$2:$C$11))+1

Taip pada cell E2 dan tarik ke bawah Contoh:

Rank = mencari kedudukan murid dalam tingkatan (tutorial DI SINI)

Rank kelas = mencari kedudukan murid dalam kelas

Read More

Data studio: Memaparkan data berdasarkan carian input box pada page berbeza

 Jika report data studio anda mempunyai lebih daripada 1 page dan ingin memaparkan data berdasarkan carian id menggunakan input box pada page yang seterusnya, ikuti langkah berikut

1. Klik input box

2. Kemudian pada menu bar, klik Arrange > Make report-level. Pada setiap page akan kelihatan input box yang sama

Siap. test report anda. Klik view, masukkan carian kemudian tekan enter. Paparan data akan muncul mengikut carian tadi

Read More

Menghasilkan lembaran kerja 'padankan gambar dengan bayang' menggunakan ms Word

1. Cari gambar yang sesuai. Boleh guna website pixabay.
2. Insert table supaya senang nak susun. Tak nak guna table pun boleh
3. Klik table. kemudian klik layout > Alignment > Align Center
4. Kemudian insert picture yang dikehendaki
5. Copy dan paste imej  untuk dijadikan bayang. Klik pada imej yang hendak dijadikan bayang tadi kemudian klik Picture Format > Correction > Brightness. klik dan tarik slider ke kiri hingga -100.
6. Untuk hilangkan border table, select table kemudian klik Table design > Borders > No border

Read More

Scratch: Bundarkan nombor kepada dua titik perpuluhan

 

Read More

Cara guna scratch pada telefon pintar

Cara setting untuk paparan scratch seperti pada pc. 

Cara nak zoom 

Kawasan yang boleh 'pinch' untuk zoom 

 

Read More

Format No KP pada datastudio

Sekarang ramai yang set formula pada excel atau google sheet no kp kepada format contohnya 060112-01-1234. Jika ia sekadar untuk paparan atau print semata di google sheet atau excel tiada masalah. Tetapi apabila data tersebut kita gunakan untuk paparan pada data studio atau untuk carian mengikut nombor kad pengenalan, ia akan menjadi suatu masalah untuk mendapatkan data.

Ada yang menghasilkan data studio, tetapi apabila membuat carian, data tidak dijumpai walaupun nokp dimasukkan kelihatan sama dengan data pada google sheet

 Sebenarnya, untuk data-data yang melibatkan nombor, tetapi tidak terlibat dalam pengiraan, kita boleh setkan ia sebagai Text atau Plain Text contohnya No KP, Poskod, No Telefon, ID dan sebagainya. Apabila kita setkan sebagai Text atau Plain Text, nombor 0 di depan tidak akan hilang.

Jom tengok perbezaan menggunakan Custom Format (0000000-00-0000) vs Plain Text bagi nokp terutama apabila melibatkan data studio 

Dalam video juga ada tunjukan cara update table dan jenis data jika berlaku perubahan pada google sheet

Read More

bypass password excel vba

Buka file yang ada password

Create New File >> Buka VBA, Create Module, paste kod di bawah

Save pada module 1

Option Explicit Private Const PAGE_EXECUTE_READWRITE = &H40 Private Declare PtrSafe Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _ (Destination As LongPtr, Source As LongPtr, ByVal Length As LongPtr) Private Declare PtrSafe Function VirtualProtect Lib "kernel32" (lpAddress As LongPtr, _ ByVal dwSize As LongPtr, ByVal flNewProtect As LongPtr, lpflOldProtect As LongPtr) As LongPtr Private Declare PtrSafe Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As LongPtr Private Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, _ ByVal lpProcName As String) As LongPtr Private Declare PtrSafe Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As LongPtr, _ ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _ ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer Dim HookBytes(0 To 5) As Byte Dim OriginBytes(0 To 5) As Byte Dim pFunc As LongPtr Dim Flag As Boolean Private Function GetPtr(ByVal Value As LongPtr) As LongPtr GetPtr = Value End Function Public Sub RecoverBytes() If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 6 End Sub Public Function Hook() As Boolean Dim TmpBytes(0 To 5) As Byte Dim p As LongPtr Dim OriginProtect As LongPtr Hook = False pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA") If VirtualProtect(ByVal pFunc, 6, PAGE_EXECUTE_READWRITE, OriginProtect) <> 0 Then MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6 If TmpBytes(0) <> &H68 Then MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 6 p = GetPtr(AddressOf MyDialogBoxParam) HookBytes(0) = &H68 MoveMemory ByVal VarPtr(HookBytes(1)), ByVal VarPtr(p), 4 HookBytes(5) = &HC3 MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6 Flag = True Hook = True End If End If End Function Private Function MyDialogBoxParam(ByVal hInstance As LongPtr, _ ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _ ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer If pTemplateName = 4070 Then MyDialogBoxParam = 1 Else RecoverBytes MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _ hWndParent, lpDialogFunc, dwInitParam) Hook End If End Function

save pada module 2, kemudian run Sub unprotected() If Hook Then MsgBox "VBA Project is unprotected!", vbInformation, "*****" End If End Sub

Read More