cems
Altın Üye
- Katılım
- 2 Eylül 2005
- Mesajlar
- 2,486
- Excel Vers. ve Dili
- office 2010 tr 32bit
- Altın Üyelik Bitiş Tarihi
- 13-06-2029
Bir arkadaşın iş ihtiyacını kolaylaştırmak amacı ile hazırladığım programda , 19 adet makinanın 2-3 günden 8 saate kadar değişen ve rulo halinde takılan hammaddelerinin herbirinin ayrı ayrı tüketme zamanlamasını görmesi amacı ile userform üzerinde bir label'e saat uygulaması yerleştirdim ve :
1-userform_initialize() altına
Me.Label17 = Time
Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
2-Modul1 altına
Sub Live_time()
Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
UserForm1.Label17 = Time
UserForm1.Repaint
End Sub
3- Form kapandığında saatin de durması için userform1 i kapat tuşunun altına
Private Sub CommandButton4_Click()
Application.DisplayAlerts = False
Application.OnTime Time + TimeValue("00:00:01"), "Live_time", , False
ThisWorkbook.Save
Unload Me
End Sub
Yerleştirdim. Label17.caption olarak birşey yapmadım . Burada iki problem çıkıyor:
1- Saniye atımı label olduğu için formu sıçratıyor. Saatin saniye atması yerine dakika atması için nasıl bir değişiklik yapmalıyım ?
2- Tükenmeleri her makinanın malzemesi için dakikada ya da saatte bir exceli tetikleyerek ve yeniden hesaplatarak ( calculate işe yaramadı ) ve daha sonra userformu da tetikleyerek form uzerinde gorulmesini nasıl sağlarım?
Excel tablosunda bağımsız değişken olarak aldığım (soldan sağa ) 11 adet veri ve zamanlamaları kullanarak 10 adet bunların formüllerle hesaplanması ile gelen bağımlı değişkenler hazırladım. Userform bağımlı değişkenlerden bazılarını " bul " tuşu ile formda olan textboxlara taşıyor ve bunu (yukarıdan aşağı )19 makina için ayrı ayrı yapıyor ve 204 textbox üzerine düzgünce çekiyor.
Tetiklemeden kasdım , dakika ya da saat değiştiğinde bu excel tablosunu ve peşinden formu tetikleyerek hesaplatmak ve görünürleştirmek.
Programı dosya.tc üzerinden gönderebilirim ki en sağlıklısı bu olur, ancak endüstriyel ayrıntı olduğu , bana ait olmadığı nedeni ile kendisini ve içini değiştirince anlamsızlaştığı için benzerini yüklemekte kararsızım . Yine de (değiştir-kaydet kısmında) ek problemleri de var , onu da bu şekilde sormam gerekecek.
Belki Yöneticiler bir yol önerebilir ya da burada elden gelen en açık dille anlatmaya çalıştığımla bir cevap üretmeye çalışırlar.
1-userform_initialize() altına
Me.Label17 = Time
Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
2-Modul1 altına
Sub Live_time()
Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
UserForm1.Label17 = Time
UserForm1.Repaint
End Sub
3- Form kapandığında saatin de durması için userform1 i kapat tuşunun altına
Private Sub CommandButton4_Click()
Application.DisplayAlerts = False
Application.OnTime Time + TimeValue("00:00:01"), "Live_time", , False
ThisWorkbook.Save
Unload Me
End Sub
Yerleştirdim. Label17.caption olarak birşey yapmadım . Burada iki problem çıkıyor:
1- Saniye atımı label olduğu için formu sıçratıyor. Saatin saniye atması yerine dakika atması için nasıl bir değişiklik yapmalıyım ?
2- Tükenmeleri her makinanın malzemesi için dakikada ya da saatte bir exceli tetikleyerek ve yeniden hesaplatarak ( calculate işe yaramadı ) ve daha sonra userformu da tetikleyerek form uzerinde gorulmesini nasıl sağlarım?
Excel tablosunda bağımsız değişken olarak aldığım (soldan sağa ) 11 adet veri ve zamanlamaları kullanarak 10 adet bunların formüllerle hesaplanması ile gelen bağımlı değişkenler hazırladım. Userform bağımlı değişkenlerden bazılarını " bul " tuşu ile formda olan textboxlara taşıyor ve bunu (yukarıdan aşağı )19 makina için ayrı ayrı yapıyor ve 204 textbox üzerine düzgünce çekiyor.
Tetiklemeden kasdım , dakika ya da saat değiştiğinde bu excel tablosunu ve peşinden formu tetikleyerek hesaplatmak ve görünürleştirmek.
Programı dosya.tc üzerinden gönderebilirim ki en sağlıklısı bu olur, ancak endüstriyel ayrıntı olduğu , bana ait olmadığı nedeni ile kendisini ve içini değiştirince anlamsızlaştığı için benzerini yüklemekte kararsızım . Yine de (değiştir-kaydet kısmında) ek problemleri de var , onu da bu şekilde sormam gerekecek.
Belki Yöneticiler bir yol önerebilir ya da burada elden gelen en açık dille anlatmaya çalıştığımla bir cevap üretmeye çalışırlar.