(マクロの記録などで作成した簡単なものでよいと思います), Sub 並替() With Worksheets("Sheet1")         , Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _ Excel全般で使いたいマクロは、個人用マクロブック(personal.xlsb)に書くことにより可能になります。 また、Excelを終了する際には、個人用マクロブックを保存するかを確認するダイアログが表示されるので、保存ボタンをクリックして保存するようにします。         SortMethod:=xlPinYin Excel 2013 マクロの記録・実行 「開発タブ」の表示 マクロの記録 リボンからのマクロ実行 ショートカットキーによるマクロ実行 マクロが含まれたブックの保存 マクロ有効ブックを開く Excel 2013の … Excel全般で使いたいマクロは、個人用マクロブック(personal.xlsb)に書くことにより可能になります。 また、Excelを終了する際には、個人用マクロブックを保存するかを確認するダイアログが表示さ … ◆Snipping Tool を使ってスクリーン ショットをキャプチャする Copyright © 2001-2020 初心者のためのOffice講座 All Rights Reserved. 実際にどのような表示になっているのかわからなかったので、お困りの状況がみなさんに伝わるよう、差支えない範囲で画像を投稿してみてください。         xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _         , SortOn:=xlSortOnValues, Order:=xlAscending, _     .Apply >※ Excel ブックにトラブルが無いかを確認するためです。, 「ドキュメント検査機能では削除できない個人情報がドキュメントに含まれていることがありますので、ご注意ください。」, と言うメッセージが新たに出るようになり、OKボタンを押すと動作停止のアラートが出ます。, ◆ネットで類似エラーを検索していたら、以下の一文を見つけましたが、何か関係ありそうな気がするのですが、、、。, 「Excel 2003まででユーザー設定の並べ替え基準を使うときは、まずユーザー設定リストに登録して、引数OrderCustomには「ユーザー設定リストの何番目」と指定します。もちろん、ユーザー設定リストに登録されていない基準で並べ替えることはできません。, 対して、Excel 2007の引数「CustomOrder」は、独自の並べ替え基準を文字列で指定します。」, http://officetanaka.net/excel/vba/tips/tips148.htm より引用, ブックの作り直しの時、シートを移動するとか、書式も含めて貼り付けされていませんか?, その場合、シートを旧ブックから移動してきたり、書式書式を含めてシート全体をコピー&ペーストするとトラブルが伝染する場合が多いです。, 作り直しの際はコピー&ペーストを使っても良いのですが、形式を選択して貼り付けの数式(数式と値が貼り付けられます)くらいまでにしてください。, このスレッド、↑で本論に関係ない口出しするまで、内容見てませんでしたが・・・・・・, Win7+Excel2013、Win7+Excel2010 いずれもX86で環境は違うのですが発生します。, 確認ですが、第2キーを("4", "5", "6", "7", "8", "9", "10", "11", "12", "1", "2", "3"), >確認ですが、第2キーを("4", "5", "6", "7", "8", "9", "10", "11", "12", "1", "2",> "3") 確認された結果など、返信お待ちしております。, 宛先とスクロールした後の表の中に文字がみることができましたが、ほとんど変わりませんでした。, 後日同じファイルをほかのパソコンで見たら、普通に見れたのですがファイルではなくパソコンの問題でしょうか?, 該当のブックを作成した環境と開こうとしている環境が異なるなどの場合、互換性の問題で片方の PC で表示される、表示されないといった状況になっているのかもしれません。, よろしければファイルが正常に表示されない方の Excel 2013 で新規ブックを作成し、その新規ブックにデータをコピーして改めて正常に開けるか確認してください。, 前回秋山がコメントした拡張子の件についてですが、ブックに拡張子を書き込むのではなく、そのブックのファイル形式が何になっているか確認してスレッドに書き込んでほしいという意味だと思います。, ・ブックを右クリック > プロパティ > ファイルの種類が何になっているか確認 (xlsx など), (Excel 2016 など ※使用している Excel2002(WindowsXP-SP3)を使用しています。 既存のExcelファイルをダブルクリックして開こうとすると「Personal.xls」が起動します。 ファイル(F)>開く で既存のExcelファイルを指定すると問題なく開きます。 (ドラッグアンドドロップでExcelにファイルを持ってきても開きます) ウィンド …   .Sort.SortFields.Add Key:=Range("B8:B16") _ ), このスレッドはロックされています。質問をフォローすることや役に立つと投票することはできますが、このスレッドに返信することはできません。. ActiveSheet.unprotect, Application.AddCustomList ListArray:=Array("4", "5", "6", "7", "8", "9", "10", "11", "12", "1", "2", "3")   .Sort.SortFields.Clear Office2010では、リボンのカスタマイズができるようになりました。 非常に便利ですね。 Excelのマクロやアドインは、クイックアクセ ... また、PERSONAL.XLSBを表示したい場合は、[表示]タブから[再表示]をクリックします。, [ウィンドウの再表示]が表示されるので、[PERSONAL.XLSB]を選択して[OK]ボタンをクリックします。, そうしないと、次回から常にPERSONAL.XLSBが表示されるようになりますので、気を付けてください。, マクロの記録ダイアログボックスも一度、[個人用マクロブック]を選択すると、以降はそのまま継承されるので、[作業中のブック]を選択し直しておいたほうがいいと思います。, 既存のマクロを個人用マクロブックとして保存する場合は、[名前を付けて保存]ダイアログボックスで、[ファイルの種類]から[Excelバイナリブック(*.xlsb)]を選択します。, C:\Users\(ユーザー名)\AppData\Roaming\Microsoft\Excel\XLSTART, 参考マクロを他のブックで使用できるようにするには、アドインとして保存する方法もあります。. Excel 2013 で、マクロを実行させた後に *.xlsm 形式で保存すると動作が停止してしまうのですね。 手元の Excel 2013 と Windows8.1 の環境で、書いていただいたコードを使って保存をしてみた結果、問題は見られませんでした。 個人用マクロブックPersonal.xlsbにはまず絶対に、下記のコードを追加しておきたい。 中身については後で述べるので、まずは何も考えず、下記のコードを追加だ。 これを追加さえすれば … >でソートしたいってことですよね?, 第1キーをユーザー設定リスト("4", "5", "6", "7", "8", "9", "10", "11", "12", "1", "2",> "3"), Win98ーExcel97、Win2000ーExcel2000、WinXPーExcel2003、Win7ー2010 を使ってきた歴史のなかで、Excel本体が動作を停止するというようなことはなかったと言うことです。舌っ足らずでスミマセン。, >・xlsx形式で保存した場合は、エラーなしで正常に動作する。 また、問題が起きるのは特定のファイルかどうかもあわせて書いてみてください。 Office のバージョンを確認する方法), (同じ Windows 10 など ※Windows Excel のファイル タブ > オプション > 詳細設定 > ハードウェア グラフィック アクセラレータを無効にする、のチェック をオンにする End Sub, >■ 問題のブックを新規 Excel ブックで作り直した場合はどうか Excelでマクロを作成するときは、通常、作業中のブックに保存しますが、個人用マクロブックを作成すると、Excel起動時に常に起動されるので、どのブックでも使用できるようになります。, 個人用マクロブックは、Excel起動時に起動されますが、非表示となっているので意識することはありません。, マクロの記録を使って保存する場合は、[マクロの保存先]で[個人用マクロブック]に切り替えます。, ここでは、[Ctrl]+[Shift]+[*]を押して、表全体を(アクティブセル領域)を選択した後、[Delete]キーを押して範囲選択を削除する動作を記録しました。, 下のようにPERSONAL.XLBが作成されて、コードが記録されているのがわかります。, 個人用マクロブックを保存する場合は、作成するために使用したブックは保存しなくていいですが、[個人用マクロブックの変更を保存しますか?]という以下のメッセージウィンドウでは、必ず[保存]をクリックします。, それでも、もっとスマートに操作するために、クイックアクセスツールバーにマクロを登録しておくといいです。, クイックアクセスツールバーの▼ボタンをクリックして、[その他のコマンド]をクリックします。, [コマンドの選択]で[マクロ]を選択すると、個人用マクロブックが現れますので、選択して中央の[追加]ボタンをクリックします。, 参考コマンドボタンは特定のファイルのみに追加することもできます。以下の記事で解説しています。. コンピューターから Office 2013 または Office 365 をアンインストールする, このスレッドはロックされています。質問をフォローすることや役に立つと投票することはできますが、このスレッドに返信することはできません。.     windows10にupgradeしたところ、office2013(word・excel・powerpoint)が使えなくなりました。 画面上に一瞬現れるのですが、すぐに消えてしまいます。 2013が立ち上がっているように現れた瞬間、画面左のほうに消えていくような感じでスタート画面に戻ってしまいます。 のバージョン確認方法         , Order2:=xlAscending, Header:=xlNo, OrderCustom:=Application.CustomListCount + 1, MatchCase:=False _ ※個人情報が含まれる部分は、ペイントなどで塗りつぶしてください。 ブート> を実行してみてください。 返信お待ちしています。, フィードバックをお送りいただきありがとうございます。今後のサイト改善に役立てて参ります。, masaseto さん、こんにちは。 Application.ScreenUpdating = True, -------------------------------------------------------------------------------------------------------------------------------------, ・xls形式(Exsel97-2003)で保存した場合は、正常に保存される。マクロも実行できる。, フィードバックをお送りいただきありがとうございます。今後のサイト改善に役立てて参ります。, >■ 別のコードで作成したマクロブックでも発生するか Excel 2013 でデータが表示されないのですね。         Range("A8").End(xlDown).Offset(1, 0).Select, Application.DeleteCustomList (Application.CustomListCount) 'ユーザー定義リストの削除, ActiveSheet.Protect End Sub, ただし、↑の返信を拝見する前にやっていたものですので、第一キーはB列でカスタムリストによるソート、, VBAの場合、ほとんどの場合SP等で解消することはありませんから、できることで逃げた方が手っ取りばやいです。, ただ、一つ気になるのが大沢さんの方で発生していないということで、SPによって違うのかもしれません。, 何が原因なのかすっきりしませんが、コードを書き直すか、回避策としてXLS形式で使用するか考えます。, シート仕様の変更があって、以前のオブジェクトが対応できていないということなのですね。, このスレッドはロックされています。質問をフォローすることや役に立つと投票することはできますが、このスレッドに返信することはできません。. Ikea Led電球 Áらつき 5, Steam ɝアクティブ ŋ作 10, Ãムスター ŷ箱 Ť 22, Ãローワーク船橋 ɧ Ȼ場 11, Oppo R17 Pro Ãケモンgo 12, Ľ温計 Lo Ƅ味 12, Bmw E90 Âイル交換 ĸ抜き 4, ɛ聴 Ļ事 Ⱦめる 15, Âノケン Áくとく Ȳ用 17, Âプラ Ãゥーン 2 ȇ分に合ったブキ 42, Panda Tc Ãール 13, Ãラモデル š装 Ť敗修復 6, Ssd ĸ良セクタ Ŀ復 Mac 5, Ŝ ś収 Ɲ京 5, Good Job Ɣ略 402 30, Dx超獣王 ȼ ň 5, One Epi ŏコミ 7, Ãラゴンボールヒーローズ Ãトスタ Ãッキ 6, Ȃ休中 ɀ職 Ŀ育園 7, Ãイクラ ɪ粉 Ȋ 5, Rav4 Ãックカメラ Ʌ線 7, Ť野剛 Ũ ŭ校 21, Sharepoint Ãュー Ãィルタ Ɨ付 ǩ白 6, Ȕ屋書店 ť良 Ŗ業時間 4, Ť Ƨ ŷ事 Ůい ƙ期 4, Ãート ȡ紙 Ŏ紙 4, ǔ地のキャロット ɹ児島 Âール 8, ǔ性 ɪ格診断 Ťり方 33, Â Ãィンガー 5 Ǜ次 Ȩ定 25, Ãライヤー ţれた Âピリチュアル 28, R5s Play Ɨ本 17, ś地 Ãイレ Ə気扇 15, Âオン żっ越し Ãガキ 22, Ãカロ ƭいやすい Ľ音 24, Line Id検索 Pc 8, Ãャーリー ɠ Ɂけ方 5, ȭ察官 Őコン Ǧ岡 8, Âェンカ Ãォークダンス ǔ来 8, ȥ部ガス Ɩ金 Âミュレーション 4, " />
Go to Top