Follow along with the video below to see how to install our site as a web app on your home screen.
Not: This feature may not be available in some browsers.
DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.
Güncel olmayan bir tarayıcı kullanıyorsunuz. Bunu veya diğer web sitelerini doğru şekilde göstermeyebilir. Yükseltmeli veya bir alternatif kullanmalısınız. tarayıcı.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C9999]) Is Nothing Then
Cells(Target.Row, "A") = Date + Time
Range("A" & Target.Row).Characters(1, 10).Font.Color = vbRed
Range("A" & Target.Row).Characters(12, 5).Font.Color = vbGreen
End If
End Sub
Böyle bir kod...