маркирана област
9 отговора
188 прегледа
маркирана област
Маркирам с мишката някаква област.
Как мога да разбера колко колони съм маркирал ?
Как мога да разбера колко колони съм маркирал ?
Re: маркирана област
до момента, до който държиш бутона на мишката натиснат - той сам ти показва колко колони и колко реда си маркирал, при маркиране на зона от клетки/а не цели колони/ се появява когато маркираната зона надвиши възможностите на екрана
К.
........I WASN'T REALY DRUNK AT THE TIME.......
К.
........I WASN'T REALY DRUNK AT THE TIME.......
Re: маркирана област
Не ми е това проблема. Искам при стартиране на макроса в дадена клетка (или променлива) да ми се изпише (да се запамети) колко са колоните които предварително съм маркирал.
Re: маркирана област
Точно по този проблем работя (по точно се упражнявам, защото сега навлизам в нещата). Разглеждам идеята на Щирлиц. Достигнах до тук:
Sub ocweti()
Dim Cell As Range
Dim i As Integer
Dim j As Integer
Let i = 0
For Each Cell In Selection
Let i = i + 1
If i / 2 = Int(i / 2) Then Cell.Interior.ColorIndex = 3
Next
End Sub
но това не е решението трябва ми броя на колоните или редовете за да го довърша
Sub ocweti()
Dim Cell As Range
Dim i As Integer
Dim j As Integer
Let i = 0
For Each Cell In Selection
Let i = i + 1
If i / 2 = Int(i / 2) Then Cell.Interior.ColorIndex = 3
Next
End Sub
но това не е решението трябва ми броя на колоните или редовете за да го довърша
Re: маркирана област
така кажи - че не сакаш да мелиш, не че е едро

К.
........I WASN'T REALY DRUNK AT THE TIME.......
К.
........I WASN'T REALY DRUNK AT THE TIME.......
Re: маркирана област
Остатък от деление можеш да получиш с оператора Mod.
Примерно
5 Mod 2 = 1
6 Mod 2 = 0
1 Mod 2 = 1
или това което се опитваш да напишеш
if i Mod 2 = 0 then ...
Примерно
5 Mod 2 = 1
6 Mod 2 = 0
1 Mod 2 = 1
или това което се опитваш да напишеш
if i Mod 2 = 0 then ...
Re: маркирана област
Знаех, че имаше такъв някакъв оператор, но се чудех какъв беше и за това го направих по сложния начин.