Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Ocak 2009 Salı

Use Wav Sounds

'Module1
Option Explicit
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub WavSesleriKullanmak() 'Use Wav Sounds
On Error Resume Next
VBA.ChDir "z"
If VBA.Err = 76 Then GoTo Hata
End
Hata:
Call sndPlaySound32("C:\Windows\Media\Tada.wav", 0)
ExecuteExcel4Macro ("SOUND.PLAY(, ""C:\Windows\Media\Tada.wav"")")
End Sub

10 Ocak 2009 Cumartesi

Select Active Area

'Module1


Option Explicit
Sub TümAktifAlanıSeç() '[Select Active Area]
On Error Resume Next
'Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select
Range(ActiveCell.SpecialCells(xlCellTypeConstants), ActiveCell.SpecialCells(xlLastCell)).Select
End Sub

1 Ocak 2009 Perşembe

Excel Version Information

'Module1

Option Explicit
Dim Bulgu As String
Sub ExcelSürümBilgileri() 'Excel Version Information

Bulgu = "Programın Adı" & VBA.Chr(9) & Application.name & Chr(13) & "İşletim Sistemi" & VBA.Chr(9) & Application.OperatingSystem & Chr(13) & "Version Numarası" & VBA.Chr(9) & Application.Version & Chr(13) & "Yapım Numarası" & VBA.Chr(9) & Application.Build
MsgBox Bulgu & vbCrLf & vbCrLf & "Mustafa ULUSARAÇ 01ulusarac@superonline.com", vbInformation, "[PBİD®] Excel Version İnformation"

End Sub

Blog Arşivi

Gadget

Bu içerik henüz şifreli bağlantı üzerinden kullanılamıyor.

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul
Anadolu Üniversitesi Açık Öğretim Fakültesi