別のセルにコピーする方法?
カメラ機能を使用すれば、見た目でできます。
手順は以下の通りです。
1.回転したいセルを選択する。
2.ツールバーの「カメラ」ボタンを押す。
3.適当な位置に貼りつける。
4.貼りつけた画像を180°回転させる。
☆ツールバーが表示されていない場合は、メニューバーの「ツール」「ユーザ設定」
の「コマンド」タブの「ツール」にカメラがありますので、ツールバーに「カメラ」
をドロップダウンして追加してください。
ダミーURL::http://q.hatena.ne.jp/1252006987
回転させるということで、Excelのカメラ機能ではどうでしょう。
回転させるセルをコピーして、Shiftを押しながらメニューの編集をクリックしてください。
すると「図の貼り付け」というのがあります。
(「図のリンク貼り付け」のほうは元セルを変更したら一緒に変更されます。お好きなほうを)
「図の貼り付け」でオブジェクトが貼り付けられるので、上の緑色をドラッグして180度回転させてください。
文字が太くなるがOKでした。
[セルの書式設定]-[配置]-[方向]で文字の方向を変えられるのは+-90度までです。
180度はできません。
可能な範囲でしたら次のマクロをショートカットキーに割り当てることにより実行できます。
personal.xls(excel2007=Personal.xlsb) に次のマクロを登録すれば良いです。
Option Explicit 'personal.xls(excel2007=Personal.xlsb) Sub Auto_Open() '[Shift]+[Ctrl]+[C]操作に割り当てられる Application.OnKey "+^P", "SpecialPaste" End Sub '[セルの書式設定]-[配置]-[方向]で文字の方向を変える '任意のセルをコピー後、このマクロを実行する 'このマクロはpersonal.xls のAuto_Openで登録され、 'ショートカットキーに割り当てられる。 '[Shift]+[Ctrl]+[C]操作で実行される Sub SpecialPaste() MsgBox "a" On Error GoTo Err_ ActiveSheet.Paste Application.CutCopyMode = False With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlCenter .WrapText = False .Orientation = 90 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Err_: End Sub
※こちらを参考にしてください。
http://arrow3.way-nifty.com/shige/2005/07/__fa5b.html
http://www.excel7.com/personal/personal2.htm
また、セルでの表示では無くなってしまうのですが、
Excel2007であれば、テキストボックスを配置し、
180度回転することにより上下逆さまに表示することができます。
そういった表示で良ければ、そのコードのマクロを割り当てればいいです。
私には、無理
順番を逆にしたいということであれば
1行(列)を挿入して、オートナンバーで番号を振りその番号で逆順に並び替えしてみてはいかがでしょうか?
URLはダミーです
目的が違う
カメラが無い