Как более красиво написать программу ?

[Killerloopp]

HI ALL !!!
написал вот программу на VBA. По замыслу она переводит старые 6-и значные номера на новые 7-значные.Вообщем она то работает но уже очень неуклюже написана. Можно ли как нибудь её решить покрасивее? например с массивами или с более сложными циклами?
программа пригалагается
спасибо!

[alibek]

Мать моя женщина...
Советую использовать Select Case.

[corgi]

а можно подробней про какие числа идет речь

[Killerloopp]

а можно подробней про какие числа идет речь

прилагаю сами числа
в принципе там меняется только префикс

[GSerg]

Код: Выделить всё

Private Function ConvertNumber(ByVal n As String) As String
  Select Case CLng(Left$(n, 3))
  Case 110 To 119
    ConvertNumber = "38" + Mid$(n, 2)
  Case 360 To 369, 790 To 792
    ConvertNumber = "36" + Mid$(n, 2)
  Case 630 To 639
    ConvertNumber = "26" + Mid$(n, 2)
  Case 793 To 799
    ConvertNumber = "37" + Mid$(n, 2)
  Case 100 To 109, 120 To 299, 570 To 579
    ConvertNumber = "2" + Left$(n, 2) + Right$(n, 4)
  Case 300 To 569, 580 To 629, 640 To 789
    ConvertNumber = "3" + Left$(n, 2) + Right$(n, 4)
  End Select
End Function

[Killerloopp]

Спасибо огромное !

остался один маленький вопросик. что такое case? и как его применять? я в VBA мало что понимаю

[Cyrax]

оператор множественного выбора Select Case
применяется для изменения хода выполнения программы в зависимости от значения какой-либо переменной. можно сказать - это такой навороченый If ... End If
формат такой:
Select Case <variable>
Case <value>
' блок кода если выполняется условие
' т.е. если <variable> = <value>
Case <value1>-<value2>
' если <value1> меньше <variable> больше <value2>
Case <value1>, <value2>, <value3>
' если <variable> принимает одно из значений
Case Esle
' если ни одно из услови невыполнено
End Select