Attribute VB_Name = "Mod001RC切替" Sub RC切替_tools(control As IRibbonControl) If Application.ReferenceStyle = xlA1 Then Application.ReferenceStyle = xlR1C1 Else Application.ReferenceStyle = xlA1 End If End Sub