RUMUS EXCEL
'=LEFT(D3;SEARCH(" ";D3))*E3
RUMUS JAM DIGITAL
=============================
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(Row.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
CODING INSERT FOTO
===========================
Sub InsertFotoDiCellAktif()
Dim strFile As String
Dim rng As Range
Dim sh As Shape
Const cFile As String = "Image Files(*.jpg; *.jpeg; *.png),"
strFile = Application.GetOpenFilename(FileFilter:=cFile, Title:=Es)
If strFile = "False" Then
Else
Set rng = ActiveCell
Set rng = rng.MergeArea
With rng
Set sh = ActiveSheet.Shapes.AddPicture(Filename:=strFile, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
sh.LockAspectRatio = msoFalse
End With
Set sh = Nothing
Set rng = Nothing
End If
End Sub