目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
26 / 107 ツリー ←次へ | 前へ→

【78】あるセル範囲の左上のセルと右下のセルアドレスの取得 Jaka 04/10/19(火) 11:18 Excel[未読]
【198】ちょっと修正。 Jaka 07/6/25(月) 15:29 Excel[未読]
【240】個々に選択されたセルの全体範囲 Jaka 08/7/19(土) 16:15 Excel[未読]

【78】あるセル範囲の左上のセルと右下のセルアド...
Excel  Jaka  - 04/10/19(火) 11:18 -

引用なし
パスワード
   過去ログ
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=4519;id=excel
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=6611;id=excel
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=18971;id=excel


過去ログをまとめてみると

With Selection
   MsgBox "左上アドレス " & .Address & vbLf & _
      "左上行 " & .Row & vbLf & _
      "左上列 " & .Column & vbLf & _
      "右下行 " & .Row + .Rows.Count - 1 & vbLf & _
      "右下列 " & .Column + .Columns.Count - 1 & vbLf & _
       vbLf & _
       vbLf & _
      "左上アドレス " & .Cells(1).Address(0, 0) & vbLf & _
      "範囲上の行番 " & .Cells(1).Row & vbLf & _
      "範囲左の列番 " & .Cells(1).Column & vbLf & _
       vbLf & _
      "右下アドレス " & .Cells(.Count).Address(0, 0) & vbLf & _
      "範囲下の行番 " & .Cells(.Count).Row & vbLf & _
      "範囲右の列番 " & .Cells(.Count).Column
End With


ついでにある範囲におけるCellsの添え字について
えっと、1度下記コードを実行させてみてください。
少しは、基本的なことがわかるかと思います。
取り合えず範囲として、マクロでセル範囲を選択させて、選択してあるセル範囲を処理対象としてあります。


Sub Cellsの添え字の位置()
  Dim cel As Range, i As Long
  Range("B2:F11").Select
  
  i = 0
  For Each cel In Selection
    i = i + 1
    cel.Value = Format(i, "00") & " - " & Selection.Cells(i).Address(0, 0)
  Next
  
  '選択されているセルの数分のセル、つまり最後のセル
  MsgBox Selection.Cells(Selection.Count).Address(0, 0)
  '上は、こういう意味。2〜11で10、B〜Fで5
  MsgBox Selection.Cells(10 * 5).Address(0, 0)
End Sub


Sub 選択範囲に縦の連番を()
  Dim cel As Range, i As Long, ii As Long
  Range("A15:F29").Select
  
  For i = 1 To Selection.Columns.Count
    For ii = 1 To Selection.Rows.Count
      Selection.Cells(ii, i).Value = _
           i * Selection.Rows.Count - Selection.Rows.Count + ii
    Next
  Next
End Sub


私の能力では、これ以上うまくまとめられませんでした.....。

【198】ちょっと修正。
Excel  Jaka  - 07/6/25(月) 15:29 -

引用なし
パスワード
   すみません。

>With Selection
>   MsgBox "左上アドレス " & .Address & vbLf & _
        ↑
   2002と97で、返り値が違っているのか、
   単に私が度アホなのか、今となっては97が無いので解りませんが、
   2002の場合、左上アドレスでなく、選択範囲のアドレスが返るだけです。

【240】個々に選択されたセルの全体範囲
Excel  Jaka  - 08/7/19(土) 16:15 -

引用なし
パスワード
   Sub 個々に選択されたセルの全体範囲()
  Dim Rgst As String, i As Long
  Rgst = Selection.Areas(1).Address(0, 0)
  For i = 2 To Selection.Areas.Count
    Rgst = Rgst & ":" & Selection.Areas(i).Address(0, 0)
    Rgst = Range(Rgst).Address(0, 0)
  Next
  Range(Rgst).Select
  MsgBox Rgst
End Sub

尚、結合セルがあると選択したセルが自動で拡張され、
表示されたセル範囲と違う場合があります。
結合セルは無しと言う事でお願いします。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
26 / 107 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free