HandsOn Writing the Form SelectionChange Event Procedure

1. In the Visual Basic Editor window, double-click Form_Sales Analysis Subform 1.

2. The Code window shows several event procedures you prepared earlier in this chapter. Enter the following Form_SelectionChange event procedure below the last procedure code.

Private Sub Form_SelectionChange()

Debug.Print "Selection Type: " & Me.PivotTable.SelectionType End Sub

3. To test the above event procedure, open Sales Analysis Subform 1 in Form view. Because you've already created several event procedures for this form, various events will be triggered. Respond appropriately to the prompts. Once the form opens in the PivotTable view, click on various areas of the PivotTable and open the Immediate window to see the names of the selected objects. Notice that the SelectionType values are always returned in plural:

Selection Type: PivotColumnMembers

Selection Type: PivotFields

Selection Type: PivotRowMembers

Selection Type: PivotAggregates

0 0

Post a comment