Son İletiler

#41

ExcelSitesi Programları / Konuşan Program

Son İleti Gönderen Bülent - Ksm 12, 2017, 05:50 ÖS

Yazdığınız metni okuyan, konuşan program ektedir.

#42

ExcelSitesi Programları / Excel Hücresinde Büyük-Küçük H...

Son İleti Gönderen Bülent - Ksm 11, 2017, 01:51 ÖÖ

Merhaba,

Ekli Excel eklentisi ile seçili hücrelerdeki metni büyük harf, küçük harf, yazım düzeni seçeneklerinden istediğinize dönüştürebilir, fazla olan boşlukları bire indirebilirsiniz.

#43

Windows İşletim Sistemleri / Windows 10 Resim Görüntüleyici...

Son İleti Gönderen ExcelSitesi - Ekm 30, 2017, 11:59 ÖÖ

Windows 10 ile gelen Fotoğraf görüntüleyiciyi Windows 7'de kullandığınız Windows Photo Viewer ile değiştirmek için aşağıdaki reg dosyasını kullanabiliriz

Rar şifresi: excelsitesi.com

#44

Excel - Vba - Vbs Örnek Kodları / Makro ile Yazıcı Seçmek

Son İleti Gönderen ExcelSitesi - Ekm 24, 2017, 01:06 ÖS

Aşağıdaki kod ile sayfaları yazdırırken varsayılan değil de istediğimiz yazıcıya çıktımızı gönderebiliriz.

Sub Yazdir()
Worksheets("ExcelSitesi.com").PrintOut ActivePrinter:="Microsoft XPS Document Writer"
End Sub

#45

Excel - Vba - Vbs Örnek Kodları / Hücrede tekrarlananları teke i...

Son İleti Gönderen ExcelSitesi - Ekm 18, 2017, 10:19 ÖS

Aşağıdaki kod ile aynı hücre içinde tekrar eden verileri, satır satır tarayarak teke indirebiliriz:

Kod Seç Expand

Sub ExcelSitesiTekrarlariSil()
   Dim arr1, arr2
   For bulent = 1 To ActiveSheet.Range("A65530").End(3).Row
       arr1 = VBA.Split(Range("A" & bulent).Value, " ")
       arr2 = removeDuplicates(arr1)
       Range("B" & bulent).Value = Join(arr2, " ")
   Next bulent
End Sub

Function removeDuplicates(ByVal myArray As Variant) As Variant
Dim d As Object
Dim v As Variant
Dim outputArray() As Variant
Dim i As Integer

Set d = CreateObject("Scripting.Dictionary")
For i = LBound(myArray) To UBound(myArray)
   d(myArray(i)) = 1
Next i
i = 0
For Each v In d.Keys()
   ReDim Preserve outputArray(0 To i)
   outputArray(i) = v
   i = i + 1
Next v
removeDuplicates = outputArray
End Function


#46

Excel - Vba - Vbs Örnek Kodları / Ynt: Excel'i Konuşturmak / Spe...

Son İleti Gönderen Bülent - Ekm 08, 2017, 05:17 ÖS

Kod Seç Expand

Sub Exceli_Konustur()

Application.Speech.Speak ThisWorkbook.FullName

Application.Speech.Speak ("1, 2, 3, 4")

Application.Speech.Speak ("ExcelSitesi.com bir numara. En büyük, en güzel, en harika...")

End Sub


#47

Excel - Vba - Vbs Örnek Kodları / Excel'i Konuşturmak / Speech.S...

Son İleti Gönderen Bülent - Ekm 08, 2017, 05:15 ÖS

Excel'i Konuşturmak, hücre değerlerini veya belli bir yazıyı okutmak için:

Kod Seç Expand

Sub Exceli_Konustur()
Application.Speech.Speak ("ExcelSitesi.com bir numara. En büyük, en güzel, en harika...")
End Sub

#48

Excel - Vba - Vbs Örnek Kodları / Excel ile Outlook'ta Yeni Mail...

Son İleti Gönderen Bülent - Ekm 08, 2017, 05:08 ÖS

Excel ile Outlook'ta Yeni Mail Oluşturmak/Göndermek:

Kod Seç Expand

Sub Excel_ile_Outlookta_Mail_Olustur()
    Dim OutlookUygulamasi As Object
    Dim YeniMail As Object

    Set OutlookUygulamasi = CreateObject("Outlook.Application")
    Set YeniMail = OutlookUygulamasi.CreateItem(0)

    On Error Resume Next
    With YeniMail
        .to = "admin@excelsitesi.com"
        .CC = ""
        .BCC = ""
        .Subject = "Mail Başlığı"
        .Body = "ExcelSitesi.Com mail denemesi"
        .Attachments.Add ("C:\ExcelSitesi\Ek1.xls")
        .Display 'Görüntülemek için
        '.Send   Göndermek için
    End With
    On Error GoTo 0

    Set YeniMail = Nothing
    Set OutlookUygulamasi = Nothing
End Sub


#49

Excel - Vba - Vbs Örnek Kodları / Excel ile Outlook'a Görev Ekle...

Son İleti Gönderen Bülent - Ekm 08, 2017, 05:01 ÖS

Excel ile Outlook'a Görev Eklemek:

Kod Seç Expand

Sub ExceldenOutlookaGorevEkle()
Const olTaskItem = 3

Set objOutlook = CreateObject("Outlook.Application")
Set objTask = objOutlook.CreateItem(olTaskItem)

objTask.Subject = "Outlook Görev Ekleme Denemesi"
objTask.Body = "Outlook görev ekleme denemesi olarak yapılmıştır."
objTask.ReminderSet = True
objTask.ReminderTime = #9/11/2017 12:00:00 PM#
objTask.DueDate = #10/11/2005 12:00:00 PM#
objTask.ReminderPlaySound = True
objTask.ReminderSoundFile = "C:\ExcelSitesi\Media\Ding.wav"

objTask.Save

End Sub



#50

Excel - Vba - Vbs Örnek Kodları / VBS ile Text Dosyası (txt) Olu...

Son İleti Gönderen Bülent - Ekm 08, 2017, 04:49 ÖS

VBS ile Text Dosyası (txt) Oluşturmak:

Kod Seç Expand

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\ExcelSitesi\TextDosyam.txt")