Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
Cevapla
#2
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
@benbendedeilem
Cevapla
#3
(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.
Cevapla
#4
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
Cevapla
#5
VB.net uygulamanızı eklermisiniz...
Please return your positive or negative ...
Cevapla
#6
Heralde doğru yüklüyorumdur.
Pek bilgim yok.C sürücüsüne atmıştım programla.
.rar ExcelAddIn1.rar (Dosya Boyutu: 278,51 KB | İndirme Sayısı: 3)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da