- ベストアンサー
ExcelのVBAについての質問
HohoPapaの回答
- HohoPapa
- ベストアンサー率65% (454/691)
横から失礼します。 次のような動作になることを期待していますでしょうか？ 01)操作者がSheet1を選択されたらVBAがSheet1の"A3"を選択する。 02)操作者が外部入力装置を操作すると Sheet1の"A3"に読み取ったデータ(※１）が埋まる。 03)埋まったら、そのイベントを使いVBAが次の処理を行う 04)Sheet2の3行目に行挿入する。 05)※１の値と実行日時を文字結合する。（※２） 06)Sheet2の"A3"に※２を埋める 07)Sheet1の"A3"を選択 08)Sheet1の"A3"を空欄にする。 以下、02)の操作を待つ つまり、 外部入力装置で得たデータを加工し 次々とSheet2に追記していく動作です。 （行の下方向に追記するのではなく、 3行目に順次挿入する追記です） そうであれば、次のようなコードとなります。 Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim GetData As String If Target = Me.Range("A3") Then GetData = Target.Text With Sheets("Sheet2") .Rows(3).Insert _ Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Range("A3").Value = GetData & vbCrLf & _ Format(Now, "yyyy/mm/dd hh:nn:ss AM/PM") End With End If Me.Range("A3").Select Application.EnableEvents = False Me.Range("A3") = "" Application.EnableEvents = True End Sub Private Sub Worksheet_Activate() Me.Range("A3").Select End Sub
関連するQ&A
- ExcelのVBAについて。
ExcelのVBAについて。 普通は数値を表形式にまとめて図表化しますが、図表化した値から数値の表形式に直せないでしょうか？ 例えば、図表化する時に入力項目をファイルに落とすとかして、のちに再集計するなど。あくまでExcelで完結したやり方としてです。よろしくお願いします！ 質問としては、転記の基本などもご指導頂ければ有り難いです。入力、転記については、先に表形式にすべきと酷評もあるかと思いますが、よろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- エクセルvba初心者です・・・
エクセルvba初心者です・・・ シート１にあるひとつのセルをコマンドボタンを押した時にそのセル内の文字列をシート２にかいていくようなプログラムをつくりたいです。 例えば シート１のセルに文字入力→”田中”→登録ボタンおす→シート２のセルA１にはいる シート１のセルに文字入力→”竹山”→登録ボタンおす→シート２のセルA２にはいる ・ ・ ・ というようになるコードわかる方いたら教えてください。おねがいします。
- ベストアンサー
- その他（プログラミング・開発）
- エクセルＶＢＡ（マクロ）の書き方で・・・
ＶＢＡ初心者です。よろしくお願いします。 エクセルマクロで、次のような関数を入力して、 =IF(月!$D4=稼動シート!$B$2,月!B4,"◆") 自動記録をさせると コードは、次のような「絶対参照セル」（←表現あっていますか？）の表示になります。 『Range("C4").Select ActiveCell.FormulaR1C1 = "=IF(月!RC4=稼動シート!R2C2,月!RC[-1],""◆"")"』 わたしのスキルでは、この記述コードを参考に別のコードを書こうにも理解と応用が効きません。 そこで、ＶＢＡコードにも 『Range("C4").Select =IF(月!$D4=稼動シート!$B$2,月!B4,"◆")』 と単純に書いてはいけないのでしょうか？また、どうすれば実際のシートで入力した関数と同じような表現でＶＢＡにもかけるのでしょうか？ ご指導お願いいたします。
- ベストアンサー
- オフィス系ソフト
- 急!!Excel VBA 転記マクロを教えて下さい
Excel VBA超初心者です、 急ぎ作らなければならない資料があり、ご助力願います。 次の様な転記するアクションをコマンドボタンに設定したいです。 Sheet1の列A（先頭セルA2）に入力したデータを、 追加した（入力間違い等を除き、保存した）データ分だけ Sheet2の列B（先頭セルB3)の最終行から転記させていく。 列Ａに入力したデータは、並び替えをするので （この分は、今回のVBAに含みません。入力・転記後、Sheet１で普通に並び替えをします。） 列Ａと列Ｂのデータの順番が異なる。 以上です。 どうぞ宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA及び関数
初心者です。お教えお願いします エクセル2003です 空白行及び0をなくしたいのですが（C列を入力された時点で自動でE列のようにしたい） 関数の場合及びVBAのシートコードを両方教えていただけないでしょうか VBAのコードは勉強の為です Sheet1 A B C D E F 16 文字A 文字A 17 文字B 文字B 18 0 文字C 19 文字C 文字D 20 0 文字E 21 文字D 文字F 22 23 文字E 24 25 文字F 文字はC16～C80まで入っております B16～E80までのセルのみで行いたいのですが 他の場所は関数やグラフ等がすでに入ってますのでいじりたくありません E16～をフォームのコンボボックスのリストにしようと思ってます よろしくお願いましす
- ベストアンサー
- オフィス系ソフト
- VBA教えてください
VBA初心者です A1～A5までのセルは色は白色のセル A6.A7セルの色は赤色の背景のセルです A1～A5までのセルは Ｂ～Dのセルに数値を入力するが A6.A7のセルのＢ～Dまでのセルは 結合してさらに結合したセルに「停止」 の文字を入力します。 私がVBAでやりたいのは 赤い背景のセルだけに反応して 自動でＢ～Dのセルを結合し 停止の文字を自動入力できるようにしたいです コードを書いてくれると めちゃくちゃ助かります 回答お願いします。
- ベストアンサー
- Visual Basic
- Excel VBA データの転記
Excel2003を使用しています。 Sheet1のB1セルとSheet2のB1セルのデータが一致したら、Sheet2のB1セル～E1セルのデータをSheet1のF1セル～Iセルに転記するというコードを書いています。 Sheet1のデータ最終行を取得して、上記の条件を満たさなかったSheet2のB1セル～E1セルのデータをSheet1のデータ最終行の1行下から順に転記するという内容を追加したいのですが、転記先の指定の仕方が悪いのか、希望通りになりません。 どなたか一例を示していただけないでしょうか？ スマホからの投稿で、実際に書いているコードを記載できず、分かりづらくて申し訳ないのですが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルシートの塗りつぶしをVBAでやるには？
エクセルのセル塗りつぶしについて（VBA） いつもお世話になっています。 エクセルシートで、任意のセルに数値を入力したとき、入力したセルから右側に向けて、その数値分、自動で塗りつぶすようにしたいのですが、どのようにすれば良いのでしょうか？ 色は何でも構いません。 画像添付します。
- 締切済み
- Visual Basic
- Excel VBAについての質問です
シート１のセルA1で文字が入力されたら３つ下へ（A4へ）、A4で文字が入力されたら３つ下（A7へ）…としたいのですが、どうすれば良いのですか？ VBAを使う方法と使わない方法をそれぞれ、もしくは一方を教えて頂きたいのですが、よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセルでデータを蓄積するVBA
蔵書管理用の一覧表です。 エクセルでデータ入力用のフォームは作ることができたのですがシートに転記するVBAをどのように書けばよいのか分かりません。 データは次々に増えていきます。 A列には番号を入力せずに自動的に番号が増えていくようにしたい。 ３番まで入力済みのあとは、自動で「４」と番号が付与されて、下の行に転記されるようにしたい。 VBA初心者です。よろしくお願いします。 A B C D 番号 分類 図書名 冊数 １ 文庫本 日本の歴史 ３ ２ 週刊誌 新潮 １ ３ 月刊誌 月刊ゴルフ １
- 締切済み
- オフィス系ソフト
お礼
回答ありがとうございます。型としてはかなり近いのですが、、やはりモヤモヤした質問、完成形としてそれが逸れた原因か、、。もう少し勉強してみて、ああだこうだしてみてみます。ありがとうございます^^