word makro yardım...

[tahiroglu]

değerli arkadaşlar herkese merhabalar iyi çalışmalar...
ekteki dosyadada belirttim ama burdada nasıl bir sıkıntım olduğunu belirtip bilgisi dahilindeki arkadaşların dosyayı incelemesini istiyorum...

14haneli rakamlarım var ve bunları barkod okuyucu ile gereken dosyasına kayıt ediyorum(excel dosyası)
fakat bu rakamları word dosyasında aralarında virgül olacak şekilde sıralı kayıt etmek istiyorum...gireceğim değerler çok fazla olduğunda adet olarak barkod okuyucu kullanılıyor..
barkod okuyucu ile her okutuşumda otomatik enter yaptığından dolayı bir alt paragrafa geçiyor.ve aralarında virgül koyma işlemini gerçekleştirmek klavyeden yapmak zorunda kalıyorum...buda işlerimin yetiştirememe sebep oluyor..

konuya bilgisi olan tüm arkadaşların ve dostların yardımlarını istiyorum...
saygılarımla

 

[hamitcan]

Activex denetimlerinden bir TextBox ve Buton ekleyin. Sonra, aşağıdaki kodu, butonun kod kısmına ekleyin.

Private Sub CommandButton1_Click()
ActiveDocument.Paragraphs(2).Range.Text = ActiveDocument.Paragraphs(2).Range.Text & TextBox1.Text & ","
End Sub

 

[tahiroglu]

sayın hamitcan üstadım...dediğiniz şekilde butonu ve textboxı koydum..sanırım örnekde belirtmede eksiklik oldu...gönderdiğim örnekte aynı numaralar var ama bunların herbiri farklı numara farklı barkod...

textbox olacak ve paragrafa atması buton ile değil ENTER tuşu ile olacak..sonra textboxa geri dönecek içindeki içerik silinmiş ve yeni içerik yazılıp ENTER basıldığında tekrar bir önceki yazılmış olan içeriğin yanına aralarında virgül olacak şekilde sıralanacak..

yani textbox içindekini buton ile değil ENTER ile nasıl yapabiliriz...

 

[hamitcan]

Yalnız, Textbox_Enter olayı sayfa olayları içinde yok. Silme işlemi için ise kodun başına,

TextBox1 = Empty

satırını eklemeniz yeterli.

 

[tahiroglu]

peki sayın hocam bir userform üzerinde yapsak ordan word sayfasına aktarsak..bu mümkün olabilirmi...inanın bu çalışma çok ihtiyaç..

 

[hamitcan]

Textbox_Enter olayı, düşündüğümüz gibi enter tuşuna basıldığında çalışmıyor. Aslında başka olaylar da var ama bence en uygunu bu. Belki forumda farklı önerileri olan arkadaşlar çıkabilir.

 

[tahiroglu]

teşekkürler üstadım....
yardımcı olabilecek arkadaşları bekliyorum...emeğiniz için ayrıca teşekkür ederim çok sağolun...

 

[tahiroglu]

sayın hocalarım bir şey uğraştırıcı oldu benim için bunu çözebilirmiyiz...
textbox içine rakamsal değerleri giriyorum ve hamitcan üstadın verdiği kodla butona bastığımda sonuna virgül koyup word sayfasına aktarıyor..
benim sormak istediğim şey :
elimdeki tüm rakamsal değerleri textbox içine girip butona basıldığında her 14 haneden sonra virgül koyup word sayfasına aktarması...?
yardımlarınız için şimdiden teşekkürler..

 

[hamitcan]

Private Sub CommandButton1_Click()
For i = 1 To Len(TextBox1.Text)
    If Len(TextBox1.Text) < 14 Then
        m = TextBox1.Text: Exit For
    Else
        m = Mid(TextBox1.Text, i, 14) & ", " & m
        i = i + 13
    
    End If
Next
ActiveDocument.Paragraphs(2).Range.Text = m
End Sub

şeklinde deneyin.

 

[tahiroglu]

çok sağol hocam çok teşekkürler..emeğinize sağlık...

 

[hayalbert]

wordde dört işlem imkanı var mı yapıla

word tablolarında formul ile veya makro yazılarak toplama dışında çarpma vb işlem yapmak mümkün mü acaba?

 

[hamitcan]

word tablolarında formul ile veya makro yazılarak toplama dışında çarpma vb işlem yapmak mümkün mü acaba?

Evet yapmak mümkün.

 

[hayalbert]

peki nasıl yapılır
yardımcı olur musunuz?

 

[hamitcan]

1-Formlar araç çubuğundan 3 tane metin alanı oluşturun.
2-Çift tıklayarak özelliklerine girin.
3-İlk ikisini tür kısmından sayı olarak biçimlendirin.
4-Üçüncüsünde tür kısmından Hesaplamayı seçin.
5-İfade kısmına =Metin1*Metin2 yazın.
6-Metni kilitleyin.

 

[hayalbert]

ben daha basit olduğunu düşündüğüm bir yol buldum

tabloyu hazırlayıp sadece sonuç kısmına
tablo/formül/product kullanıp çarpım işini hallettim

şimdi çıkarma ve bölme de sanırım ters işlem yapılarak olur

BUNLARA DA GEREK YOKMUŞ

tablo kullanırsanız hüceler ile istediğiniz işlem yapılıyor aynı excel gibi

formül kutusuna = işaretinden sonra dört işlem çok basitmiş
misal
A1 hücesini c1 hücresine bölmek için =a1/c1
hepsi bu