Excel VBA質問箱 IV

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

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


74429 / 76732 ←次へ | 前へ→

【6770】選択セルの列番号を指定列番号に変更したい
質問  初心者プラス1歩  - 03/8/3(日) 12:50 -

引用なし
パスワード
   こんにちは。
ものすごい知識をお持ちの先輩諸氏がいらっしゃるのでお助けくださいませんか。

無作為に選択した単一セル、連続するセル範囲、およびCTRLキーを利用して得た
複数セルの列番号を固定した列番号に変更したいのです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Cells(1, 1) = ActiveWindow.RangeSelection.Address
End Sub

具体的には、上のマクロを使ってそのシートのセルを選択すると、A1セルに、例えば
「$C$9,$B$5:$D$7,$A$6:$C$10,$A$12」と選択セルの番地を取得する事が出来ます。
これを
「$Z$9,$Z$5:$Z$7,$Z$6:$Z$10,$Z$12」のように全て「Z」列に変更して、
セル値の合計を出したいのです。
しかし、ストレートに
=SUM($Z$9,$Z$5:$Z$7,$Z$6:$Z$10,$Z$12) と計算式にしたのでは、
$Z$6、$Z$7、$Z$9が重複して計算されてしまうので、
=SUM($Z$5:$Z$10,$Z$12) とまるめた範囲としたいのです。
条件としては…
1.選択セルの数や選択のパターン(CTRL利用の有無など)は決まっていません。
2.選択範囲はC50からZ62です。
3.絶対番地でなくても良いです。
4.計算式入力のセルは操作者選択なので、Z列固定ですが行は決まっていません。

範囲まるめはだめとしても、列番号の変更だけでもお教え願えませんでしょうか。
よろしくお願いします。
0 hits

【6770】選択セルの列番号を指定列番号に変更したい 初心者プラス1歩 03/8/3(日) 12:50 質問
【6775】Re:選択セルの列番号を指定列番号に変更した... よろずや 03/8/3(日) 17:46 回答
【6783】Re:選択セルの列番号を指定列番号に変更し... 初心者プラス1歩 03/8/3(日) 20:10 質問
【6785】すみません。条件の追加です。 初心者プラス1歩 03/8/3(日) 20:22 発言
【6797】Re:選択セルの列番号を指定列番号に変更し... よろずや 03/8/4(月) 13:04 回答
【6809】感服の至り 初心者プラス1歩 03/8/4(月) 18:33 お礼

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