VBA获取点击单元格字体大小并写入指定单元格,配合命令树改变字体大小
本帖最后由 hunter2666 于 2023-12-20 22:19 编辑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
页:
[1]