1 sayfadan 1. sayfa

ToggleButton Örnek

İletiTarih: 02 Şub 2009 15:17
Tarkan VURAL
Sayfa içindeki bir ToggleButton aracılığı ile A2 hücresine sayı saydırıyoruz ve istediğimiz zaman sayma işini durduruyoruz.

Excel sayfa içine bir ToggleButton ekleyin ve aşağıdaki gibi kodlayın:

Kod: Tümünü seç
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
Me.ToggleButton1.Caption = "Saydır"
End
Else
Me.ToggleButton1.Caption = "Durdur"
Do
DoEvents
i = i + 1
Range("a2").Value = i
Loop Until i = 20000
End If
End Sub

ToggleButton Örnek

İletiTarih: 02 Şub 2009 16:36
kan-nas
Selamlar; acabakaç dakiyada saat eExcel dosyasının açık kaldığını yada kapanınca kaç dakika açık kaldığını öğrenebilir miyiz.? [uzulme]

ToggleButton Örnek

İletiTarih: 03 Şub 2009 08:12
kan-nas
Selamlar; acaba kaç dakika yada saat Excel dosyasının açık kaldığını yada kapanınca kaç dakika açık kaldığını öğrenebilir miyiz.?

ToggleButton Örnek

İletiTarih: 03 Şub 2009 10:25
Tarkan VURAL
Dosya açılışında günün tarihi ile birlikte saatini alıp bir değişken içinde sabitlersiniz. Kapanışta kapandığı zamanı önceki zaman ile karşılaştırabilirsiniz.

Kod: Tümünü seç
Public zaman
Sub auto_open()
zaman = Now
End Sub


Sonra da kapanışta istediğiniz gibi bir sonuç alabilirsiniz.

Kod: Tümünü seç
MsgBox FormatDateTime(Now - zaman, vbLongTime)

ToggleButton Örnek

İletiTarih: 03 Şub 2009 23:16
Soner ŞENOL
Güzel bir çalışma ve değişik

[TESEKKÜR]