[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re: 範囲選択したセル情報が欲しい。 投稿日 ： 2010/10/28(Thu) 15:04 投稿者 ： 魔界の仮面弁士
| > エクセル上で範囲選択したセルの最初の行と列、最後の行と列を取得したいのですが、 Ctrl を押しながらドラッグすると、非連続の範囲を選択できますが、 その場合はどのように取得したいのでしょうか? Private WithEvents objSheet1 As Excel.Worksheet Private Sub objSheet1_SelectionChange(ByVal Target As Excel.Range) Debug.Print "全体=[" & Target.Address(False, False, xlA1) & "]" ' Debug.Print "左端の列:"; Target.Columns(1).Column ' Debug.Print "右端の列:"; Target.Columns(Target.Columns.Count).Column ' Debug.Print "上端の行:"; Target.Rows(1).Row ' Debug.Print "下端の行:"; Target.Rows(Target.Rows.Count).Row Debug.Print "個別取得:" Dim r As Excel.Range For Each r In Target.Areas Debug.Print " [" & r.Address(False, False, xlA1) & "]" Debug.Print " 左端の列:"; r.Columns(1).Column Debug.Print " 右端の列:"; r.Columns(Target.Columns.Count).Column Debug.Print " 上端の行:"; r.Rows(1).Row Debug.Print " 下端の行:"; r.Rows(Target.Rows.Count).Row Next Debug.Print End Sub |
をクリックするとツリー全体を一括表示します） - 範囲選択したセル情報が欲しい。 - ミヤ 10/10/28-13:53No.15001