AccessTr.neT

Bul · 09/05/2020, 02:13

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

Bul · 09/05/2020, 04:27

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

Bul · 09/05/2020, 12:47

(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.

Bul · 09/05/2020, 21:09

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

Bul · 09/05/2020, 22:28

VB.net uygulamanızı eklermisiniz...

Bul · 09/05/2020, 22:44

Heralde doğru yüklüyorumdur.
Pek bilgim yok.C sürücüsüne atmıştım programla.

AccessTr.neT

Vb.net Eklenti(excel Sütun Ve Sair Secme)

Vb.net Eklenti(excel Sütun Ve Sair Secme)

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri