![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
No.3ベストアンサー
- 回答日時:
斜めに「どの部分(上?下?)を」操作したいのか不明ですが。
また、具体的に「どこまで斜め(対角線にかかったセル)」を対象にしたいのかも曖昧です。
作成例:
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける
Sub macro1()
Dim h As Range
Dim x0 As Double, x1 As Double
Dim y0 As Double, y1 As Double
Dim res As Range
if selection.areas.count > 1 then exit sub
if selection.columns.count = 1 then exit sub
With Selection.Cells(1)
x0 = .Left + .Width
y0 = .Top
End With
With Selection.Cells(Selection.Cells.Count)
x1 = .Left + .Width
y1 = .Top
End With
Set res = Selection.Cells(1)
For Each h In Selection
If h.Top >= (y1 - y0) * (h.Left + h.Width - x0) / (x1 - x0) + y0 Then
Set res = Union(res, h)
End If
Next
res.Select
End Sub
ファイルメニューから終了してエクセルに戻る
シート上で「斜めに」セル範囲を選択する
とりあえず矩形上に選択される
その状態からALT+F8を押し、マクロを実行する。
#作り直しはしませんので、「実は違ってました。こーでした」な時はご自分で工夫してみて下さい。
![「セルを斜めに選択してカットする」の回答画像3](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/a/1223049_5497e3d607470/M.jpg)
No.4
- 回答日時:
No.2です。
>試してみたのですが
>右クリックしても何も起こらないのですが・・・・
(1)シートモジュールになっているのでしょうか?
(2)シートモジュールになっていて「何も起こらない」というコトであれば
範囲指定後、その選択されている範囲内で右クリックをしているかどうか?
他の場所で右クリックすると何も変化ありません。
↓の画像はB5~B10セルを範囲指定 → 範囲しているセル内で右クリック
これで右側のように選択されます。
前回書いたように1列のみ選択 → 右クリックしてみてください。
当方もExcel2010で前回のコードをシートモジュールとしてコピー&ペーストしてやってみると
ちゃんと↓のように選択できました。
※ No.3さんの方法とは異なり、1セルずつずらして選択しています。
※ すでに解決済みのようですので、参考程度で・・・m(_ _)m
![「セルを斜めに選択してカットする」の回答画像4](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/d/667667_5497f207046b2/M.jpg)
ありがとうございます。
できました。
範囲指定したい行数の1列だけを範囲指定
を
範囲指定したい行数の1行だけを範囲指定
と勘違いしていました。
ただ、この方法だと選択できるのは行数だけで
選択する列数を選べないですよね・・・?
No.2
- 回答日時:
こんばんは!
>セルを斜めに選択してカットしたいのですが
具体的な範囲が判らないので、勝手にやってみました。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り
斜めに範囲指定したい行数の1列だけを範囲指定 → 右クリックしてみてください。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'この行から
Dim i As Long, j As Long, cnt As Long, myRng As Range
If Selection(1).Column = Selection(Selection.Count).Column Then
Set myRng = Selection(1)
For i = Selection(2).Row To Selection(Selection.Count).Row
cnt = cnt + 1
For j = Selection(1).Column To Selection(1).Column + cnt
Set myRng = Union(myRng, Cells(i, j))
Next j
Next i
myRng.Select
Cancel = True
End If
End Sub 'この行まで
※ 複数列を範囲指定した場合や2行以上範囲指定していない場合
何の変化もありません。
こんな感じではどうでしょうか?m(_ _)m
ありがとうございます。
試してみたのですが
右クリックしても何も起こらないのですが・・・・
バージョンは2010ですけど、
何が問題でしょうか?
No.3の回答でとりあえず解決したのですが
代替案を知っておきたいので一応教えていただけないでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/10/25 09:26
- Excel(エクセル) excelで可視セルのみ置換 3 2022/08/04 11:02
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) マクロを教えてください 3 2023/07/31 21:57
- Excel(エクセル) マクロを教えてください 2 2023/07/30 23:05
- HTML・CSS アドバイスを下さい。 1 2022/10/08 01:18
- Excel(エクセル) Excelに文字データのみを貼り付けたい 8 2023/05/03 15:38
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
このQ&Aを見た人はこんなQ&Aも見ています
-
これまでで一番「情けなかったとき」はいつですか?
これまでの人生で一番「情けない」と感じていたときはいつですか? そこからどう変化していきましたか?
-
何回やってもうまくいかないことは?
みなさんには、何回やってもうまくいかないことはありますか?
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
この人頭いいなと思ったエピソード
一緒にいたときに「この人頭いいな」と思ったエピソードを教えてください
-
今から楽しみな予定はありますか?
いよいよ2025年が始まりました。皆さんには、今から楽しみにしている予定はありますか?
-
エクセルで斜めに参照コピー
PowerPoint(パワーポイント)
-
斜めの貼り付け
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで連続データから、数...
-
excelで、スクロールをすると限...
-
複数のセルの入力内容を一度に...
-
EXCEL アルファベットと数字の...
-
excelで1行ごとに一気に削除す...
-
エクセルの画面で十字マークが...
-
セルをクリックすると付箋のよ...
-
エクセル 数値を全て「1」にす...
-
エクセル 画面上の行数を調節...
-
エクセルでハイパーリンクのU...
-
Excel 小さくなったスクロール...
-
エクセルでカーソルが四方に矢...
-
エクセルで、結合したセルを選...
-
エクセルで1つおきに列を削除...
-
エクセルVBA 複数行にまたがっ...
-
Excel選択を繰り返すとセルの色...
-
列選択で勝手に広範囲に範囲選...
-
Excelで表のデータを並び替えた...
-
エクセル 複数セルを選択する...
-
ピポットテーブルエラー解決方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelで、スクロールをすると限...
-
エクセルで連続データから、数...
-
複数のセルの入力内容を一度に...
-
エクセルの画面で十字マークが...
-
EXCEL アルファベットと数字の...
-
excelで1行ごとに一気に削除す...
-
エクセル 画面上の行数を調節...
-
セルをクリックすると付箋のよ...
-
Excel 小さくなったスクロール...
-
エクセル 数値を全て「1」にす...
-
エクセルでハイパーリンクのU...
-
Excelで表のデータを並び替えた...
-
エクセルで任意のセルをクリッ...
-
エクセルで1つおきに列を削除...
-
エクセルで、結合したセルを選...
-
Excel選択を繰り返すとセルの色...
-
エクセルで0を除いて昇順に並...
-
エクセルでカーソルが四方に矢...
-
ピポットテーブルエラー解決方法
-
Shift押しながら、矢印ボタンで...
おすすめ情報