VBA: перемещение значений в строки

Когда вы используете метод equals(), он используется для сравнения содержимого. вы должны попробовать == для сравнения двух объектов.

public void MyClick(View view)
{
 Drawable fDraw = view.getBackground();
 Drawable sDraw = getResources().getDrawable(R.drawable.twt_hover);

  if( fDraw == sDraw )
  {
   // Coming
  }
}
0
задан user11087488 18 March 2019 в 02:54
поделиться

1 ответ

Расположение PivotField определяется его Orientation.

Вам нужно два простых цикла:

  • добавить каждое поле строки в качестве поля значения
    и определить его функцию, числовой формат и т. Д.
  • удалить строку поля

Пример:

Private Sub PivotRowsToValues()
    Dim pt As PivotTable
    Dim pf As PivotField

    For Each pt In ActiveSheet.PivotTables

        ' use each row field also as value field:
        For Each pf In pt.RowFields
            With pf
                .Orientation = xlDataField  ' xlColumnField
                .Function = xlSum           ' xlCount, ...
                .NumberFormat = "General"   ' "0.00", ...
            End With
        Next pf

        ' remove each row field
        For Each pf In pt.RowFields
            pf.Orientation = xlHidden
        Next pf

    Next pt
End Sub
0
ответ дан Asger 18 March 2019 в 02:54
поделиться
Другие вопросы по тегам:

Похожие вопросы: