AccessTr.neT

Tam Versiyon: Vb.net Eklenti(excel Sütun Ve Sair Secme)
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Merhaba.
Vb.net ile eklenti yapmaya çalışıyorum ve yeni video izleyerek bişeyler yaptım.
Yapmak istediğim excelin hangi hücresine tıklanınca onun ilgili satır ve sütunları seçilsin alttaki kod bu işi yapıyor lakin seçmiyor.


Application.ActiveSheet.range(strRange).select burasını ayarlayamadım sanırım.


Imports Microsoft.Office.Interop.Excel

Public Class ThisAddIn

    Private Sub Application_SheetSelectionChange(Sh As Object, Target As Range) Handles Application.SheetSelectionChange
        Dim strRange As String

        strRange = Target.Cells.Address & "," &
              Target.Cells.EntireColumn.Address & "," &
              Target.Cells.EntireRow.Address
        Application.ActiveSheet.range(strRange).select
    End Sub
End Class
Mesela D:5 seçildi. O zaman
5.satır A dan sonsuza kadar ve 
D sutunu 1 den sonsuza kadar
Seçilecek değil mi
(09/05/2020, 04:27)accessman yazdı: [ -> ]Mesela D:5 seçildi. O zaman
5.satır A dan sonsuza kadar ve 
D sutunu 1 den sonsuza kadar
Seçilecek değil mi
Evet abey.Excelde oluyor burda tanıtamadım alete.
D5 seçilirse 5.satırsağı ve solu ve D sütun yukarısı aşağısı seçilecek.
Vb.net ile ribbon menü ve com eklentiler yapıp setup yapacağım.İstediklerim olursa forumdada paylaşırım.
Kodları alttaki gibi değiştirdim yine olmadı.
Dim hucre As Range = sayfa.Range("A:Z") bu şekilde çalışıyor.Örnek sadece
Dim hucre As Range = sayfa.Range(strRange) bu şekilde çalışmıyor.


Imports Microsoft.Office.Interop.Excel

Public Class ThisAddIn

    Private Sub Application_SheetSelectionChange(Sh As Object, Target As Range) Handles Application.SheetSelectionChange
        Dim aktifsayfa As Worksheet = Globals.ThisAddIn.Application.ActiveWorkbook.Worksheets(1)
        Dim sayfa As Microsoft.Office.Tools.Excel.Worksheet = Globals.Factory.GetVstoObject(aktifsayfa)
        Dim strRange As String = Target.Cells.Address & "," & Target.Cells.EntireColumn.Address & "," & Target.Cells.EntireRow.Address
        'Dim hucre As Range = sayfa.Range(strRange)
        Dim hucre As Range = sayfa.Range("A:Z")
        hucre.Select()
    End Sub
End Class
VB.net uygulamanızı eklermisiniz...
Heralde doğru yüklüyorumdur.
Pek bilgim yok.C sürücüsüne atmıştım programla.
Sayfalar: 1 2