• Стас
  • Восстановленный участник
  • На форуме с 20 июня 2004г.
  • Сообщений: 3
  • Спасибо: 0

Тема: Выделение ячеек в Excel

Как выделить диапазон ячеек при помощи VBA, от активной до заданной

  • AASer
  • Восстановленный участник
  • На форуме с 19 апреля 2004г.
  • Сообщений: 41
  • Спасибо: 0

Re: Выделение ячеек в Excel

Я тебе шлю код для выделения ячеек из под AutoCad (из Excel все осуществляется одной командой), что касается активной ячейки - дорабатывай сам.

Public Function Chislo(zn_ch As Integer)
Dim ost_ch As Currency
If zn_ch / 26 > 1 Then
    ost_ch = ((zn_ch / 26 - zn_ch \ 26) * 26)
    If ost_ch / 1 - ost_ch \ 1 > 0.5 Then ost_ch = ost_ch \ 1 + 1 Else ost_ch = ost_ch \ 1
    Chislo = Bukva((zn_ch - ost_ch) / 26)
   Chislo = Chislo & Bukva(ost_ch)
Else
    Chislo = Bukva(zn_ch)
End If
End Function
Public Function Bukva(ch_b)
If ch_b = 1 Then Bukva = "A"
If ch_b = 2 Then Bukva = "B"
If ch_b = 3 Then Bukva = "C"
If ch_b = 4 Then Bukva = "D"
If ch_b = 5 Then Bukva = "E"
If ch_b = 6 Then Bukva = "F"
If ch_b = 7 Then Bukva = "G"
If ch_b = 8 Then Bukva = "H"
If ch_b = 9 Then Bukva = "I"
If ch_b = 10 Then Bukva = "J"
If ch_b = 11 Then Bukva = "K"
If ch_b = 12 Then Bukva = "L"
If ch_b = 13 Then Bukva = "M"
If ch_b = 14 Then Bukva = "N"
If ch_b = 15 Then Bukva = "O"
If ch_b = 16 Then Bukva = "P"
If ch_b = 17 Then Bukva = "Q"
If ch_b = 18 Then Bukva = "R"
If ch_b = 19 Then Bukva = "S"
If ch_b = 20 Then Bukva = "T"
If ch_b = 21 Then Bukva = "U"
If ch_b = 22 Then Bukva = "V"
If ch_b = 23 Then Bukva = "W"
If ch_b = 24 Then Bukva = "X"
If ch_b = 25 Then Bukva = "Y"
If ch_b = 26 Then Bukva = "Z"
End Function
Sub table_2()
Dim Shir_st_min, Vis_str_min As Double
Dim Shir_st As Integer
Dim i As Integer
Dim jach As String
Shir_st_min = 4
    For i = 1 To setka_x_n - 1
        Shir_st = (Shir_st_min * (setka_x(i + 1) - setka_x(i)) / (setka_x(2) - setka_x(1))) \ 1
        jach = Chislo(i) & 1 & ":" & Chislo(i) & 65536
        curSheet.Range(jach).Select
        curSheet.Range(jach).ColumnWidth = Shir_st
    Next i
End Sub