MVP logo
    Sizin Brauzer: , Versiya
Bazar, 22.10.2017, 2:53 PM
Salam Qonaq | RSS
Ana səhifə | Fayl Kataloqu | Qeydiyyat | Giriş
Saytın menyusu

Kateqoriyalar
VBA [21]
Formullar [31]
Massiv Formullar [12]
Ümumi [4]

Sorğu
"Excel"in hansı versiyasını istifadə edirsiniz?
Səsvermə sayı: 519

Statistika

Cəmi online: 2
Qonaqlar: 1
Userlər: 1
Useful

Müsabiqələr

Ana səhifə » Fayllar » Excel Tricks » VBA

Yalnız EURO formatında olanları USD-yə çevirmək
[ Bu serverdən yüklə (26.5Kb) ] 28.07.2011, 7:50 PM

 

Bu makrosların köməyilə həll edilir. bu kodu Alt+F11 sonra İnsert module edilərək daxil edin, sonra Alt+Q sonra Alt+F8 ilə icra edə bilərsiniz

 

Code
Sub Chevir()
For Each vall In Range("c3:c9")
             If vall.NumberFormat = "[$€-2] #,##0.00" Then
            Dim K As String
             K = Range("i1").Value
             vall.Offset(0, 1).Value = vall.Value * K
            Else
                vall.Offset(0, 1).Value = (vall.Value * 1)
           End If
Next vall
End Sub


Kateqoriya: VBA | Yükləyən: Useful
Baxış sayı: 394 | Yükləmə sayı: 78 | Ratinqi: 0.0/0
Cəmi şərhlər: 0
Ad *:
E-poçt:
Kod *:
Daxil ol

Axtar

Dost Saytlar
  • www.planetaexcel.ru
  • www.programmersforum.ru
  • www.mrexcel.com
  • www.excelworld.ru
  • www.cyberforum.ru
  • www.excelvba.ru
  • www.muhasib.az

  • Sayğac
    free counters

    Saytın məlumatlarından istifadə edərkən mənbəyə istinad zəruridir!
    MyExcelWorld © 2010 - 2017
    Site managed by uCoz
    ILK-10 Azeri Website Directory