یک تکنیک کاربردی جهت کار با لیست*ها

[smartman]

با سلام خدمت همه کاربران

های لایت کردن سطر (ستون) جاری یک لیست در قالب یک تکنیک کاربردی در فایل ضمیمه، نشان داده شده است.

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 

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.