Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59920 / 76732 ←次へ | 前へ→

【21473】Re:む、難しい…
発言  記録マクロに毛が3本  - 05/1/21(金) 17:29 -

引用なし
パスワード
   横入りすみません
難しいとの事なので私程度のLVの低いので良ければと思ったら・・・
お二人から解説来てましたね

力技(?)なのですがせっかく作ったので載せさせて下さい

Sub 物は試しでw()
  
  x1 = ActiveCell.Row   'アクティブ(現在選択中)セルの縦(列)位置の取得
  x2 = ActiveCell.Column  'アクティブ(現在選択中)セルの横(行)位置の取得
  
  
  '         ↓縦位置の指定
  ActiveSheet.Cells(x1, x2 + 2).Select '←2セル右に移動
  '             ↑横位置の指定
  
  ActiveCell.End(xlDown).Select
  
  y1 = ActiveCell.Row   '終了セルの縦(列)位置の取得
  y2 = ActiveCell.Column  '終了セルの横(行)位置の取得
  
  Range(Cells(x1 + 1, x2), Cells(y1, y2)).Select '最終的な範囲を指定
  
End Sub

注釈は自分用です。付けておかないと判らなくなるので
1 hits

【21453】アクティブセルの、その下から…(範囲の選択) 草加Jacky 05/1/21(金) 15:31 質問
【21454】Re:アクティブセルの、その下から…(範囲... よーくかんがえよぉ 05/1/21(金) 15:50 回答
【21455】よーく考えたんですが… 草加Jacky 05/1/21(金) 16:00 発言
【21456】Re:よーく考えたんですが… G-Luck 05/1/21(金) 16:07 回答
【21463】Re:よーく考えたんですが… よーくかんがえよぉ 05/1/21(金) 16:30 回答
【21464】む、難しい… 草加Jacky 05/1/21(金) 16:37 お礼
【21465】Re:む、難しい… G-Luck 05/1/21(金) 16:46 発言
【21467】Re:む、難しい… よーくかんがえよぉ 05/1/21(金) 17:00 発言
【21470】Re:む、難しい… 草加Jacky 05/1/21(金) 17:10 お礼
【21473】Re:む、難しい… 記録マクロに毛が3本 05/1/21(金) 17:29 発言
【21477】分かりやすい ^^! 草加Jacky 05/1/21(金) 17:35 お礼

59920 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free