• 締切済み

エクセルVBAにて選択したセルが空白の場合任意のシートに飛ばした

エクセルVBAにて選択したセル(A1とします)が空白の場合任意のシート(Sheet2とします)の任意のセル(B1とします)を選択させる場合どのようにしたらよいでしょうか？

みんなの回答

  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.1

よくわからないのですが、あるシートのセルA1を手動で選択した場合、そこが空白だったら自動的にSheet2のB1にカーソルを飛ばすということでしょうか？ それでしたら、その「あるシート」のシートモジュールに以下をコピペしてみてください。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Value = "" Then With Sheets("Sheet2") .Select .Range("B1").Select End With End If End Sub

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルの空白セルの選択

    こんにちは　いつもお世話になっています。 　エクセルの空白セルの選択について教えてください。 A列、B列にデータがあります。それぞれの列で空白セルがありますが、同じ行で両列ともに空白のセルだけを選択する方法を教えてください。 　単に「ジャンプ」から空白セルを選択すると片方にデータがある行のセルも選択してしまいます。片方にデータのある行は残し、両列ともに空白の行を削除したのです。 　よろしくお願いします。

  • VBA 選択したセルが空白であったらシートを削除

    こんばんは！いつもお世話になっています。 選択したシート1のセル（C9)が空白であったら、選択したシートを削除するマクロ（VBA)を作りましたが、上手く作動しなくて困っています。 どうしたらよいのかよろしくお願い致します。 'シート1のセルC9を選択し、空白か判断する Sub セルの選択() 　　Worksheets("Sheet1").Activate 　　Range("C9").Select 　If Len(Application.Trim(ActiveCell))　= 0 Then 　　MsgBox("空白セル") 　End If End Sub '現在アクティブなシートを削除する Sub DeleteWorksheet() Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End Sub

  • エクセルVBAで関数が入った空白セルの取得

    エクセルVBAで下記のようなセルの参照をしたいのですが、よろしくお願いします。（エクセル２００２です） 　　A　　B　　C　　D　　E　　F １　78　80 セル（A1）（B1）には値も関数も入れられています。 セル（C1）（D1）（E1）には値は入っていませんが、ワークシート関数が組み込まれており空白となっています。（関数の""にて空白） セル（F1）には何も入力されていません。 今回はセル（B1）の80の値を取得できるようにVBAで下記のようにコードを組みました。 Range（"F1").End(elToLeft).Activate そうすると、セル（E1）に関数があるために（？）（E1）がアクティブな状態となります。 関数が入力されていても空白として（B1）をアクティブな状態にするために良い方法はありますでしょうか？ 誠に申し訳ございませんが、よろしくお願いします。

  • Excel 空白セルのコピペについて

    http://imgur.com/5e8TsP1 上記図のように、シート１のB列に各文字を入力しています。 そして、A列にはもしB列に文字が入力されていたらID代わりの数値を表示する、という式を入力してあります。 次に、シート１のA列、B列をコピーして、シート２に数値としてペーストをします。 すると、A列は空白のはずが、xldown操作をすると元のセルで式が入力されていたものまで選んでしまい、真の空白セルとして認識してくれません。 そこで、このような例の場合、どうコピーペースト、または選択をすれば偽物の空白 セルを生み出さないように出来るでしょうか？ 実際に使用するデータは項目名が多く存在し、マクロですべてのセルを選択→新規ブックを作成してそこにペースト、という処理を行っています。 この時に偽物の空白セルが出ると、データベースに読みこむ際に不都合が生じますので、何とか改善を図りたいです。 VBA、関数、Excel上のテクニックのいずれでも構いませんので、どうかご教授下さい。 よろしくお願いいたします。

  • エクセルVBAでセル選択

    エクセル2000でリストを作成し、ＶＢＡで編集しようとしています。 Ａ列に入力されているコードの先頭に「’」をつけて文字列とするための関数をＢ２のセルからＡ列のデータが入力されている最後のセルの隣までコピーしたいと思っています。 Ａ列の最終セルを取得するＶＢＡは分かったのですが、その値をＢ列の選択範囲として使用する方法がわかりません。 エクセルＶＢＡは全くの初心者です。 どなたか教えてください！

  • エクセル　Sheet1 セルで入力したものをSheet2のセルへ

    エクセルのSheet1のセル（例えばB1）に入力した文字を、 Sheet2のセルの任意のセル（例えばA5）に自動で表示させるには どうすればいいのでしょうか？　 Sheet2のA5のセルの中で、=Sheet1!B1　と入れても「0」に なるだけで・・・エクセルの何の機能を使えばいいのか全然分かりません。よろしくお願い致します。

  • シート内の一部のセルを別シートにコピー

    Excelのマクロ(VBA)の記載方法について お分かりになる箇所だけでも結構ですので、 どなたかご教授を願い致します。 シートX 　　A　　　　B　　　C　 1　data1　data2　data3 2　x　　　data7　data8 3　data4　data5　data6 4　data7　data8　data9 シート　Y 　　A　　　B　　　C　　　　D 1　length　３　　(任意)　(任意) 2　xxxx　(任意)　(任意)　(任意) 3　zzz　 (任意)　(任意)　(任意) 4　(空白)(任意)　(任意)　(任意) 上記のような２つのシート(同一Excelファイル内)があって、 シートXの一部のセルを次の条件(１～４)でシートYにコピーしたい場合 １．コピー元の列の数は、シートYの　"length"と書かれたセルの右となりの数字 　　とする(上記では３なので、A,B,C列をコピー対象） ２．コピー元の行の数は、シートXの１～４行目までとするが、 　　シートXのA列のセルが"x"だったら、その行は全てコピーしない。 ３．コピー先(Y)の列は、コピー元(X)の列と一つずれてコピー(BならCに、CならDに) ４．コピー先(Y)の行は、シートYのA列で１行からで始めて空白セルになった行からコピー開始。 (上記では、A列で空白セルのある４行目からコピー) 上記条件で、下記のシートYを作成したいのですが、 この場合どようなマクロ(VBA)で実現できますでしょうか。 コピー結果(シートY) 　A　　　　　B　　　C　　　D 1　length　　３　　(任意)　(任意) 2　xxxx　　(任意)　(任意)　(任意) 3　zzz 　　(任意)　(任意)　(任意) 4　(空白)　data1　data2　data3 5　(任意)　data4　data5　data6 6　(任意)　data7　data8　data9

  • EXCELの条件を選択してジャンプの空白セル

    Office2010のEXCELにて動作確認をしていました。 検索と選択で条件を選択してジャンプから空白セルを選びます。 　 データはB2:G8とB12:G18がそれぞれアクティブセルになっています。 この状態で空白セルを選ぶとA1:G18の空白セルが選択されます。 ここまではいいのですが、移動先がA１ではなくてB1になっています。 アクティブセルの位置を全体的にずらすと移動先がA1になってくれます。 これはどういう理由なのでしょうか。

  • エクセル：シート1のセルＡ１が0でなければ任意のマクロを実行したい

    エクセルマクロ（ＶＢＡ）初心者です。よろしくお願いします。 (1)エクセルのsheet1のセルＡ1の値が”０（ゼロ）”でなければ、そのシート上で任意のマクロを実行し、ゼロであれば実行せずにsheet2へとぶ (2)同じようにsheet2のセルＡ1がゼロでなければ実効し、ゼロでなければsheet３へとぶ・・・の繰り返し（sheet50まであります。） このようなマクロ（標準モジュール）の書き方を教えてください。 よろしくお願いいたします。

  • Excel VBA 空白セル以外のセルを罫線で囲む

    Excel VBA 空白セル以外のセルを罫線で囲む ここの質問箱をよく利用させて頂いている者ですが、また質問させていただきます。 あるシート（例：”Ｓｈｅｅｔ1”）の全セル内のうち、ランダムな文字が全セル内のどこかに記入されています。 また、記入される位置は常に変化します。 つまり、ある時は「Ａ1」に入力されていても、次ははそうでないということです。 この様な場合、文字が入力されているセルのみに罫線を引く処理を行いたいのですが、実現は可能でしょうか？ また、可能であれば、どの様なコードになるのでしょうか。教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する