- ベストアンサー
ExcelのVBAについての質問
kkkkkmの回答
- kkkkkm
- ベストアンサー率65% (1620/2459)
シート2に何を転記したいのか不明ですが入力時間なら time7.offset(0,4).value=Format(Now,以下略 のところ time7.offset(0,4).value を シート2の適当なセルを指定して Sheets("シート1").Activate Sheets("シート1").Range("A3").Select でシート1A3セルに戻ればいいと思いますが。 コードはわざわざ画像にしなくてそのまま質問などにコピペしたほうが見やすい。
関連する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 番号 分類 図書名 冊数 １ 文庫本 日本の歴史 ３ ２ 週刊誌 新潮 １ ３ 月刊誌 月刊ゴルフ １
- 締切済み
- オフィス系ソフト
補足
「外部入力装置→Excelに入力(シート1)→シート2に表示形式」という順に入力やさらには転記や変数などを用いたいのですが、説明不足でした。 ※サイトのの借り物ですから、あまり載せたくないのですが、以下は画像のシート1のコードです。 Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim time7 As Range For Each time7 In Target If time7.Column = 1 Then time7.Offset(0, 4).Value = Format(Now, "Short Time") & vbCrLf & _ Format(Now, "yyyy/mm/dd hh:nn:ss AM/PM") End If Next time7 Application.EnableEvents = True ' End Sub Private Sub Worksheet_Activate() Application.Goto ActiveSheet.Range("A3"), True Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove Range("H3").Select ActiveCell.FormulaR1C1 = "5" Range("E3").Select Selection.ClearContents Dim str_Left As String 'セルE2に文字列、セルH2に数字を予め入れておくこと。 str_Left = Left(Cells(4, 5), Cells(4, 8)) MsgBox str_Left & vbCrLf & " " & "OKボタンを押してください!" Range("A3").Select End Sub