see 2nd reply for powerbi update
Hello guys ginawa ko lang tong thread para sa mga kasymb natin na need ng tulong about MS excel. mga reporting staff, encoders, data analyst, secrectary, or Ms excel systems. pasok po kayo dito. share tayo ng knowledge. i will provide tutorials too. believe me after learning this things after a month i got my promotion to go up another level from our company. so try it now. made your bosses like their jaws drop.
on my first example. you will see chart with controls like the picture below.
View attachment 156421
here you will see conditional formatting with toggle.like the picture below.
View attachment 156426
now you will see a picture album using excel. but in this tutorial i'll give you an example of animal album.
View attachment 156660
in this picture you will see a chart that looks like a temperature. it would be helpful to a presentations with a sales and target sales.
View attachment 156997
now in this picture you will see a speedo meter chart with control. the tutorial was provided from the attachment.
View attachment 157003
at eto naman ang sample dashboards ko
sample 1
sample 2
if nagustohan nyo po. pwede nyo sya idownload sa baba.View attachment 156421
here you will see conditional formatting with toggle.like the picture below.
View attachment 156426
now you will see a picture album using excel. but in this tutorial i'll give you an example of animal album.
View attachment 156660
in this picture you will see a chart that looks like a temperature. it would be helpful to a presentations with a sales and target sales.
View attachment 156997
now in this picture you will see a speedo meter chart with control. the tutorial was provided from the attachment.
View attachment 157003
at eto naman ang sample dashboards ko
sample 1
sample 2
digital clock by dhok si...
hi mga tol share ko lng nala2man ko sa excel 2010..ngaun araw na to tu2ro ko sa inyo kung paano gumawa ng digital clock sa excel 2010
e2 un code sa vba
Dim running As Boolean
Sub test()
Const QRT As Integer = 4, Year As Integer = 12
Cells(1, 1) = 12 / QRT
Cells(1, 2) = 12 / Year
End Sub
Sub test2()
Dim rng As Range
Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range(Cells(1, 1), Cells(lr, 1))
rng.Font.ColorIndex = 4
End Sub
Sub Clock()
running = Not (running)
Do While running = True
DoEvents
Range("A1") = Now
Loop
End Sub
- - - Updated - - -
kopyahin nyo lng yan..tapos sundin nyo un video na ginawa ko
e2 un link http://www.youtube.com/watch?v=csXhTkHVp08
- - - Updated - - -
e2 pa isang ginawa ko hijri to gregorian calendar
http://www.youtube.com/watch?v=8uUrpmDtLow
sana po magshare din ang iba,
grading system excel application upload by our contributors. http://www.symbianize.com/showthread.php?t=1132342&p=19858679&viewfull=1#post19858679
eto na po para yung iba di na masyado magtanong sa excel tricks. lalo na mga charts with controls. im giving you all this.
Excel hacks.rar
eto po splitted into two parts. thanks to devildarkrs
part 1
http://www.symbianize.com/attachment.php?attachmentid=1043979&d=1436253924
part 2
http://www.symbianize.com/attachment.php?attachmentid=1043978&d=1436253924
credits to creator of the book.
HOW TO UNLOCK VBA PROJECT
credits goes to athenesia
credits goes to athenesia
try mu to...
1. Open mu yung file na may protected vba project.
2. Pag naka open na, Ctrl+N ka para mag open ng new blank workbook.
3. Pag open na yung new blank workbook, Alt+F11 ka para mapunta sa vba projects.
4. Under dun sa vba ng new blank workbook(Book1) isert ka ng module.
5. Module 1 yan default name. Ipaste mu itong code na to.
Code: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
6. Insert ka ulit isa pang module(Module 2) at ipaste naman tong code na to.
7. irun mu na ngayon yung code sa module 2.Code:Sub unprotected() If Hook Then MsgBox "VBA Project is unprotected!", vbInformation, "*****" End If End Sub
unlock na vba project mu.
Attachments
Last edited: