![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.7ベストアンサー
- 回答日時:
#3です。
補足に気づくのが遅くなり恐縮です。>保存して行きたい
やはりそうでしたか(^^)。以下を試してみてください。
--------------------------------
Private Sub CommandButton1_Click()
Range("A1").Value = Range("A1").Value + 1
Worksheets("sheet2").Cells(Range("A1").Value, 1) = TextBox1.Text '(注)
End Sub
--------------------------------
Private Sub TextBox1_GotFocus()
TextBox1.Text = ""
End Sub
--------------------------------
実行し直す場合はセルのデータを消してください。
Sheet1のセルA1に入力データを表示するのをやめ、これを「現在行のインデクス」にしました。例えば4まで来たところで7に書き換えるなど、実験してみてください。動きを理解いただけると思います。
全てSheet1で済ませるには(注)の行を以下のようにします。このほうが手軽ですが、ご希望はSheet2ですかね。
Cells(Range("A1").Value, 2) = TextBox1.Text
No.6
- 回答日時:
#4さん同様質問の意味が良く飲み込めませんが、同じ解釈を仮定として考えます。
シート1のデータの入ったセルをコピーし、シート2に編集 ~ 形式を選択して貼り付けでリンク貼り付けにします。(リンク貼り付けボタンをクリック。)するとシート1で変更したデータはシート2のそれぞれのセルに反映されますから今度はそれを再度コピーして値として貼り付け、元データは削除します。(削除は任意で)複数のシートを作成する場合はこれでは都合が悪いのでシート2のリンクをはずすためにこのの操作が必要です。)次のシートをつくる場合はこれを3シート目、4シート目と繰り返し保存すれば一つのブックとして保存されます。必要なシート数だけあらかじめリンク貼り付けで作っておいても良いかもしれませんね。No.5
- 回答日時:
#3です。
いただいた補足に従い、マクロの例をお知らせします。■マクロの作成
Sheet1を選択します
コントロールツールボックスでテキストボックスを選択、シート上の任意の位置にTextBox1を追加します
同様にデザインモードを選択、TextBox1をダブルクリックしてVisualBasicエディタ上でTextBox1オブジェクトのGotFocusプロシージャを以下のとおり編集します
Private Sub TextBox1_GotFocus()
Worksheets("sheet2").Range("A1").Value = TextBox1.Text
TextBox1.Text = ""
End Sub
Sheet1を選択します
コントロールツールボックスでコマンドボタンを選択、シート上の任意の位置にCommandButton1を追加します
同様にデザインモードを選択、TextBox1をダブルクリックしてVisualBasicエディタ上でCommandButton1オブジェクトのClickプロシージャを以下のとおり編集します
Private Sub CommandButton1_Click()
Worksheets("sheet2").Range("A1").Value = Range("A1").Value
Range("A1").Value = TextBox1.Text
End Sub
■動作確認
TextBox1に "ABC" と入力します
CommandButton1を押します
Sheet1!A1に "ABC"と入力されます
Sheet2!A1は空白のままです
TextBox1にカーソルを置きます
Sheet2!A1に従前の "ABC" が保存されています
TextBox1に "DEF" と入力します
CommandButton1を押します
Sheet1!A1に "DEF"と入力されます
■補足
「どのようなマクロを作成すればよいか」は以上です。初心者の方のVBAプログラミングに必須の基礎知識をここで「簡単に」ご説明することは不可能です。申し上げました「マクロの作成が可能であれば」の主旨は「マクロの作成に必要な基本的なスキルをお持ちであれば」ということです。興味をお持ちであれば、参考URLのような入門者向けサイトをご参考になさってください。なお、上の例には、申し上げました「不用意なセルの更新を防止する考慮」は含みません。
参考URL:http://www.geocities.jp/ktaji99/excel/VBAlearnin …
この回答への補足
再度教えて下さい、貴殿の言われる通り行いましたら出来たのですが、シート2に於いては、同一セルにデータが貼り付けられてしまいます、A1に入力されたら、次はA2・・・・・Anと言った感じで貼り付けされるにはどうしたら良いでしょうか?大変申し訳ありません。
補足日時:2005/10/08 16:31貴殿の通りやりましたら出来ました、本当に有難う御座いました。この場をお借りして勉強して行きたいと思っています、今後とも宜しくお願い致します、有難う御座いました。
No.4
- 回答日時:
ご質問の意味がいまいちハッキリしませんが、言葉を変えて表現すると、例えば、
シート1のA1に、あるデータ(数字又は文字列)を入力する都度、シート2のA1に、同じデータが自動的に反映されるようにしたい。(以下、同様に、シート1のA2→シート2のA2
のように………。)
このような意味だと仮定してお答えします。
まずシート2のA1セルを選択して
=
を入力し、そのままシート1を開き、セルA1を選択しEnterをクリックします。
するとシート1のA1に入力したデータがシート2のA1に反映されることがお分かりと思います。
続いてシート2のA1を選択して右クリック→そこで「コピー」を左クリックし、CTRLキーを押しながら、同様にデータを反映したい他のセルを順次左クリックで選択し、し終わったところでEnterキーを押します。
これでOKです。
もしご質問の意味が前記と違っていたら補足説明をお願いします。
No.3
- 回答日時:
セルにデータが入力された際、入力前の内容を参照することはできないので、マクロを使わずにこれを行うことはできません。
その仕様の例を挙げれば以下のようになります。シート1にテキストボックスを設け、データが入力されると以下マクロが実行される
シート1!セル1の内容でシート2!セル1を置き換える
テキストボックスに入力された内容でシート1!セル1を置き換える
セルではなくテキストボックスに入力したデータをセルに格納するという仕様でも良く、マクロの作成が可能であれば、試みてください。なお、各セルが不用意に変更されないように配慮する必要があります。
この回答への補足
当方、53歳初心者の為どのようなマクロを作成すれば良いのか再度教えて下さい、宜しくお願いします。難しい事は、解りませんので簡単にお願いします。
補足日時:2005/10/04 05:16No.2
- 回答日時:
CTRLキーを押しながら、シート名の書かれているタブを横にドラッグすると、同じ内容のシートが作られます。
新しくできたシートのタブをクリックして名前をつければ完成です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Excel(エクセル) 単価シートから単価をエクセル関数で自動取得する方法 1 2023/07/02 22:00
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- その他(Microsoft Office) エクセルの数式で教えてください。 2 2023/01/12 13:51
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) EXCEL 関数を教えてください。(A列の同じ値が複数ある場合vlookupで出来ますか) 4 2022/12/07 20:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで別シートの同じ位置...
-
シート全体を他のブックのシー...
-
worksheetクラスのcopyメソッド...
-
ワークシートの行が途中から表...
-
エクセルの下部のシートタブの...
-
エクセルでセルの書式設定がで...
-
▲特定のセルからランダムに抽出...
-
excelで勝手にテキストボックス...
-
Excelで大量の2000個のリストを...
-
エクセルファイルの容量が大き...
-
エクセルで選択した行以外を削...
-
ロックしたセルのコピー&貼り付け
-
EXCEL 同じセルに入力したデー...
-
VBA アクティブでないシートの...
-
Excelシートの保護について教え...
-
EXCELでコピーしたグラフのデー...
-
①シートのセルCに数字が入った...
-
マウスのクリック、指離したの...
-
縦書き文章で『―』表示を『|』...
-
手術 という漢字。この漢字を、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで別シートの同じ位置...
-
エクセルの下部のシートタブの...
-
エクセルでセルの書式設定がで...
-
EXCELでコピーしたグラフのデー...
-
シート全体を他のブックのシー...
-
ワークシートの行が途中から表...
-
ロックしたセルのコピー&貼り付け
-
エクセルで数式は残したまま他...
-
Excelで保護のかかったシートの...
-
Excelで大量の2000個のリストを...
-
excelで勝手にテキストボックス...
-
VBA アクティブでないシートの...
-
行の挿入ができなくなった
-
シート保護したExcelへの画像貼...
-
【エクセル】数式のセル番地を...
-
エクセルで多数のシートをまと...
-
シート保護してても並び替えを...
-
【エクセル】表から条件に合っ...
-
worksheetクラスのcopyメソッド...
-
エクセルで打ち込んだ数字を自...
おすすめ情報