本来のエクセルの使い方とは違うのですが、
織物の図面を作成しています。
セルの幅を正方形にちじめて、
色をひとつづつつけていくやり方で
デザイン作成しています。
結構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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
準・究極の選択
「年収1000万円で一生カレーライス」か 「年収180万円で毎日何でも食べ放題」 あなたはどちらを選びますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
excelのセル内の文字を180度回転(上下逆)にすることはできますか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル マクロ 貼り付け先が...
-
一行おきにコピーするマクロが...
-
EXCELにて複数列を同条件(色)...
-
【マクロ】IF複数条件の上限に...
-
Excelの非表示列も含めてコピー
-
Excel 自動セル 抽出 別シート...
-
エクセルで反転コピー
-
エクセルで関数を使わず複数セ...
-
エクセルの関数について(日付で...
-
シート保護の状態で行の追加を...
-
[Excel VBA]空白セル以外に連番...
-
Excel 条件に従いセル移動するには
-
最終行から上10行をコピーする...
-
EXCEL 特定の文字より○文字分...
-
エクセルの複数のセルを一括で...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
Excelで同じセルに箇条書きをし...
-
A1セルに入力したら、入力時間...
-
参照先セルに値が入っていない...
-
エクセルで、桁数の異なるデー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
一行おきにコピーするマクロが...
-
EXCELにて複数列を同条件(色)...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルの関数について(日付で...
-
エクセルで空白以外のセルの値...
-
エクセルで表示された値だけ行...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルで行挿入した際、自動...
-
エクセル マクロ 貼り付け先が...
-
エクセルで反転コピー
-
特定の桁数を抽出
-
[Excel VBA]空白セル以外に連番...
-
エクセルのマクロ、AVERAGEIFを...
-
エクセルVBA 複数列をコピーす...
-
Excel VBAで日にちを入力して線...
-
マクロ初心者です、小数点6桁で...
-
行数が不規則な一週間ごとの合...
-
最終行から上10行をコピーする...
-
エクセルでマクロを使った特定...
おすすめ情報