MVP logo
    Your browser: , Version
Thursday, 16.08.2018, 9:40 PM
Hello! Guest | Group Guest | RSS
Home | Fayl Kataloqu | Profile  | Login
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ı: 536

Statistika

Total online: 1
Guests: 1
Users: 0

Müsabiqələr


Yalnız EURO formatında olanları USD-yə çevirmək
[ Download from this server (26.5 Kb) ]28.07.2011, 6: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


Category: VBA | Added by: Useful
Views: 467 | Downloads: 85 | Rating: 0.0/0
Total comments: 0
Register to add comments
[ Register | Login ]
Login

Search

Useful Sites
  • www.planetaexcel.ru
  • www.programmersforum.ru
  • www.mrexcel.com
  • www.excelworld.ru
  • www.cyberforum.ru
  • www.excelvba.ru
  • www.muhasib.az

  • Visitors
    free counters


    MyExcelWorld © 2018
    Site managed by uCoz