Форматиране на стил "процент" в Excel-VBA - excel-vba, vba, excel

Имате n листове, които са избрани и аз съмопитвайки се да приложи стила "процент" на всички за набор от селектирани клетки. Обаче само първият лист се форматира. Другите стилове за форматиране, които използвам, работят перфектно върху всички листове. Само "процентът" изглежда работи само в първия лист! Има ли конкретна причина за това? Поставете моя кодов фрагмент по-долу: Благодаря предварително за помощта

Range(Cells(143, 2), Cells(146, MarketRangeColumn + 10)).Select
Selection.Style = "Percent"
Range(Cells(100, 2), Cells(142, MarketRangeColumn + 10)).Select
Selection.Style = "Comma"
Selection.numberformat = "_(* #,##0.0_);_(* (#,##0.0);_(* ""-""??_);_(@_)"
Selection.numberformat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"

Отговори:

Ако сте избрали няколко листа, приложете aСтилът засяга само клетките на активния лист. Прилагането на цифрова формат ще се отрази на всички листове, така че трябва да използвате това, а не стила или цикъла през всеки лист.

всички избрани методи

Sub test()
Dim vName()
Dim Ws As Worksheet, n As Integer
For Each Ws In Worksheets
n = n + 1
ReDim Preserve vName(1 To n)
vName(n) = Ws.Name
Next Ws
Sheets(vName).Select
Range(Cells(143, 2), Cells(146, MarketRangeColumn + 10)).Select
Selection.Style = "Percent"
Range(Cells(100, 2), Cells(142, MarketRangeColumn + 10)).Select
Selection.Style = "Comma"
Selection.NumberFormat = "_(* #,##0.0_);_(* (#,##0.0);_(* ""-""??_);_(@_)"
Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"
End Sub