入力中の回答があります。ページを離れますか?※ページを離れると、回答が消えてしまいますページを離れるA回答を続ける入力中のお礼があります。10:40回答数:3件ロックがかかっているセルとかかっていないセルが混在しているシートが複数あります。ロックをかけたくないセルが少数派なら、まず全部のセルにロックをかけ、次にかけたくないセルのみロックをはずせばいいのですが、かけたくないセルの数がそれなりに多いので、困っています。1つのファイルでずっと作業をしているので、記憶にない所でロックの有無の取りこぼしをしていないかが心配です。何か、効率的に判断ができるようないい方法はないでしょうか。バージョンは2003です。通報するこの質問への回答は締め切られました。11:14シート保護はとりあえず解除しておきます。Ctrl+Fで検索のダイアログを出しダイアログのオプション>>を開いてから現れた書式▼ボタンの書式でセルの保護のロックがグリーン(またはグレイ)になってるので数回チェックして「白く外れている」状態にしてOKし検索する文字列には何も入れないで「全て検索」します。検索ダイアログに該当セル(保護されていない)が羅列されるので,ダイアログの中で1個選んでからCtrl+Aで全部選びます。シート上で該当セルが全て選択されるので,目視でチェックするなり例えばセルに色を塗って識別します。ロックの「チェックが入っている」セルを同様に全て検索,全部選択することも出来ます。通報するこの回答へのお礼ありがとうございます。こちらの方法で、うまく確認できました。11:38条件付き書式が別に設定されている場合には先の提案では困りますね。その場合には次のようにするのも一つの方法でしょう。データがG列まで使用されているとしたらH1セルに=IF(CELL("protect",A1)=0,A1,"")として右横方向にオートフィルドラッグしたのちに下方向にもオートフィルドラッグします。これでロックのされていないセル番号が表示されますね。通報するこの回答へのお礼たびたびありがとうございます。今回は条件付書式を使っていなかったので、大丈夫でした。11:17シート全体を選択してから「書式」から「条件付き書式」で「数式が」にし、式には=CELL("protect",A1)=0と入力して書式のパターンタブでは黄色など淡い色をしてOKします。保護のロックがされていないセルに色が付きます。通報するこの回答へのお礼ありがとうございます。目から鱗の方法を色々と教えて頂きまして、勉強になっています。Office)18複数シートの保護・解除Excel(エクセル)19VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。Office)18複数シートの保護・解除Excel(エクセル)19VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。EXCELでセル参照の際に、参照元セルの色を参照先セルの色を反映させたい。回答数ランキングです。VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。常にファイル名を取得出来るVBAをどなたか、教えて下さい。操作対象になっているブックの名前はActiveWorkbook.Nameですね。>VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになりというような文脈からすると、ThisWorkbook.Nameの方ですかね。他の回答も見るQ別のシートから値を取得するときWorksheets("シート名").Activate上記のを行ってから別シートの値を取得するのですが、この処理を行うと指定したシートへ強制的にとんでしまいます。~Worksheets("シートA").ActivateシートAの値取得:Worksheets("シートB").ActivateシートBの値取得Nextこのイメージ処理を行うとものすごい勢いで画面がチカチカします。シートを変えずに他のシートから値を取得する方法はないのでしょうか。教えてください!AベストアンサーWorksheets("シートA").Range("A1")みたいな感じでできませんか?他の回答も見るQエクセルのIF関数で、文字が入力されていたならば~エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。=IF(A1="『どんな文字でも』","",+B1-C1)A1セルに『どんな文字でも』入っていたならば、空白に。文字が入っていなければB1セルからC1セルを引く、という状態です。この『どんな文字でも』の部分に何を入れればいいのか教えてください。IF関数以外でも同様のことができれば構いません。Thenではだめでした。シート保護の判定方法も教えてください。Aベストアンサーこんにちは。SubここでDMNの値を四捨五入したいです。これとは別に切上げ、切捨ても教えていただけるとありがたいです。引数で、対象桁を変更できます。[ツール]→[保護]→[シート保護の解除]を選ぶと、パスワードを聞かれます。前任の方がパスワードを残さないままやめられたようで、データを編集できず困っています。パスワードを調べる方法、もしくは、パスワードを使わずに保護を解除する方法はないものでしょうか。どなたかご存知の方、宜しくお願いします。参考までにOSは、WindowsXPエクセルは、2000を使用しています。rangeメソッドは失敗しました。始めまして、VBA初心者のものです。ただいまエクセルでグラフを作成しています。作業自体は単純作業の繰り返しなのでVBAを用いてやりたいのですが、マクロを実行したときに実行時エラー’1004’rangeメソッドは失敗しました。’_global’オブジェクトとメッセージが出て、実行できません。デバックをすると以下の5行目で黄色のバーが出ていました。自分なりに原因を考えたのですがrangeの関係するところに、Range("A8:A1587,e8:e1587")というような変数を用いないやり方でやると上手くいくので、変数に関する定義がまずいと思うのですが、それ以上の事は分かりません。どなたか、分かる方がおりましたら、よろしくお願いします。プログラムは以下のようになります。Sub始めまして、VBA初心者のものです。ただいまエクセルでグラフを作成しています。作業自体は単純作業の繰り返しなのでVBAを用いてやりたいのですが、マクロを実行したときに実行時エラー’1004’rangeメソッドは失敗しました。’_global’オブジェクトとメッセージが出て、実行できません。デバックをすると以下の5行目で黄色のバーが出ていました。自分なりに原因を考えたのですがrangeの関係するところに、Range("A8:A1587,e8:e1587")というような変数を用いないやり方でやると上手くいくので、変数に関する定義...続きを読むAベストアンサー>ご指摘を受けたところを書き換えて回してみた結果、書き換えた箇所>でエラーがでます。(実行時エラー’1004’’cells’メソッドは失敗>しました。’global’オブジェクト)>しかし、何が原因でエラーになるか自分では分かりません。2)).Select上記の例では、RangeとかCellsの上位オブジェクトであるシート名が省略されています。2)).Selectというわけです。マクロ実行時に、Activeな(Excelで表示されている)シートが上位オブジェクトとして、自動的に認識されます。2)).Select上記の例では、Rangeのみシート名が記述されています。2)).Selectというわけです。Activeなシートが、Sheet2の場合はエラーになりません。ActiveなシートがSheet2以外の場合、エラーが発生します。直前に、Sheets("Sheet1").Selectなどとしていれば、ActiveシートがSheet1になっていますから、エラーになります。2)).Selectと書いておけば安心です。Withステートメントを使えばスッキリ纏めることができます。Sheets("Sheet2")の上位オブジェクトが省略されていることにも気がついてください。>そこで自分で基礎を勉強したいのですが推薦できる参考書などがござ>いましたら、教えていただけませんか?私自身は、入門書程度の雑誌を1冊買っただけです。どれが良いとかはよく分かりません。「マクロの記録」を活用して、参考コードを取得し、汎用性のあるコードに編集しています。新しい単語があれば、文字カーソルを単語の上に置き、F1キーを押してVBAのヘルプを必ず見るようにしています。躓いた時は、Web検索して欲しい情報を得たり、あるいは、こうした掲示板で先輩方のお力をお借りしています。Excel(エクセル)VBA入門:目次http://oshiete1.goo.ne.jp/kotaeru_reply.php3?q=4651404エクセル入門・初級編http://www.kenzo30.com/excel_kiso.htm>ご指摘を受けたところを書き換えて回してみた結果、書き換えた箇所>でエラーがでます。(実行時エラー’1004’’cells’メソッドは失敗>しました。’global’オブジェクト)>しかし、何が原因でエラーになるか自分では分かりません。2)).Select上記の例では、RangeとかCellsの上位オブジェクトであるシート名が省略されています。2)).Selectというわけです。マクロ実行時に、Activeな...続きを読む他の回答も見るQエクセルで、条件に一致した行を別のセルに抜き出す方法エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。別のセル(同じシート内)に抜き出したいのですが。抽出結果を自動的に、別の場所に、常に表示させておきたいのです。初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。同じ質問が結構よく出てますが、そんなに初歩的でもありません別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。日付のセル書式は「日付」形式に再設定してください=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")データ範囲は500行までとしていますが、必要に応じて変更して下さい他の回答も見るQEXCELファイルのカレントフォルダを取得するには?EXCELファイルのカレントフォルダを取得するには?C:\経理\予算.xlsD:\2005年度\予算.xlsEXCEL97ファイルがあります。VBAでカレントフォルダ名(C:\経理\,D:\2005年度\)を取得する事は可能でしょうか?CURDIRでは上手い方法が見つかりませんでした。Aベストアンサーこんばんは。以下で試してみてください。Sub他の回答も見るQエクセルで条件に一致したセルの隣のセルを取得したい下のような「得点」という名前のシートがあります。(「田中」のセルがA1です。]のように表示させたいのですが、B1、C1にはどのような式を書けば良いのでしょうか。「得点」シートでは氏名が重複する事はありません。IF文を使うと思うのですが、いまいち良く分かりませんでした。Aベストアンサーこんにちは!VLOOKUP関数で対応できます。IF関数と併用すればエラー処理が可能です。Excel2007以降のバージョンであればB1セルに=IFERROR(VLOOKUP($A1,得点!$A:$C,COLUMN(B1),0),"")としてC1セルまでオートフィルでコピー!そのまま下へコピーすると行が2行目以降でも対応できます。Inc.Q質問する(無料)Q&A検索goo検索gooIDで新規登録・ログイン新規登録する(無料)会員の方はこちら外部サービスのアカウントで新規登録・ログインYahoo!で新規登録・ログインGoogleで新規登録・ログインTwitterで新規登録・ログインFacebookで新規登録・ログインdアカウントで新規登録・ログイン※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。会員でない方、会員になるとあなたも質問や回答ができるようになります!!親切・丁寧な回答が集まる場30分以内に回答がもらえ回答数は平均3件!匿名(ニックネーム)での投稿なので。