tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルエクセルのワークシートのアクティブセルの変化を捉えるには?
記事No1546
投稿日: 2005/04/02(Sat) 12:58
投稿者サッサン
[[OSのVer]:Windows XP    [VBのVer]:VB.NET 2003

Form1にWebBrowserコントロールを貼り付け
エクセルのワークシートを表示させています。
この表示したワークシートのセルをマウスでクリック
するごとにイベントを発生させることは可能でしょうか?
エクセルVBAにあるようなSelectionChangeのような
ことは可能でしょうか?
可能ならクリックしたセルの数値をFrom1のTextBoxに表示したいのですが...。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load

        Dim FF As String
    Dim oBook As Excel.Workbook
        Dim oSheet As Excel.Worksheet

        FF = "K:\01263.xls"
      
        AxWebBrowser1.Navigate(FF)
        oBook = AxWebBrowser1.Document
        oSheet = oBook.Worksheets("入力表(印刷用)")
        oSheet.Select()
              
    End Sub
  

[ツリー表示へ]
タイトルRe: エクセルのワークシートのアクティブセルの変化を捉えるには?
記事No1557
投稿日: 2005/04/04(Mon) 14:48
投稿者魔界の仮面弁士
> エクセルVBAにあるようなSelectionChangeのような
> ことは可能でしょうか?


Imports System.Runtime.InteropServices
Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1
    Inherits System.Windows.Forms.Form
'''''  
'''''  " Windows フォーム デザイナで生成されたコード "
'''''  
    Private WithEvents Sheet As Excel.Worksheet

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Me.AxWebBrowser1.Navigate("C:\Book1.xls")
        Dim oBook As Excel.Workbook = DirectCast(AxWebBrowser1.Document, Excel.Workbook)
        Dim oSheets As Excel.Sheets = oBook.Worksheets
        Sheet = DirectCast(oSheets(1), Excel.Worksheet)
        Marshal.ReleaseComObject(oSheets)
        Marshal.ReleaseComObject(oBook)
    End Sub

    Private Sub Sheet_SelectionChange(ByVal Target As Excel.Range) Handles Sheet.SelectionChange

    End Sub
'''''  
'''''  (後略: オブジェクトの解放処理等を忘れずに)
'''''  
End Class

[ツリー表示へ]
タイトル解決しました!!
記事No1559
投稿日: 2005/04/04(Mon) 16:08
投稿者サッサン
[OSのVer]:Windows    [VBのVer]:VB.NET  
私はまだまだ修行が足りませんねえ。
良い勉強になりました。
完全に解決しました。ありがとうございました。

[ツリー表示へ]