マクロで可視セルのみの削除
- マクロを使用して非表示のセルを除いて可視セルのみを削除することは可能ですか？
- シートを保護している状態で、マクロを使用して可視セルのみを削除する方法を教えてください。
- 保護されたシートでマクロを作動させて可視セルのみを削除する方法を教えてください。
- ベストアンサー
マクロで可視セルのみの削除
Ａ行に数字を入れ、Ｂ行にＡ行同列セルの数字に対して 数値を返す数式を入れています。 Ｂ行は非表示にしています。 （Ｃ・Ｄ行、Ｅ・Ｆ行・・・とも同じ処理） 数字を入力する範囲（Ａ、Ｃ、Ｅ・・・）を選択し、 入力されている数字を消去するようマクロを組みました。 （範囲選択→ツールの編集→ジャンプ→可視セルを選択後、Delete） これはうまく作動します。 が、数式が壊れるのを防ぐ為、念には念を・・・と、 入力範囲部分はセルの書式設定で保護ロックを外し、 シートを保護しました。 そうすると、保護されているからだめ！と エラーが出て、マクロが作動しません。 （可視セル選択部分にデバッグがでます。） ・非表示のセルがある ・一部を除きシートを保護している 状態で、マクロで可視セルのみ削除することは不可能なんでしょうか？ 宜しくお願いします。
- korin121
- お礼率66% (62/93)
- Windows NT・2000
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
＞そうすると、保護されているからだめ！とエラーが出て、マクロが作動しません。 保護シートへのアクセスを可能にするには、ブックを開いた時に実行されるマクロでプロテクトを行って、 ActiveSheet.Protect UserInterfaceOnly:=True と記入してマクロでのアクセスを許可する設定をする事ができます。 別の方法として、 マクロの文中で ActiveSheet.UnProtect '処理 ActiveSheet.Protect と、行う方法があります。
関連するQ&A
- 値が奇数の時、任意のセル範囲の行の色付けマクロを
条件つき書式のマクロを教えてください。 任意の選択したセルの右端列に数字を入力しています。 その数字が奇数だったら、数字の入力してある任意の列は除いて、行の色付けをしたいのです。 選択するセル範囲と数字の入っているセルの列はシート毎、ブック毎に、変わりますので、マクロで設定をしたいと思っています。エクセル2010を使っています。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 可視セルから可視セルへのコピー
エクセルのデータ集計で集計された数字（可視セル）を他のファイルの表にコピーしたいのです。 通常、編集→ジャンプから可視セルを選びコピー→形式を選択して貼り付けから値を選び 貼り付けているのですが、今回は表の方にも非表示にしている行があるのです。 なので通常の方法でやると表の方の非表示セルに値が貼りついてしまい困ってます。 可視セルの値を表の可視セルへコピーする方法はないのでしょうか？
- ベストアンサー
- オフィス系ソフト
- 可視セルへのコピー マクロ
次のように、可視セルから可視セルへコピーしたいです。 （元の状態） A B C D E F 名前 支払 金額 名前 支払 金額 aさん 済 150 bさん 済 200 cさん 未 150 dさん 済 100 eさん 未 120 fさん 済 250 gさん 未 300 hさん 未 210 この状態をB列で支払が済んでるかどうかでフィルターをかけて ABC列をコピーし、DEF列に可視セルのみコピーして A B C D E F 名前 支払 金額 名前 支払 金額 cさん 未 150 cさん 未 150 eさん 未 120 eさん 未 120 gさん 未 300 gさん 未 300 hさん 未 210 hさん 未 210 フィルターをはずすと A B C D E F 名前 支払 金額 名前 支払 金額 aさん 済 150 bさん 済 200 cさん 未 150 cさん 未 150 dさん 済 100 eさん 未 120 eさん 未 120 fさん 済 250 gさん 未 300 gさん 未 300 hさん 未 210 hさん 未 210 と、未払いの人だけ、D列以降にもコピーされてる状態にしたいのです。 可視セルへのコピーはマクロを組む必要があると聞いて見てるのですが、 私が実現させたい可視セルへのコピーとまた違うプログラムでした。 どなたかよろしくお願いします。
- 締切済み
- オフィス系ソフト
- Excelマクロで質問です。
Excelマクロで質問です。 Sheet1にデータが入力されていて（ここでは100行入力されているとします）、 Sheet2のA2からE2に数式が入力されています。 ↓ この数式をSheet1のA列に入力されているデータ行数分プラス１（ここでは100+1) Sheet2のA3以降（A3からA103）にコピペするマクロを教えていただけないでしょうか。 100は、毎回変化します。
- ベストアンサー
- その他MS Office製品
- G→可視セル→コピー貼り付けがうまくいかない
お世話になります。 エクセル２００７でよく使う「可視セルのみコピーし貼り付け」がうまくいきません。 既存ブックの印刷したい行以外は非表示にし、 印刷したい範囲を選択してから 「ジャンプ→可視セル選択→コピー」し、 別のブックを開きひとつだけセルを選択し「貼り付け」すると、 非表示行まですっかり貼り付いてしまいます。 「形式を選択して貼り付け」にすると、 「ワークシートオブジェクト」とか「図」とか 「ビットマップ」とか書いてある見覚えのないウィンドウが開きます。わからないまま「ワークシートオブジェクト」でOKすると 「貼り付けられませんでした」と言われます。 目的は、不要なところを除き必要なところだけ 紙をケチって詰め詰めで印刷したい、ということです。 どなたかご指導お願いします。
- ベストアンサー
- オフィス系ソフト
- セルの数字を範囲で選択して計算させたいです。
エクセル2000を使用しています。 CSVファイルを読み込んで、シートに，区切りで開きました。 特定の列の数字を範囲で選択して（複数行）、範囲で選択したセルの数字を1/1000したいです。 特定のセルを範囲で指定するのは、毎回セルの開始行とセルの終了行が変わるためです。また 選択行の上下セルにも文字が入ってきます。 別シートに数式をいれないで、同じセルに計算結果を出すことは可能でしょうか？
- ベストアンサー
- オフィス系ソフト
- マクロのセルの範囲指定
お世話になります。マクロ初心者です。エクセルの業務でマクロを作成しようとしているのですが、マクロ実行で、セルの範囲が指定される方法はありますか？例えば シート名 開始 終了 Sheet1 Ａ１ Ｄ１０ を入力して、ボタンを押したらＡ１からＤ10までのセルが選択されることです。説明不足ですみません。宜しくお願いします。
- 締切済み
- Visual Basic
- 可視セルのみのコピー
あるエクセルシートのデータで、非表示の行または列があって、それを別のシートにコピーするとき、データは可視セルのみをコピーしつつも（非表示の行・列を自動削除）、書式・列幅だけは元データを生かし貼り付けということを簡単に行う方法はあるでしょうか。「編集ージャンプ」で可視セルのみ選択しコピーまではうまくいったのですが、貼り付けのとき、値貼り付けまたは行・列どちらかの貼り付けしかできず、書式・列幅は再度貼り付けるという２度手間になってしまいます。一度にできるよい方法があったら教えて下さい。
- 締切済み
- オフィス系ソフト
- エクセルのマクロでセル選択するには
初心者です！ エクセルのＳｈｅｅｔ１に30箇所のセルをマクロで選択したいのですが、 たまに選択するセルが変わります。 そこで、Ｓｈｅｅｔ2のＡ１から下へＳｈｅｅｔ１の選択する位置を「Ｂ２」「Ｃ５」「Ｄ１０」・・・としてマクロで一発で30箇所のセルを選択する方法を教えてください Ｓｈｅｅｔ2のＡ１から下へ入力するセル位置はその都度変化します。 変化したときにそのマクロを実行すると選択できるといいのですが！！ よろしくお願いします。
- ベストアンサー
- Windows NT・2000
- 【Excel VBA】ThisWorkbook モジュールのマクロ
Excel2003を使用しています。 39枚のシートから成るBook1のThisWorkbook モジュールに、C列に“○月計”と入力されたら、その行のE列、F列、G列へ数式を入力するコードを書いています。 現在は、それぞれのシート(39枚のシートのうち3枚を除く36枚)のC列最終行から2行下のセルへ“○月計”と手入力していますが、マクロで“○月計”と入力されるようにすれば、ThisWorkbook モジュールに書いているコードも実行されて、数式の入力までマクロで処理できるのかな？と思い、試しに、36枚それぞれシートのC列最終行から2行下のセルへ“○月計”と入力されるようコードを書いてみました。 …が、そうではないのか、それぞれのシートのC列最終行から2行下のセルへ“○月計”と入力されるものの、E列、F列、G列へ数式は入力されません。 せっかくなので、できることなら数式の入力までマクロで処理したいのですが、どのようにしたらThisWorkbook モジュールに書いているコードまで実行されるのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
すごい！！ 理想のファイルができました！！ ありがとうございます☆