
本来のエクセルの使い方とは違うのですが、
織物の図面を作成しています。
セルの幅を正方形にちじめて、
色をひとつづつつけていくやり方で
デザイン作成しています。
結構200×400ぐらいのマスの大作です。
そこで、反転した絵を作る場合
コピーで反転できないかとの悩みです。
わかりにくいかもしれませんが
左半分を色をつけ(今回は記号で表しています。)
--*
***
--*
コピーして反転できないかというものです。
--**--
******
--**--
カメラ機能でやってみましたが、その後に絵柄を付け加えたい
場合もあるので、試して使えないと思いました。
感じとしては行列を入れ替えて貼り付けするって方法なのですが
90度しか反転しません。
180度回転させてコピーしたい場合簡単にできないものでしょうか?

No.2ベストアンサー
- 回答日時:
美しいものを見せていただきありがとうございます。
さて、整理すると線対象に右側に同じ色をつけるということで考えましたが
VBA(マクロ)でやるのが簡単かと思いました。
マクロを使われたことがないという前提で説明します。
ブックを開いて Altキーを押しながらF11を押します。
マクロの画面が開きます。
上部のツールバーから「挿入」-「標準モジュール」とします。
コード(プログラム)を入力するシートが開きます。
下のコードをコピーして貼り付けます。(Option から End subまで)
×をクリックしてマクロの画面を閉じます
Option Explicit
Option Base 1
Sub 反転()
Dim 列数 As Integer
Dim 行数 As Integer
Dim 開始列 As Integer
Dim 反転開始列 As Integer
Dim 開始行 As Integer
Dim i As Integer
Dim j As Integer
列数 = Selection.Columns.Count
行数 = Selection.Rows.Count
開始列 = Selection.Column
開始行 = Selection.Row
反転開始列 = 開始列 + 列数
For i = 開始行 To 開始行 + 行数 - 1
For j = 1 To 列数
Cells(i, 反転開始列 + 列数 - j).Interior.ColorIndex = Cells(i, 開始列 + j - 1).Interior.ColorIndex
Next
Next
End Sub
通常のExcel画面で「マクロ」-「マクロの表示」とします
マクロ名に 反転 と出ているところで「オプション」をクリック
マクロオプションの画面でショートカットキーにqと入力します。
OKをクリック
マクロの窓を閉じます。
これで準備OKです
反転したい範囲を指定してCtrlキーを押しながらqを押します。(マクロの起動)
指定された範囲の右側に反転された図形が現れます。
本当はマクロと図形のブックを分けたほうがいいのですが説明が煩雑になり敷居が高くなるかなと思いこうしました。
(これでも十分高いかもしれませんが)
す・・・すごい
できました。
簡単なマクロしかできない私にとっては感動・・・
rivoisuさんは何でもできちゃいますね
エクセルのバージョンもお知らせするのも忘れていました。
(Excel2003です。)
おかげで、オウムをまた、チマチマ色づけの時間が一気に短縮できました。
これからデザイン図案が一気に短縮でき、楽しくなりそうです。
No.4
- 回答日時:
行列反転しなくても
1行目に 1,2,3・・・として範囲を選択し
データ - 並べ替え
[オプション] ●列単位
最優先されるキー ●降順
でもよいと思います。
コピーではないですが
ツール - オプション インターナショナル
[レ][現在のシートを右から左へ表示する]
なんてのもあります。
# デザインのセンスがあって羨ましい(@_@)
お~~~~
すっばらしい・・・
こんなに簡単にできるなんて、、、、
並べ替えが列単位でできるななんて
知らなかったです~~
教えていただいて感謝!!
ありがとうございます。
シートを右から左へ
というのも初めて知りました~~~~
CoalTarさんありがとうございました~~
No.1
- 回答日時:
左右反転したいということで、思いつきの手順です。
1.範囲を選択してコピー
2.別シートに[形式を選択して貼り付け]-[行と列を入れ替える]で貼り付け
3.A列を挿入し、着色のある行に1から順に数字を入れていく(「1」を入力したら、右下フィルハンドルを[CTRL]を押しながら下へドラッグ)
4.3まででできたものを、そのすぐ下へコピー貼り付け
5.貼り付けた行だけを選択し、[降順]の並べ替え
6.A列を削除(これで、90°回転状態で反転複写完了)
7.全体をコピーし、別シートに別シートに[形式を選択して貼り付け]-[行と列を入れ替える]で貼り付け
どうでしょうか?
早速の回答ありがとうございました。
反転した後並べ替えなんて考えも着きませんでした。
すごくいい勉強になりました。
絵も反転することができました(^^♪
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Excel(エクセル) エクセルからビジオのリンク貼り付け 1 2023/03/30 17:51
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) エクセルのマクロ作成について教えてください 5 2023/02/20 00:39
- Excel(エクセル) Excel M365 データチェックの仕掛けを作りたい 2 2023/06/03 23:54
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセルVBA 作業後に選択範囲を解除する方法 5 2023/02/17 07:13
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
- Visual Basic(VBA) VBAマクロでシートコピーした新シートにコピー元シートとの計算式の入れ方を教えて下さい。 5 2022/11/20 09:48
- Excel(エクセル) エクセルについて教えてください。 3 2023/03/24 08:34
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
シート保護の状態で行の追加を...
-
エクセル マクロ 貼り付け先が...
-
エクセルで空白以外のセルの値...
-
Excelの非表示列も含めてコピー
-
エクセルの関数について(日付で...
-
エクセルで表示された値だけ行...
-
エクセルで反転コピー
-
Excelのマクロで不規則に連番を...
-
エクセルVBA 複数列をコピーす...
-
Excel 自動セル 抽出 別シート...
-
エクセルVBA 並び替え セルの...
-
【マクロ】IF複数条件の上限に...
-
エクセルのマクロ、AVERAGEIFを...
-
Excel 条件に従いセル移動するには
-
エクセル VBA 指定の範囲内をコ...
-
エクセルマクロで、現在の時刻...
-
特定の桁数を抽出
-
行数が不規則な一週間ごとの合...
-
Excel関数のことで教えてくださ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
エクセルで表示された値だけ行...
-
シート保護の状態で行の追加を...
-
Excelの非表示列も含めてコピー
-
エクセルの関数について(日付で...
-
エクセルで空白以外のセルの値...
-
一行おきにコピーするマクロが...
-
エクセル マクロ 貼り付け先が...
-
エクセルで反転コピー
-
エクセルVBA 複数列をコピーす...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルで行挿入した際、自動...
-
特定の桁数を抽出
-
[Excel VBA]空白セル以外に連番...
-
エクセルでマクロを使った特定...
-
Excel VBAで日にちを入力して線...
-
マクロで値がある列までコピー
-
マクロ初心者です、小数点6桁で...
-
【マクロ】IF複数条件の上限に...
-
行数が不規則な一週間ごとの合...
おすすめ情報