Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Ağustos 2009 Perşembe

ONKEY Method


'Module1
Sub Auto_Open()
On Error Resume Next
Application.OnKey "^a", "ONKEY_1"
Application.OnKey "^b", "ONKEY_2"
Application.OnKey "^c", "ONKEY_3"
Application.OnKey "^d", "ONKEY_4"
End Sub
Sub Auto_Close()
On Error Resume Next
Application.OnKey "^a", ""
Application.OnKey "^b", ""
Application.OnKey "^c", ""
Application.OnKey "^d", ""
End Sub
Sub ONKEY_1()
On Error Resume Next
MsgBox "a" & vbCrLf & "Mustafa ULUSARAÇ
01ulusarac@superonline.com", vbInformation, "[PBİD®] ONKEY METHOD"
End Sub
Sub ONKEY_2()
On Error Resume Next
MsgBox "b" & vbCrLf & "Mustafa ULUSARAÇ
01ulusarac@superonline.com", vbInformation, "[PBİD®] ONKEY METHOD"
End Sub
Sub ONKEY_3()
On Error Resume Next
MsgBox "c" & vbCrLf & "Mustafa ULUSARAÇ
01ulusarac@superonline.com", vbInformation, "[PBİD®] ONKEY METHOD"
End Sub
Sub ONKEY_4()
On Error Resume Next
MsgBox "d" & vbCrLf & "Mustafa ULUSARAÇ
01ulusarac@superonline.com", vbInformation, "[PBİD®] ONKEY METHOD"
End Sub

10 Ağustos 2009 Pazartesi

Intersection and Union Areas



'Module1

Option Explicit
Dim i As Single
Dim Hane As Range
Dim Ada As Range
Dim Parsel As Range
Dim Kontrol As Variant

Sub Test()
On Error Resume Next
ArsaKontrolü Range("Sayfa1!B4:B9"), Range("Sayfa1!A1:G36")
End Sub
Private Sub ArsaKontrolü(ByVal Veri1 As Range, Veri2 As Range)
On Error GoTo Hata
Set Ada = Veri1
Set Parsel = Veri2
Set Kontrol = Application.Intersect(Ada, Parsel)
If Kontrol Is Nothing Then
MsgBox "Ranges do not intersect"
Else
i = 1
For Each Hane In Kontrol
Application.Union(Hane, Hane).Interior.ColorIndex = i
i = i + 1
Next Hane
Kontrol.Offset(0, 1).Select
End If
Exit Sub
Hata:
Err.Clear
Set Hane = Nothing
Set Kontrol = Nothing
Set Ada = Nothing
Set Parsel = Nothing
End Sub

1 Ağustos 2009 Cumartesi

To Transfer Data From Excel File to Word Document

'Module1

Option Explicit
Dim DosyaAdı, Satır, WordTipDosya, HedefWordDosya
Sub ExcelDosyasındanWordDosyasınaVeriAktarmak() 'To Transfer Data From Excel File to Word Document

On Error Resume Next
DosyaAdı = Application.InputBox("Oluşturulmasını İstediğiniz World Dosya Adını Giriniz", "[PBİD®]Excel Dosyasından Word Dosyasına Veri Aktarmak", "Örnek")
If DosyaAdı = 0 Then

Exit Sub

Else

ActiveSheet.name = DosyaAdı
Satır = InputBox("Kaçıncı Satıra Kadar Aktarsın?" & vbCrLf & "Mustafa ULUSARAÇ 01ulusarac@superonline.com", "Aktarılacak Bölge")
Range("A1:IV" & Satır).Copy
Set WordTipDosya = CreateObject("Word.Application")
WordTipDosya.Visible = True
Set HedefWordDosya = WordTipDosya.Documents.Add(DocumentType:=1)
WordTipDosya.Selection.PasteSpecial Link:=False, DataType:=2
WordTipDosya.activedocument.SaveAs "C:\" & DosyaAdı & ".doc"
Application.CutCopyMode = False

End If

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