Mobile menu

Excel'de kelime sayısı aracı
Thread poster: Mustafa Altinkaya
Mustafa Altinkaya
Local time: 17:53
English to Turkish
+ ...
May 26, 2006

Forum içeriklerini taradığımda MS Excel için kelime sayısını veren ücretsiz bir araç konusunda herhangi bir bilgiye rastlayamadım. MS Word için istediğim özellikleri içeren ücretsiz (namı beleş) CompleteWordCount aracını kullanıyorum.
Bazılarının çözüm olarak MS Excel'den kopyala ve MS Word'e yapıştır veya Excel dosyasını Word ile açma yöntemlerini kullandıklarını öğrendim. Ancak, birden fazla çalışma sayfası ve sayfalarda metin kutuları olduğunda, bu arzu edilen sonucu çıkartamayacaktır.
Bu konuda görüşlerinizi ve bilgilerinizi paylaşırsanız memnun olurum.


Direct link Reply with quote
 

Özden Arıkan  Identity Verified
Germany
Local time: 16:53
Member
English to Turkish
Yok May 26, 2006

Bildiğim kadarıyla böyle bir araç yok. Benim açımdan en iyi yöntem, xls dosyasını Word'de açmak. Hiç birden çok "sheet"i bulunan dosyada bunu denedim mi hatırlamıyorum, yalnız...

Forum search sayfasına excel word count kelimelerini yazarsanız milyonlarca sonuç çıkıyor. Benim bulduğum sayfa burada aynı şekilde çıkar mı emin değilim ama, yapıştırmayı bir deneyeyim: http://www.proz.com/?sp=bb/new&action=SearchForum&advanced=y

Zaten bu konuda bu kadar çok laf edilmiş olması da bizi başlığa döndürüyor: Yani kesin bir çözümü yok

=========

Yok, forum search sayfası boş çıkıyor. Boşuna tıklamayın... veya tıklayıp yukarıdaki arama kelimelerini girin

[Edited at 2006-05-26 14:55]


Direct link Reply with quote
 

Balaban Cerit  Identity Verified
Turkey
Local time: 17:53
English to Turkish
+ ...
bazı adresler May 26, 2006

sanırım şu linkler yardımcı olur:

http://www.proz.com/post/157447

http://www.proz.com/post/157179

http://www.proz.com/post/220475

http://www.proz.com/post/143034

Hızlıca göz attım da, son linkteki mesajlardan birinde şöyle bir cümleye rastladım:

"Practicount (www.practiline.com) can count multiple worksheets in an Excel file."

Ama sanırım bunun yüksek bir ücreti var. Ancak o linklerde bir iki başka program adı daha geçiyor; bir araştırın derin.


[Edited at 2006-05-26 15:11]


Direct link Reply with quote
 
Tevfik Turan
Local time: 16:53
German to Turkish
+ ...
Excel > Word > word count May 26, 2006

Ben de şimdiye kadar Word'e çevirmekten başka çare bulamadım. Evet, her çalışma sayfasının ayrıca çevrilmesi gerekiyor. Fakat bu durumda olmayan birçok harf de var gibi sayıldığından, gerçi çevirmen lehine, ama çevirmenin hesabını veremeyeceği kabarık bir rakam ortaya çıkıyor. Bu durumda ara boşluğu hariç karakter sayısını alıp buna kelime sayısı (kelime başına 1 boşluk hesabıyla) eklenince sanırım, umarım, doğru bir sonuç çıkıyordur.


[Edited at 2006-05-26 21:49]


Direct link Reply with quote
 

Selcuk Akyuz  Identity Verified
Turkey
Local time: 17:53
Member (2006)
English to Turkish
+ ...
practicount May 26, 2006

Practicount'un bir özelliği de isterseniz rakamları saydırmayabiliyorsunuz. Diyelim müşteriniz bilanço benzeri bir dosya gönderdi ve doğal olarak kendi girdiği rakamların parasını vermeyecek. Fatura gönderirken net kelime sayısına ihtiyacınız olacak. Bu anlamda practicount çok becerikli bir program. Fiyatına gelince, son zamanlarda dolar yükseldi gerçi ama yine de çok pahalı bir program sayılmaz. 100 doların altındaydı galiba.

Bir diğer alternatif ise Trados, SDLX, Deja Vu gibi bir CAT programı kullanıyorsanız, bu programların da benzeri özellikleri var


Direct link Reply with quote
 
Semra Maden-Balamir  Identity Verified
Local time: 16:53
German to Turkish
+ ...
VAR May 26, 2006

Excel'de
Extralar>MAkro>Makrolar menüsüne gelin.

Makro icin bir isim atayip sonra "Olustur" butonuna basin
ve acilan pencerede kod olarak

Sub CountWords()
Dim WordCount As Long
Dim Rng As Range
Dim S As String
Dim N As Long
For Each Rng In ActiveSheet.UsedRange.Cells
S = Application.WorksheetFunction.Trim(Rng.Text)
N = 0
If S "" Then
N = Len(S) - Len(Replace(S, " ", "")) + 1
End If
WordCount = WordCount + N
Next Rng
MsgBox WordCount
End Sub

satirlarini ekleyip kapatin.

Artik Makrolar menüsünde "CountWords" adini tasiyan yeni bir Makro olusmus durumdadir. Makro adina tiklayip, Calistir'i secerek sonucu görebilirsiniz. Kolay gelsin....


Direct link Reply with quote
 

Nizamettin Yigit  Identity Verified
Netherlands
Local time: 16:53
Dutch to Turkish
+ ...
Çok tablı dosya May 26, 2006

Özden Arıkan wrote:

Bildiğim kadarıyla böyle bir araç yok. Benim açımdan en iyi yöntem, xls dosyasını Word'de açmak. Hiç birden çok "sheet"i bulunan dosyada bunu denedim mi hatırlamıyorum, yalnız...

=========

Yok, forum search sayfası boş çıkıyor. Boşuna tıklamayın... veya tıklayıp yukarıdaki arama kelimelerini girin

[Edited at 2006-05-26 14:55]


Birden fazla "work sheet" ile çalışıyor isen, bir başka alternatif exel'in "export" fonksiyonunu kullamak. Bu durumda o an açık olan sayfayı mı yoksa bütün tab'ları mı aktarmak istediğini soruyor. ütün tabları aktarmayı seçtiğinde de, sorun çözülüyor olması lazım.

Ben denemedim gerçi ama eskiden adres listelerini bu şekilde "tab" veya "coma delimited" olarak "export" edip ordan başka bir "database" içine çok çekip kullanırdım.

Tekst import edip teksti açıp onu saymak hiç de zor olmasa gerek.

Kolay gelsin,

Nizam


[Edited at 2006-05-26 23:49]


Direct link Reply with quote
 
Mustafa Altinkaya
Local time: 17:53
English to Turkish
+ ...
TOPIC STARTER
Excel Kelime Sayısı Makrosu May 27, 2006

Teşekkürler Semra Hanım. "If" sorgulamasında kullandığınız eşit değildir ifadesi HTML etiketi olarak algılandığı için forum sayfasında gözükmüyor.
Aynı işlevi gören, değişik bir ifade tarzı şu şekilde olabilir:

If Not S = "" Then

Böyle bir makro hiç yoktan iyidir. Tekrar teşekkürler...

Mustafa

Semra Maden-Balamir wrote:

Excel'de
Extralar>MAkro>Makrolar menüsüne gelin.

Makro icin bir isim atayip sonra "Olustur" butonuna basin
ve acilan pencerede kod olarak

Sub CountWords()
Dim WordCount As Long
Dim Rng As Range
Dim S As String
Dim N As Long
For Each Rng In ActiveSheet.UsedRange.Cells
S = Application.WorksheetFunction.Trim(Rng.Text)
N = 0
If S "" Then
N = Len(S) - Len(Replace(S, " ", "")) + 1
End If
WordCount = WordCount + N
Next Rng
MsgBox WordCount
End Sub

satirlarini ekleyip kapatin.

Artik Makrolar menüsünde "CountWords" adini tasiyan yeni bir Makro olusmus durumdadir. Makro adina tiklayip, Calistir'i secerek sonucu görebilirsiniz. Kolay gelsin....



Direct link Reply with quote
 
Semra Maden-Balamir  Identity Verified
Local time: 16:53
German to Turkish
+ ...
Pardon... May 28, 2006

Dogru kod satirlari söyle olmali:

Sub CountWords()
Dim WordCount As Long
Dim Rng As Range
Dim S As String
Dim N As Long
For Each Rng In ActiveSheet.UsedRange.Cells
S = Application.WorksheetFunction.Trim(Rng.Text)
N = 0
If S "" Then
N = Len(S) - Len(Replace(S, " ", "")) + 1
End If
WordCount = WordCount + N
Next Rng
MsgBox WordCount
End Sub


Bu, VisualBasic'le hazirlanmis hazir bir kod.
Benzerleri de var tabii, karakterleri, sadece rakamlari vs. sayan. Ben satir basina fiyat verdigim icin karakterleri sayan fonksiyonu kullaniyorum.

Semra


// yine sansüre ugramis:-)
"if" li satir söyle olmali:
If S (kücüktür isareti)(büyüktür isareti) """" Then

[Bearbeitet am 2006-05-28 16:32]


// yorumunuzu tekrar okuyunca, hatanin nerede oldugunu zaten anladiginizi farkettim:-) Özür!! Evet, HTML kodu olarak algilanip yok oluyor eksik olan isaretler. Yazilimda esit degildir olarak adlandirilan isaret gelmeli (sanirim Java, fakat emin degilim).

[Bearbeitet am 2006-05-28 16:39]


Direct link Reply with quote
 

Özden Arıkan  Identity Verified
Germany
Local time: 16:53
Member
English to Turkish
[Reply with quote] May 28, 2006

düğmesine basarak (mesaj pencerelerinin sağ alt köşesinde) metindeki işaretleri düzgün görebilirsiniz.

Direct link Reply with quote
 


To report site rules violations or get help, contact a site moderator:


You can also contact site staff by submitting a support request »

Excel'de kelime sayısı aracı

Advanced search


Translation news in Turkey





Protemos translation business management system
Create your account in minutes, and start working! 3-month trial for agencies, and free for freelancers!

The system lets you keep client/vendor database, with contacts and rates, manage projects and assign jobs to vendors, issue invoices, track payments, store and manage project files, generate business reports on turnover profit per client/manager etc.

More info »
PerfectIt consistency checker
Faster Checking, Greater Accuracy

PerfectIt helps deliver error-free documents. It improves consistency, ensures quality and helps to enforce style guides. It’s a powerful tool for pro users, and comes with the assurance of a 30-day money back guarantee.

More info »



All of ProZ.com
  • All of ProZ.com
  • Term search
  • Jobs