Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
           Dim selectedRange As SpreadsheetGear.IRange = e.RangeSelection
           If selectedRange.RowCount = 1 And selectedRange.ColumnCount = 1 Then  
               Dim fontSize As Double = selectedRange.Font.Size   
               AW.ActiveWorksheet.Cells("BP2").Value = fontSize  
           End If  
           
       End Sub'单元格选择后执行的事件
C:\Users\Administrator\Desktop\QQ截图20231220221753.png

Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
           Dim selectedRange As SpreadsheetGear.IRange = e.RangeSelection
           If selectedRange.RowCount = 1 And selectedRange.ColumnCount = 1 Then  
               Dim fontSize As Double = selectedRange.Font.Size   
               AW.ActiveWorksheet.Cells("BP2").Value = fontSize  
           End If  
           
       End Sub'单元格选择后执行的事件
C:\Users\Administrator\Desktop\QQ截图20231220221753.png