AccessTr.neT
Vb.net Eklenti(excel Sütun Ve Sair Secme) - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vb.net Eklenti(excel Sütun Ve Sair Secme) (/konu-vb-net-eklenti-excel-sutun-ve-sair-secme.html)

Sayfalar: 1 2


Vb.net Eklenti(excel Sütun Ve Sair Secme) - feraz - 09/05/2020

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



RE: Vb.net Eklenti(excel Sütun Ve Sair Secme) - accessman - 09/05/2020

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


RE: Vb.net Eklenti(excel Sütun Ve Sair Secme) - feraz - 09/05/2020

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


RE: Vb.net Eklenti(excel Sütun Ve Sair Secme) - feraz - 09/05/2020

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



RE: Vb.net Eklenti(excel Sütun Ve Sair Secme) - POWER - 09/05/2020

VB.net uygulamanızı eklermisiniz...


RE: Vb.net Eklenti(excel Sütun Ve Sair Secme) - feraz - 09/05/2020

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