ToggleButton Örnek

Basma düğmesi

ToggleButton Örnek

İleti#1)  Tarkan VURAL » 02 Şub 2009 15:17

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27383
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

ToggleButton Örnek

İleti#2)  kan-nas » 02 Şub 2009 16:36

Selamlar; acabakaç dakiyada saat eExcel dosyasının açık kaldığını yada kapanınca kaç dakika açık kaldığını öğrenebilir miyiz.? [uzulme]
Kullanıcı avatarı
kan-nas
Site Dostu
 
Adı Soyadı:özkan asan
Kayıt: 05 Eyl 2008 11:03
Konum: ÇOK UZAK
Meslek: bankacı
Yaş: 46
İleti: 529
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istANBUL

ToggleButton Örnek

İleti#3)  kan-nas » 03 Şub 2009 08:12

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.?
Kullanıcı avatarı
kan-nas
Site Dostu
 
Adı Soyadı:özkan asan
Kayıt: 05 Eyl 2008 11:03
Konum: ÇOK UZAK
Meslek: bankacı
Yaş: 46
İleti: 529
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istANBUL

ToggleButton Örnek

İleti#4)  Tarkan VURAL » 03 Şub 2009 10:25

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)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27383
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

ToggleButton Örnek

İleti#5)  Soner ŞENOL » 03 Şub 2009 23:16

Güzel bir çalışma ve değişik

[TESEKKÜR]
Kullanıcı avatarı
Soner ŞENOL
Siteye Alışmış
 
Adı Soyadı:soner şenol
Kayıt: 15 Haz 2008 00:18
Meslek: soner.senol@toyotatr.com
İleti: 179
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya


Forum ToggleButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe