• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Visual Basic ile QFD çalışması

O

onurdogan

Katılım
17 Eylül 2009
Mesajlar
59
Excel Vers. ve Dili
excel 2007
visual basic
Arkadaşlar merhaba,
(Bilmeyenler için) QFD, kalite çalışmalarında kullanılan bir tekniktir. VB ile bunu programa dökmek istiyorum. Ama işin başında takıldım. Şekli ekte sundum. Hücrelerdeki verilerle bazı hesaplamalar da yaptıracağım. Sadece şekil sabit olmalı. İçerisindeki yazılar ve sayılar değişken olacak.

Textboxa dikey yazı yazdıramadım. Yardımcı olur musunuz?

Ayrıca başka tavsiyeleriniz varsa onları da beklerim.
 

Ekli dosyalar

  • QFD.jpg
    QFD.jpg
    19.5 KB · Görüntüleme: 28
afedersiniz ama, işlemleri makro ile yapıyorsunuz , doğru mudur ?

eğer öyle ise;
Kod: 
Range("a2").Orientation = 90
ile, a2 hücresini 90 derece çevirerek dik yazı haline getirebilirsiniz, veyahut 45 yazarak çapraz...
 
Ben bu şekli userforma dökeceğim. userformdaki textboxa şekilde görüldüğü gibi dikey yazdırmayı amaçlıyorum. söylediğiniz galiba işin excel kısmı ile ilgili.
 
araştırabildiğim kadarı ile kolay bir yolu yok gibi görünüyor.
line-break karakteri ekleyerek yapsanız caption a , olabilir diye düşünüyorum...
 
Son düzenleme:
.

Resim değilde...

Excel dosyası olarak bir örnek eklerseniz, daha uygun olur.

.
 
Ben excel kullanmacayağım. Yanlış anlaşıldı galiba. Excel ile işim yok. Resimde görülen şeklin aynısını userforma yerleştireceğim. Sorun, textboxa şekildeki gibi dikey yazıların nasıl yazılmasında..
 
Başlıkta visual basic olduğunu ifade etmiştim.

Visual basic 2008 Express edition
 
excel forumunda visual basic sorusu geleceğini hiç tahmin etmemiştim, başlıklar da genelde okunmuyor nedense (belki sadece benim alışkanlığımdır) kusura bakmayın.

ben yine aynı önerimi tekrarlayayım, VBA'da olduğuna göre VB de de olmasını engelleyecek birşey olduğunu düşünmüyorum.

küçük bir döngü ile text box a birinci harf akabinde chr$(10) 2.harf, chr$(10) şeklinde eklerseniz sıkıntı olmuyor.

tabii bunun için text box ın boyut+duruşunu manuel önceden ayarlamalısınız
 
Formunuza bir adet Text1 nesnesi ve bir adetde Command1 buton ekleyin

Text1.MultiLine özelliğini True yapın ve aşağıdaki kodu formunuza yapıştırın

Kod: 
Private Sub Command1_Click()

deger = "merhaba excel"
For i = 1 To Len(deger)
say = say & Mid(deger, i, 1) & Chr(9)
MsgBox say
Next
Text1.Text = say
End Sub
 
Olması gereken bu değil arkadaşlar. Şekli incelerseniz daha açıklayıcı olur.
Metnin tamamı 90 derece sola döndürülmeli.
 
Bu soruyu bir süreliğine askıya alabiliriz. Ben alternatif yolları deniyorum. İlginiz için çok teşekkür ederim.

Aynı konu ile ilgili olarak bir sorum daha var.

Ekteki dosyada bir QFD çalışmasının çatısı var. Excel'e bunu eklemem gerekiyor. Ama makroyu geçtim, exceldeki işlevleri kullanarak bile çizemedim. Çapraz çizgileri nasıl çizebileceğimi bilmiyorum. İşin ehilleri yardımcı olsun lütfen.
 

Ekli dosyalar

  • Quality Roof.png
    Quality Roof.png
    7.7 KB · Görüntüleme: 12
excel çok uygun değil sizin için sanırım :)

58 beden bir bayanın 38 beden kotun kendisine olacağını iddia etmesi gibi geliyor yapmaya çalıştıklarınız :)

ekte kenarlık ve çizgi ile yapılan garip şekiller var, istediğiniz şekli elde edecek şekilde güncelleyebilirsiniz. ama kenarlıklarla yapmak için her dört hücreyi sizin bir hücre gibi kabul etmeniz lazım...
 

Ekli dosyalar

onurdogan' Alıntı:
Arkadaşlar merhaba,
(Bilmeyenler için) QFD, kalite çalışmalarında kullanılan bir tekniktir. VB ile bunu programa dökmek istiyorum. Ama işin başında takıldım. Şekli ekte sundum. Hücrelerdeki verilerle bazı hesaplamalar da yaptıracağım. Sadece şekil sabit olmalı. İçerisindeki yazılar ve sayılar değişken olacak.

Textboxa dikey yazı yazdıramadım. Yardımcı olur musunuz?

Ayrıca başka tavsiyeleriniz varsa onları da beklerim.
Genişletmek için tıkla ...

.

Birileri Excel ile yapmış.

.
 

Ekli dosyalar

  • QFD.zip
    QFD.zip
    278.5 KB · Görüntüleme: 14
yurttaş hocam çok sağol. bunu daha önce kullanmıştım ama daha sonraları bulamadım. En kötü ihtimalle bunu kullanacağım.

Ama buradaki 10 satır ve 15 sütundan oluşan kalite evi, benim çalışmamda değişkenlik gösterecek. Daha önce de resim olarak eklediğim dosyadaki gibi çatı kısmını excelde nasıl çizebiliriz? Bu konuda fikri olanlar var mı? Benim için can alıcı nokta burası.
 
dogan barış hocam dosyanızı inceledim. İlginiz için teşekkürler.

köşegen çizgilerini çizerken, her bir hücre için tek tek çizebiliyorum. bütün alanı seçip tek seferde bu çapraz çizgiyi çizemiyorum. Acaba kolay bir yolu var mı? Siz de mi her bir hücreyi tek tek çizdiniz.
 
bütün alan için de çizebilirsiniz aynı şekilde (sağ tık / hücre biçimlendir / kenarlık ... sanırım türkçe karşılıkları bunlar )

ama tabii ki üçgenin kenarlarına düşen karelerin fazlalıklarını temizlemek zorundasınız daha sonra
 
Galiba bu çatıyı ben makro ile yapamayacağım. El ile yapılabiliyor dediğiniz gibi ama makroya dökemiyorum.
 
işine yarayacağını düşündüğüm küçük bir çalışma...

Rangeleri her seferinde sen belirleyeceksin... tek bir hücre Range("B2") veya bir aralık Range("A1:C5) şeklinde çalıştırabiliyorsun...

Kod: 
Sub KenarlikCiz()
        
MsgBox "\"
Range("B5:j7").Borders(xlDiagonalDown).LineStyle = xlContinuous

MsgBox "/"
Range("B5:j7").Borders(xlDiagonalUp).LineStyle = xlContinuous
 
MsgBox "Alt"
Range("B5:j7").Borders(xlEdgeBottom).LineStyle = xlContinuous

MsgBox "Üst"
Range("B5:j7").Borders(xlEdgeTop).LineStyle = xlContinuous

MsgBox "Sol"
Range("B5:j7").Borders(xlEdgeLeft).LineStyle = xlContinuous

MsgBox "Sağ"
Range("B5:j7").Borders(xlEdgeRight).LineStyle = xlContinuous

MsgBox "İç Orta Yatay"
Range("B5:j7").Borders(xlInsideHorizontal).LineStyle = xlContinuous

MsgBox "İç Orta Dikey"
Range("B5:j7").Borders(xlInsideVertical).LineStyle = xlContinuous

End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst