Yazdır önizleme kode ve .exe dönüştürme

[soyga0123]

Merhaba,
Excel'de iyi değilim ama üniv.yi sorunsuz bir şekilde bitirmem için iyi olmam gerekiyor. Excel'de hazırlamam gereken bir çalışma var ancak çoğu konuda yetersiz kalıyorum (özellikle makro ve VBA'da). Bu nedenle siz profesyonellere sormak istediğim bir kaç sorum var:

1. Hazırlamam gereken çalışma birden çok sayfadan oluşuyor ama ben tüm işlemlerin tek sayfa üzerinden yapılmasını istiyorum. Bunun için ilk sayfaya veri girişi dedim ve butonlar ("yazdır" ve "ön izle") ekledim. Girilen veriye göre diğer sayfalarda tablolar oluşacak ama ben onların görünmesini istemiyorum. Ön izlenecek sayfaları gizlediğimde butonlar çalışmıyor hata veriyor ama ben gizlenmesini istiyorum. Bunun bir çözümü var mı?

2. Hazırlamış olduğum bu çalışmayı excel'den bağımsız bir ".exe" uygulaması şeklinde hazırlamam mümkün mü? Yani bir uygulama haline getirebilir miyim? Getirebiliyorsam bunu nereden ve nasıl yapabilirim?

3. Çalışma sayfasına bir buton ekleyip o butona her basıldığında belirlediğim bir hücreye (ör: A1) başka bir sayfada önceden doldurmuş olduğum diğer hücrelerdeki kelimelerden "rastgele" birinin gelmesini istiyorum. Bu mümkün mü?

Şimdilik öğrenmek istediklerim bunlar. Yardımınız için şimdiden teşekkür ediyorum.

 

[Emir Hüseyin Çoban]

Merhaba,
Excel'de iyi değilim ama üniv.yi sorunsuz bir şekilde bitirmem için iyi olmam gerekiyor. Excel'de hazırlamam gereken bir çalışma var ancak çoğu konuda yetersiz kalıyorum (özellikle makro ve VBA'da). Bu nedenle siz profesyonellere sormak istediğim bir kaç sorum var:

1. Hazırlamam gereken çalışma birden çok sayfadan oluşuyor ama ben tüm işlemlerin tek sayfa üzerinden yapılmasını istiyorum. Bunun için ilk sayfaya veri girişi dedim ve butonlar ("yazdır" ve "ön izle") ekledim. Girilen veriye göre diğer sayfalarda tablolar oluşacak ama ben onların görünmesini istemiyorum. Ön izlenecek sayfaları gizlediğimde butonlar çalışmıyor hata veriyor ama ben gizlenmesini istiyorum. Bunun bir çözümü var mı?

. . .

Önizleme kodlarının başına sayfayı göster kodlarını ve sonunada terkar sayfayı gizle kodlarını ilave ederek yapabilirsiniz.

. . .

3. Çalışma sayfasına bir buton ekleyip o butona her basıldığında belirlediğim bir hücreye (ör: A1) başka bir sayfada önceden doldurmuş olduğum diğer hücrelerdeki kelimelerden "rastgele" birinin gelmesini istiyorum. Bu mümkün mü?

. . .

Sub KOD()
Dim sayı As Integer

son = [C65536].End(3).Row
sayı = Evaluate("rand()*(1-" & son & ") + " & son & "")
[COLOR="DarkGreen"]'Evaluate("rand()*(1-10)+10")[/COLOR]

Range("a1") = Cells(sayı, "C")

End Sub

. . .

 

[soyga0123]

. . .

Önizleme kodlarının başına sayfayı göster kodlarını ve sonunada terkar sayfayı gizle kodlarını ilave ederek yapabilirsiniz.

. . .

. . .

Sub KOD()
Dim sayı As Integer

son = [C65536].End(3).Row
sayı = Evaluate("rand()*(1-" & son & ") + " & son & "")
[COLOR="DarkGreen"]'Evaluate("rand()*(1-10)+10")[/COLOR]

Range("a1") = Cells(sayı, "C")

End Sub

. . .

Hocam cevaplarınız için teşekkürler. Sayfayı gizle ve göster kodunu bilmiyorum onu da yazabilir misiniz?

 

[Emir Hüseyin Çoban]

. . .

Sheets("Sayfa2").Visible = False
[COLOR="DarkGreen"]'False Gizle
'True Göster[/COLOR]

. . .