VBレスキュー(花ちゃん)の Visual Basic 6.0用掲示板

タイトル： Re^2: 範囲選択したセル情報が欲しい。

投稿日： 2010/10/28(Thu) 18:00

投稿者：ミヤ

とりあえず連続した選択範囲のみ実現できれば、良いです。

現在は以下のようにアクティブなセルの行と列を取得しています。
Private WithEvents xlApp As Excel.Application
Private WithEvents xlWb As Excel.Workbook
Private WithEvents xlWs As Excel.Worksheet
Private Sub Command1_Click()
    MsgBox("セルを選択して下さい。", vbYesNo)
    Set xlApp = GetObject(, "Excel.Application")
    Set xlWb = xlApp.ActiveWorkbook
    Set xlWs = xlWb.ActiveSheet
　　gyo= xlApp.ActiveCell.Row
    retu = xlApp.ActiveCell.Column
End Sub
コマンドボタンを押すとメッセージを表示して「はい」が押された時に
アクティブになっているセルの行と列を取得できるようになっています。

これを複数のセルを選択した時に最初のセルと最後のセルの行と列を知りたいと思いますが、
Private Sub objSheet1_SelectionChange(ByVal Target As Excel.Range)
    Debug.Print "全体=[" & Target.Address(False, False, xlA1) & "]
をどうやって組み込めばよいのか分かりません。

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

範囲選択したセル情報が欲しい。

ミヤ

No.15001

Re: 範囲選択したセル情報が欲しい。 - 魔界の仮面弁士 10/10/28-15:04 No.15002
- Re^2: 範囲選択したセル情報が欲しい。 - ミヤ 10/10/28-18:00 No.15006
  - Re^3: 範囲選択したセル情報が欲しい。 - 魔界の仮面弁士 10/10/28-18:14 No.15007
    - Re^4: 範囲選択したセル情報が欲しい。 - ミヤ 10/11/01-15:06 No.15015
      - Re^5: 範囲選択したセル情報が欲しい。 - 魔界の仮面弁士 10/11/01-15:35 No.15016
        
        Re^6: 範囲選択したセル情報が欲しい。 - ミヤ 10/11/01-16:54 No.15017
        
        Re^7: 範囲選択したセル情報が欲しい。 - 魔界の仮面弁士 10/11/01-18:31 No.15018

タイトル	： Re^2: 範囲選択したセル情報が欲しい。
投稿日	： 2010/10/28(Thu) 18:00
投稿者	：ミヤ

古いスレッドにレスはつけられません。