Excel Text Alignment
1 отговора
66 прегледа
Excel Text Alignment
Моля Ви, кажете как да определям alignment-а на съдържанието на клетките в Excel от VB?
и как да задавам стойността на една конкретна клетка да бъде пресметната по определена формула(функция)(Avarage примерно)?
Thanks a Lot !

и как да задавам стойността на една конкретна клетка да бъде пресметната по определена формула(функция)(Avarage примерно)?
Thanks a Lot !
Re: Excel Text Alignment
Може да има и по-добър начин, но ето един:
Dim ws1 As Worksheet
Set ws1 = Sheet1
' а взема мин(а1,а2)
а=WorksheetFunction.Min(A1, A2)
' центрира клетка (1,1)
ws1.Cells(1, 1).HorizontalAlignment = xlCenter
N
Dim ws1 As Worksheet
Set ws1 = Sheet1
' а взема мин(а1,а2)
а=WorksheetFunction.Min(A1, A2)
' центрира клетка (1,1)
ws1.Cells(1, 1).HorizontalAlignment = xlCenter
N