با سلام خدمت همه کاربران
های لایت کردن سطر (ستون) جاری یک لیست در قالب یک تکنیک کاربردی در فایل ضمیمه، نشان داده شده است.
کد PHP:
Sub Auto_Open()
On Error Resume Next
Dim CheckRegistry As String
CheckRegistry = GetSetting(appname:="SigmaPlot", section:="Excel", _
key:="Addin", Default:="0")
If Dir(ThisWorkbook.Path + "\Sigmaplot.xla") = "" Then
SPRemoveMenu
ResetRegistry
End If
End Sub
Sub SPRemoveMenu()
On Error Resume Next
Dim spButtonCheck As CommandBarControl
Dim spCommandbar As CommandBarControl
Set spCommandbar = CommandBars("Worksheet Menu Bar").Controls("Insert")
Set spCommandbar = CommandBars(1).Controls(4) 'add for foreign OS
For Each spButtonCheck In spCommandbar.Controls
If spButtonCheck.Caption = "SigmaPlot Graph" Then
spButtonCheck.Delete
Application.CommandBars("Standard").Controls(20).Delete
Application.CommandBars(3).Controls(20).Delete 'add for foreign OS
Exit Sub
End If
Next
End Sub
Sub ResetRegistry()
Dim CheckRegistry As String
' Check the registry for an entry
CheckRegistry = GetSetting(appname:="SigmaPlot", section:="Excel", _
key:="Addin", Default:="0")
If CheckRegistry = 1 Then
'Set the registry setting for sigmaplot addin
SaveSetting appname:="SigmaPlot", section:="Excel", _
key:="Addin", setting:=0
End If
End Sub
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)