Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Kasım 2012 Perşembe

Create Your Vocabulary Note Book By The Google Translate.


'UserForm1

'A. Available References List
'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE
'3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb
'4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'5) Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\Windows\SysWOW64\FM20.DLL
'6) Name: MSComctlLib, Description: Microsoft Windows Common Controls 6.0 (SP6), FullPath: C:\Windows\SysWow64\MSCOMCTL.OCX
'B. Available Tools List
'1) Image1, Label1, Label2
'2) Label3, ComboBox1, Label4, Label5, Label6, ComboBox2, Label7, Label8, CommandButton1, CommandButton2, CommandButton3
'3) Label9, TextBox1, Label10, TextBox2, Label11, ListBox1, CommandButton4, StatusBar1
Private i As Single
Private no As Double
Private IE As Object
Private hText As String
Private Bellek(0 To 63, 1 To 2)
Private Const hURL = "http://translate.google.com/translate_t#"
Private ObjText As String
Private ObjWord As String
Private ObjRExp As Object
Private ObjItem
Private ObjGrup
Private ObjClct As New Collection
Private hSheet As Worksheet
Private nSheet As String
Private cWord As String
Private fWord As Range
Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] Create Your Vocabulary Note Book By The Google Translate."
Call Bellek_Kur
Call Ekran_Kur
End Sub
Private Sub ComboBox1_Change() 'Source Language
On Error Resume Next
Label5.Caption = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub
Private Sub ComboBox2_Change() 'Target Language
On Error Resume Next
Label8.Caption = ComboBox2.List(ComboBox2.ListIndex, 1)
End Sub
Private Sub CommandButton1_Click() 'Get Text
On Error Resume Next
Dim Dosya, kayit1
Dosya = Application.GetOpenFilename("Text File (*.txt), *.txt, Word Files (*.doc), *.doc", 1, "[PBİD®] Text Dosya Seçimi", "Onayla", False)
If Dosya <> False Then
Call CommandButton2_Click
hText = ""
Open Dosya For Input As 1
Do While Not EOF(1)
Line Input #1, kayit1
If kayit1 <> Empty Then
hText = hText & kayit1
End If
Loop
Close #1
TextBox1.Text = hText
hText = ""
End If
End Sub
Private Sub CommandButton2_Click() 'Clear
On Error Resume Next
ComboBox1.ListIndex = -1
ComboBox1.Text = "Choose"
Label5.Caption = ""
ComboBox2.ListIndex = -1
ComboBox2.Text = "Choose"
Label8.Caption = ""
TextBox1.Text = ""
TextBox2.Text = ""
ListBox1.Clear
StatusBar1.Panels.Item(1).Text = ""
VBA.DoEvents
End Sub
Private Sub CommandButton3_Click() 'Google Translate
On Error GoTo Hata
CommandButton4.Enabled = False
If IE Is Nothing Then
Set IE = VBA.CreateObject("InternetExplorer.Application")
End If
IE.Visible = False
IE.Navigate hURL
Call IE_Busy(IE)
If ComboBox1.ListIndex > -1 Then
If ComboBox2.ListIndex > -1 Then
If TextBox1.Text <> "" Then
StatusBar1.Panels.Item(1).Text = "Loading the Google Translate site. Please Wait."
TextBox2.Text = Google_Translate(IE, TextBox1.Text, Label5.Caption, Label8.Caption)
Call Veri_Kur
Else
MsgBox "Please choose a SOURCE TEXT.", vbCritical, "[PBİD®"
Exit Sub
End If
Else
MsgBox "Please choose a TARGET LANGUAGE.", vbCritical, "[PBİD®"
Exit Sub
End If
Else
MsgBox "Please choose a SOURCE LANGUAGE.", vbCritical, "[PBİD®"
Exit Sub
End If
Hata:
IE.Visible = False
IE.Quit
Set IE = Nothing
StatusBar1.Panels.Item(1).Text = "Translation was made."
CommandButton4.Enabled = True
End Sub
Private Sub TextBox1_Change() 'Source Text
On Error Resume Next
TextBox2.Text = ""
ListBox1.Clear
StatusBar1.Panels.Item(1).Text = ""
VBA.DoEvents
End Sub
Private Sub CommandButton4_Click() 'Add Vocabulary
On Error Resume Next
If ListBox1.ListCount = 0 Then
MsgBox "Archived, a record was not found in the list will know.", vbInformation, "[PBİD®]"
Else
nSheet = ComboBox1.Value & "_" & ComboBox2.Value
For Each hSheet In ThisWorkbook.Worksheets
If hSheet.Name = nSheet Then GoTo Devam
Next hSheet
ThisWorkbook.Worksheets.Add Before:=Sheets(1)
ActiveSheet.Name = nSheet
With Range("A1:B2")
.Cells(1, 1) = ComboBox1.Value
.Cells(2, 1) = "[" & Label5.Caption & "]"
.Cells(1, 2) = ComboBox2.Value
.Cells(2, 2) = "[" & Label8.Caption & "]"
.Interior.ColorIndex = 5
.Interior.Pattern = xlSolid
.Font.ColorIndex = 2
.Font.Bold = True
.Font.Size = 12
.Font.Name = "Arial"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ColumnWidth = 36
End With
Devam:
no = 0
For i = 0 To (ListBox1.ListCount - 1)
cWord = ListBox1.List(i, 1)
Set fWord = ActiveSheet.UsedRange.Find(what:=cWord, After:=Range("$A$1"), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False)
If fWord Is Nothing Then
no = ThisWorkbook.Sheets(nSheet).Range("A1:A65536").Find(Empty, LookAt:=xlWhole).Row
ThisWorkbook.Sheets(nSheet).Cells(no, 1) = ListBox1.List(i, 1)
ThisWorkbook.Sheets(nSheet).Cells(no, 2) = ListBox1.List(i, 3)
End If
Next i
End If
End Sub
Function Google_Translate(IE As Object, IE_Text As String, IE_sl As String, IE_tl As String) As String
On Error Resume Next
Me.StatusBar1.Panels.Item(1).Text = IE_Text & "; translation is done ..."
Call IE_Busy(IE)
With IE.document
.forms("text_form").elements("tl").Value = IE_tl
Call IE_Busy(IE)
.forms("text_form").elements("sl").Value = IE_sl
Call IE_Busy(IE)
.forms("text_form").elements("source").Value = IE_Text
Call IE_Busy(IE)
If VBA.Val(Application.Version) > 11 Then
.getElementById("text_form").submit
Else
.text_form.submit 'Default
End If
Call IE_Busy(IE)
hText = .getElementById("result_box").innerText
Call IE_Busy(IE)
End With
hText = VBA.Replace(hText, VBA.Chr(13), "")
Google_Translate = hText
End Function
Sub IE_Busy(IE As Object)
On Error Resume Next
Dim hEnd As Double
hEnd = 0
Do While IE.busy
hEnd = hEnd + 1
Application.Wait VBA.TimeSerial(VBA.Hour(Now()), VBA.Minute(Now()), VBA.Second(Now()) + 1)
If hEnd > 60 Then Exit Sub
Loop
End Sub
Private Sub Ekran_Kur()
On Error Resume Next
With Me
.BackColor = vbWhite
.Height = 438
.Width = 376
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
With Image1
.Top = 6
.Left = 6
.Height = 24
.Width = 24
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Picture = Resim(URL2)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False
End With
With Label1
.Left = 36
.Top = 6
.Height = 12
.Width = 318
.Caption = "Mustafa ULUSARAÇ"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue
End With
With Label2
.Left = 36
.Top = 18
.Height = 12
.Width = 318
.Caption = "01ulusarac@superonline.com"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue
End With
With Label3
.Left = 6
.Top = 36
.Height = 18
.Width = 84
.Caption = "Source Language"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.ForeColor = &H808000
.TextAlign = fmTextAlignCenter
End With
With ComboBox1
.Left = 6
.Top = 54
.Height = 18
.Width = 84
.ColumnCount = 2
.ColumnWidths = "71;1"
.Text = "Choose"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleOpaque
.ForeColor = &H808000
.Font.Bold = True
.List() = Bellek
End With
With Label4
.Left = 90
.Top = 36
.Height = 18
.Width = 42
.Caption = "Code"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.ForeColor = &H808000
.TextAlign = fmTextAlignCenter
End With
With Label5
.Left = 90
.Top = 54
.Height = 18
.Width = 42
.Caption = ""
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleOpaque
.ForeColor = &H808000
.Font.Bold = True
.TextAlign = fmTextAlignCenter
End With
With Label6
.Left = 132
.Top = 36
.Height = 18
.Width = 84
.Caption = "Target Language"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.ForeColor = &H808000
.TextAlign = fmTextAlignCenter
End With
With ComboBox2
.Left = 132
.Top = 54
.Height = 18
.Width = 84
.ColumnCount = 2
.ColumnWidths = "71;1"
.Text = "Choose"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleOpaque
.ForeColor = &H808000
.Font.Bold = True
.List() = Bellek
End With
With Label7
.Left = 216
.Top = 36
.Height = 18
.Width = 42
.Caption = "Code"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.ForeColor = &H808000
.TextAlign = fmTextAlignCenter
End With
With Label8
.Left = 216
.Top = 54
.Height = 18
.Width = 42
.Caption = ""
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleOpaque
.ForeColor = &H808000
.Font.Bold = True
.TextAlign = fmTextAlignCenter
End With
With CommandButton1
.Left = 258
.Top = 36
.Height = 18
.Width = 54
.Caption = "Get Text"
.BackStyle = fmBackStyleOpaque
.ForeColor = &H808000
End With
With CommandButton2
.Left = 312
.Top = 36
.Height = 18
.Width = 54
.Caption = "Clear"
.BackStyle = fmBackStyleOpaque
.ForeColor = &H808000
End With
With CommandButton3
.Left = 258
.Top = 54
.Height = 18
.Width = 108
.Caption = "Google Translate"
.BackStyle = fmBackStyleOpaque
.ForeColor = &H808000
End With
With Label9
.Left = 6
.Top = 72
.Height = 18
.Width = 360
.Caption = "Source Text"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.ForeColor = &H808000
.TextAlign = fmTextAlignCenter
End With
With TextBox1
.Left = 6
.Top = 90
.Height = 54
.Width = 360
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleOpaque
.ForeColor = vbBlue
.TextAlign = fmTextAlignLeft
.BackColor = &H80000005
.Locked = False
.MultiLine = True
.ScrollBars = fmScrollBarsVertical
.EnterKeyBehavior = True
End With
With Label10
.Left = 6
.Top = 144
.Height = 18
.Width = 360
.Caption = "Translated Target Text"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.ForeColor = &H808000
.TextAlign = fmTextAlignCenter
End With
With TextBox2
.Left = 6
.Top = 162
.Height = 54
.Width = 360
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleOpaque
.ForeColor = &H808000
.TextAlign = fmTextAlignLeft
.BackColor = &H80000005
.Locked = True
.MultiLine = True
.ScrollBars = fmScrollBarsVertical
End With
With Label11
.Left = 6
.Top = 216
.Height = 18
.Width = 360
.Caption = "Source & Translated Target Words"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.ForeColor = &H808000
.TextAlign = fmTextAlignCenter
End With
With ListBox1
.Left = 6
.Top = 234
.Height = 160
.Width = 360
.BackColor = &H80000005
.ColumnCount = 6
.ColumnWidths = "30;120;30;120;54;1"
.SpecialEffect = fmSpecialEffectEtched
.ForeColor = &H808000
End With
With StatusBar1
.Left = 6
.Top = 396
.Height = 18
.Width = 252
.Panels.Item(1).AutoSize = sbrSpring
.Panels.Item(1).Picture = Resim(URL2)
End With
With CommandButton4
.Left = 258
.Top = 396
.Height = 18
.Width = 108
.Caption = "Add Vocabulary"
.BackStyle = fmBackStyleOpaque
.ForeColor = &H808000
End With
End With
End Sub
Sub Bellek_Kur()
On Error Resume Next
Bellek(0, 1) = "Detect Language": Bellek(0, 2) = "auto" 'Dil Algıla    

Bellek(1, 1) = "Africa": Bellek(1, 2) = "af" 'Afrika    
Bellek(2, 1) = "German": Bellek(2, 2) = "de" 'Almanca    
Bellek(3, 1) = "Arabic": Bellek(3, 2) = "ar" 'Arapça    
Bellek(4, 1) = "Albanian": Bellek(4, 2) = "sq" 'Arnavutça    
Bellek(5, 1) = "Azerbaijani": Bellek(5, 2) = "az" 'Azerice    
Bellek(6, 1) = "Basque": Bellek(6, 2) = "eu" 'Baskça    
Bellek(7, 1) = "Belarusian": Bellek(7, 2) = "be" 'Belarusça    
Bellek(8, 1) = "Bengali": Bellek(8, 2) = "bn" 'Bengalce
Bellek(9, 1) = "Bulgarian": Bellek(9, 2) = "bg" 'Bulgarca    

Bellek(10, 1) = "Czech": Bellek(10, 2) = "cs" 'Çekçe
Bellek(11, 1) = "Chinese (Traditional)": Bellek(11, 2) = "zh-CN" 'Çince (Geleneksel)    

Bellek(12, 1) = "Danish / Danis": Bellek(12, 2) = "da" 'Danca/Daniş
Bellek(13, 1) = "Indonesia": Bellek(13, 2) = "id" 'Endonezya
Bellek(14, 1) = "Armenian": Bellek(14, 2) = "hy" 'Ermenice
Bellek(15, 1) = "Estonian": Bellek(15, 2) = "et" 'Estonyaca    

Bellek(16, 1) = "Iran/Persian": Bellek(16, 2) = "fa" 'Farsça    
Bellek(17, 1) = "Flemish Language": Bellek(17, 2) = "nl" 'Felemenkçe    
Bellek(18, 1) = "Filipino": Bellek(18, 2) = "tl" 'Filipince
Bellek(19, 1) = "Finnish": Bellek(19, 2) = "fi" 'Fince
Bellek(20, 1) = "French": Bellek(20, 2) = "fr" 'Fransızca    

Bellek(21, 1) = "Welsh": Bellek(21, 2) = "cy" 'Galce    
Bellek(22, 1) = "Galician": Bellek(22, 2) = "gl" 'Galiçyaca    
Bellek(23, 1) = "Gujarat": Bellek(23, 2) = "gu" 'Gücerat    
Bellek(24, 1) = "Georgian": Bellek(24, 2) = "ka" 'Gürcüce    
Bellek(25, 1) = "Haiti": Bellek(25, 2) = "ht" 'Haiti    
Bellek(26, 1) = "Croatian": Bellek(26, 2) = "hr" 'Hırvatça
Bellek(27, 1) = "Indian Language": Bellek(27, 2) = "hi" '"Hintçe
Bellek(28, 1) = "Hebrew": Bellek(28, 2) = "iw" 'İbranice
Bellek(29, 1) = "English": Bellek(29, 2) = "en" 'İngilizce
Bellek(30, 1) = "Irish": Bellek(30, 2) = "ga" 'İrlandaca    

Bellek(31, 1) = "Spanish": Bellek(31, 2) = "es" 'İspanyolca    
Bellek(32, 1) = "Swedish": Bellek(32, 2) = "sv" 'İsveçce    
Bellek(33, 1) = "Italian": Bellek(33, 2) = "it" 'İtalyanca
Bellek(34, 1) = "Icelandic": Bellek(34, 2) = "is" 'İzlandaca
Bellek(35, 1) = "Japanese": Bellek(35, 2) = "ja" 'Japonca    

Bellek(36, 1) = "Kannada": Bellek(36, 2) = "kn" 'Kanada
Bellek(37, 1) = "Catalan": Bellek(37, 2) = "ca" 'Katalanca    

Bellek(38, 1) = "Korean": Bellek(38, 2) = "ko" 'Korece
Bellek(39, 1) = "Latin": Bellek(39, 2) = "la" 'Latince    

Bellek(40, 1) = "Polish": Bellek(40, 2) = "pl" 'Lehçe    
Bellek(41, 1) = "Latvian": Bellek(41, 2) = "lv" 'Letonca    
Bellek(42, 1) = "Lithuanian": Bellek(42, 2) = "lt" 'Litvanyaca
Bellek(43, 1) = "Hungarian": Bellek(43, 2) = "hu" 'Macarca    

Bellek(44, 1) = "Macedonian": Bellek(44, 2) = "mk" 'Makedonca
Bellek(45, 1) = "Malaysia": Bellek(45, 2) = "ms" 'Malezya
Bellek(46, 1) = "Malta Language": Bellek(46, 2) = "mt" 'Malta Dili
Bellek(47, 1) = "Norwegian": Bellek(47, 2) = "no" 'Norveçce
Bellek(48, 1) = "Portuguese": Bellek(48, 2) = "pt" 'Portekizce    

Bellek(49, 1) = "Romanian": Bellek(49, 2) = "ro" 'Romence
Bellek(50, 1) = "Russian": Bellek(50, 2) = "ru" 'Rusça
Bellek(51, 1) = "Serbian": Bellek(51, 2) = "sr" 'Sırpça    

Bellek(52, 1) = "Slovak": Bellek(52, 2) = "sk" 'Slovakça
Bellek(53, 1) = "Slovenian": Bellek(53, 2) = "sl" 'Slovence
Bellek(54, 1) = "Svahili": Bellek(54, 2) = "sw" 'Svahili    

Bellek(55, 1) = "Tamil": Bellek(55, 2) = "ta" 'Tamil
Bellek(56, 1) = "Thai": Bellek(56, 2) = "th" 'Tay
Bellek(57, 1) = "Telugu": Bellek(57, 2) = "te" 'Telugu
Bellek(58, 1) = "Turkish": Bellek(58, 2) = "tr" 'Türkçe
Bellek(59, 1) = "Ukrainian": Bellek(59, 2) = "uk" 'Ukraynaca    

Bellek(60, 1) = "Urdu": Bellek(60, 2) = "ur" 'Urduca    
Bellek(61, 1) = "Vietnamese": Bellek(61, 2) = "vi" 'Vietnamca
Bellek(62, 1) = "Yiddish": Bellek(62, 2) = "yi" 'Yidce
Bellek(63, 1) = "Greek": Bellek(63, 2) = "el" 'Yunanca
End Sub
Private Sub Veri_Kur()
On Error Resume Next
ObjText = TextBox1.Text
Set ObjRExp = VBA.CreateObject("VBScript.RegExp")
With ObjRExp
.Pattern = "\w+"
.IgnoreCase = False
.Global = True
Set ObjGrup = .Execute(ObjText)
End With
no = 0
For Each ObjItem In ObjGrup
ObjClct.Add ObjItem, ObjItem
If VBA.Err.Number = 0 Then
ListBox1.AddItem
ListBox1.List(no, 1) = ObjItem.Value
'ListBox1.List(No, 3) = Google_Translate(IE, ObjItem.Value, "auto", Label8.Caption)

ListBox1.List(no, 3) = Google_Translate(IE, ObjItem.Value, Label5.Caption, Label8.Caption)
ListBox1.List(no, 0) = IE.document.forms("text_form").elements(0).Value '"sl"

ListBox1.List(no, 2) = IE.document.forms("text_form").elements(1).Value '"tl"            
ListBox1.List(no, 4) = IE.document.forms("text_form").elements(6).Value
no = no + 1
Else
VBA.Err.Clear
End If
Do While ObjClct.Count > 0
ObjClct.Remove 1
Loop
Next
End Sub

'Module1

Option Explicit
Public Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Public Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
Public IPic(15) As Byte
Public Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
Public Const URL1 As String = "http://2.bp.blogspot.com/-G3KDFVP7V0Q/TcUhtYtMifI/AAAAAAAACw0/Ta6mFpFJtZ8/s1600/39.bmp"
Public Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg"
Public URL As String
Sub Form_Aç() 'Open UserForm
On Error Resume Next
UserForm1.Show 0
End Sub
Public Function Resim(URL) As Picture 'Picture load frome web address...
On Error Resume Next
CLSIDFromString StrPtr(ClsID), IPic(0)
OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Resim
End Function
'Sub References_List()
' On Error Resume Next
' Dim Eleman, no
' no = 1
' For Each Eleman In ThisWorkbook.VBProject.References
' Sheets(1).Cells(no, 1) = no & ") Name: "
' Sheets(1).Cells(no, 2) = Eleman.Name
' Sheets(1).Cells(no, 3) = ", Description: "
' Sheets(1).Cells(no, 4) = Eleman.Description
' Sheets(1).Cells(no, 5) = ", FullPath: "
' Sheets(1).Cells(no, 6) = Eleman.FullPath
' no = no + 1
' Next Eleman
'End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

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