• ベストアンサー

ＶＢＡで指定したシートの指定したセルに

ＶＢＡで指定したシートの指定したセルに 何かを書き込む場合どうすればいいのでしょうか？ 例 Sheet1に配置されてあるボタンをクリックしたとき Sheet3のC1に"AAA"を書き込みたい。

質問者が選んだベストアンサー

  • ベストアンサー
  • rukuku
  • ベストアンサー率42% (401/933)
回答No.2

こんばんは Sub Sample() Worksheets(3).Range("C1").Value = "AAA" End Sub で出来ます。 起動ボタンは「オートシェイプ」や「フォームのボタン」で「右クリック-マクロの登録」で作ることが出来ます。 ご質問の内容は非常に基礎的です。まずは書籍やウェブサイトなどで基礎をきっちりと学ぶことをお勧めします。

その他の回答 (1)

  • nda23
  • ベストアンサー率54% (777/1415)
回答No.1

Valueプロパティに値を代入します。 ThisWorkbook.Sheet3.Cells(1, 3).Value = "AAA" または ThisWorkbook.Sheet3.Range("C1").Value = "AAA" 尚、Valueはデフォルトプロパティなので、省略できます。 Cells(1, 3) = "AAA"　または Range("C1") = "AAA"

doraemonnari
質問者

お礼

できました。 とても助かりました。 ＶＢ.net、ＶＢ６．０に比べるとＶＢＡの情報は 案外、ネットの情報が少ないですよね。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • セルを指定したVBA

    お願いします。 以前、このカテゴリーの質問で、特定のセルをダブルクリックすると”○”が入力されるコードがあり、重宝させてもらっています。 ただ、シート全体で適用となっているため、どのセルをWクリックしても”○”が入力されます。 特定のセルのみ適応されるような範囲指定のVBAはどのように記述したらいいのでしょうか？ よろしくお願いします。

  • VBA シート１だけを保存する

    VBA シート１だけを保存する こんにちは、ＶＢＡ初めてまもない初心者です よろしくお願いします 動作環境として、OS:XP excel:excel2007 を使用しています VBA で CSV データを取込む際にCSV データのとある項目以降から ２行目にして更にセルを結合しようと思っていたのですが どうやら、ＶＢＡだとワンアクションじゃ出来ないことに気がつきました。 例：　　　　※１行の例です。実際にはこのＣＳＶデータが１０００行近く有ります (CSV data) "AAA","BBB","CCC","DDD","EEE","FFF" 　　　　　　　　↓ （VBAのみではワンアクションでは出来ませんでした） (excel) 　　　　　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　　　　　　　　　　　 １行目　ＡＡＡ　ＢＢＢ　ＣＣＣ　ＤＤＤ ２行目　　　ＥＥＥ　　　　　ＦＦＦ　　　　//ＥＥＥは[2A,2B]のセル、 ＦＦＦは[2C,2D]のセル ですので、やり方を切り替えて １・１度ＣＳＶデータをエクセルシート１に取込む ２・シート２でセルの枠の結合やサイズ等を変更しながら、シート１の内容を参照する (注意：コピーではなく参照です) ３・シート２の部分だけを保存する、もしくはシート１の内容を削除する １－３のような手順で、処理を行う事が出来るのでしょうか？ アドバイス頂けたらと思います。<(_ _)>

  • エクセル　VBA　あるシートで指定したセルを他のシートの下端のセルに自動で貼り付ける

    エクセル2003です。宜しくお願い致します。 シートは「メイン」、「本社」、「地方」というのがあり、「本社」と「地方」は全く同じフォーマットで、「メイン」は本社か地方を分類する欄があります。 元のデータを「メイン」シートに入力後、フォームで作成したボタンをクリックしたら、各行が「本社」、「地方」に自動で振り分けられるようにしたいです。（追加で振り分けた際には、最後の空白行にデータが追加されるようにしていただきたいです。） 各シートは以下のようになっています。 ・「本社」、「地方」シート 　　A 　　　 B 　　C 1通し番号　名前　性別 2 ・「メイン」シート 　　A 　　　 B 　　C 　　D 　 1通し番号　名前　性別　場所 2 ※1行目は項目名です。 　通し番号は、各シートで固定なので、マクロを実行しても変わることはありません。 　振り分けたいデータは、「メイン」シートのB2,C2以降のセルです。 　振り分け先のシートを見分けているのは、D1セルです。 　VBA実行ボタンをクリックしたら、下端のセルに自動でデータが追加されるようにしたいと思っています。（ただし、通し番号は各シート毎の番号が保持されたままです。）つまり、B列、C列の下端に自動で貼り付けられるということです。 マクロ初心者で、ネットをいろいろと調べたのですがどうもうまくいきません。 宜しくご教示いただければ幸いです。

  • EXCELのVBAセル操作について

    こんばんは、エクセルのセルの操作(vba)についてお知恵をお貸しください。 シートＢに配置してあるボタンをクリックすると、シートＡの”A10”に飛ぶVBAを作りました。 ここで、問題になったのがシートＡの５行目に行を挿入した時に シートＢに配置してあるボタンをクリックすると、シートＡの”A10”に飛ぶのですが A10の内容は行を追加した影響でA9の内容が表示されています。 手作業でA10をA11にすればいいのですが、 このシートAには、このようなモジュールがたくさん貼ってありA10より下の全て行を 手作業で修正するのはしんどいので何かいい案はありますでしょうか？ Sub a10モジュール() Sheets("worksheeta").Select Range("A10").Select End Sub

  • VBAでのセル範囲指定について

    お世話になります。 私が分からないのは、ＶＢＡでのセル範囲指定なのですが、 例えば、シートにデータが有、そのデータの１行目は見出しなので ２行目からデータが入っているセルまでの範囲を指定、コピーして 隣のシートに貼付したいのですが、そのデータの入力される範囲が 毎回違います。「CurrentRegion.Select」としてしまうと、１行目 の見出しまでも範囲指定されてしますので、どうやったら良いのか どなたかお教え頂きたく宜しくお願い申し上げます。

  • ＶＢＡについて

    マクロで指定したセルの中央にボタンを配置したいです。 例 セルＣ３にボタンを配置する方法 ActiveSheet.Buttons.Add(Ｘ，Ｘ，Ｘ，Ｘ).Select Ｘの部分をどう書けばよいのでしょうか？

  • excelのシートからVBAを除いて書き出し

    特定のExcelのシート（以後、出力シート）だけを予め指定したファイルへexcel形式で書き出したいです。 そのとき、出力シートにはボタンやボタンに関連付けされたVBAプログラムがあるのですが、それらのボタンやシートに関連付けされたVBAは書き出さずに、純粋に各セルに記載されている内容と罫線情報だけを書き出したいです。 出力シートにはVBAを残したくないのが理由ですが、上記のような書き出しをするにはどのようにすればよいのでしょうか。

  • エクセルVBAでDateを指定したセルに書き込み

    VBA　指定されたセルに入力された番号を参照して別シートのそのセル番号に今日の日付を入れる書き方をどなたか教えてください

  • VBA　シートの削除について

    VBAのコードの書き方について質問があります。 コマンドボタンをクリックした時、シート１～シート４を削除をしたいのですが、 シート１～シート４が存在するかはその時の状況で異なります。 シート１が存在し、シート２～４が存在しないのであればシート１だけ削除する場合もあれば シート１～シート４がすべて無い場合もあります。 いずれのケースにしてもボタンクリック後は”シートを削除しました”のメッセージを 表示させたいのですが、どうコードを書けばよいでしょうか？ VBA初心者なのでコードを教えていただけると助かります。 よろしくお願いします！

  • エクセルVBAで、選択セルを常にC行にする。

    エクセルVBAで、選択セルを常にC行にする。 例：ボタンをクリックすれば、選択しているセルがN25ならC25になり、N7ならC7にしたいのです。 選択セル範囲がB2：N12ならば、一番上を有効として、C２のみを選択範囲としてほしいのです。 VBAで記述するならどのようになるか。ご教示ください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する