- ベストアンサー
セルの日付を変更したい
アクティブシートに平成21年3月31日と表示されています。 そして次のマクロを実行すると Sub Macro1() Range("P3").Select ActiveCell.FormulaR1C1 = p3 + 20 Range("P3").Select End Sub セルＰ3には、明治33年1月20日と表示されます。 これを平成21年4月20日と表示させるにはどうしたらよろしいでしょうか。
- aitaine
- お礼率43% (170/393)
- Visual Basic
- 回答数3
- ありがとう数1
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
VBではなく、VBAの質問という認識でよろしいですか？ エクセルのVBAのことだとして回答します。違ったらスルーしてください。 まず問題点を挙げておきます。 ActiveCell.FormulaR1C1 = p3 + 20 おそらく セルP3の値 +20 としたいのでしょうが違います。 FormulaR1C1 と R1C1形式を指定しているのに、p3 というA1形式の指定になっています。またこれでは循環参照になってしまいます。 素直に適当な変数を用意して、 tmp = Range("P3").Value Range("P3").Value = tmp + 20 のようなコードにするべきでしょう。
その他の回答 (2)
- hige_082
- ベストアンサー率50% (379/747)
Sub Macro1() [p3]= [p3 + 20] End Sub 参考まで
- hana-hana3
- ベストアンサー率31% (4940/15541)
Range("P3").value = Range("P3").value + 20
関連するQ&A
- Excelでマクロを使いセルの内容をコピー貼り付け
A1セルに111と入力してあるとします。 この時B1にaaa111aaaと入力するマクロを作りたいです。 A1に222があるとB1はaaa222aaaと入力したいです。 これをマクロで作ったのですが、次のようになり、A1の内容にかかわらず常にaaa111aaaとなってしまいます。 Sub Macro1() Range("A1").Select ActiveCell.FormulaR1C1 = "111" Range("B1").Select ActiveCell.FormulaR1C1 = "aaa111aaa" Range("B2").Select Application.Goto Reference:="Macro2" End Sub これのいらない行を削除し、コピーはA1の内容となるように修正して次のようにしました。 Sub Macro1() ActiveCell.FormulaR1C1 = Range("A1") Range("B1").Select ActiveCell.FormulaR1C1 = "aaa111aaa" Application.Goto Reference:="Macro2" End Sub まだペーストするときにA1の内容とならず直接入力となっています。 これをどう変更すればいいでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセル2007 マクロの勉強
マクロを勉強しようとしています。 開いたシートで決まったところに本日日付（平成２４年３月１１日）と曜日を入れたいと思いマクロの記録でやってみましたがこれだといつも３月１１日と入るのではないでしょうか？ Sub Macro4() '本日日付と曜日を入れたい Range("A7:D7").Select ActiveCell.FormulaR1C1 = "3/11/2012" Range("E7").Select 'ここで曜日を入れたい End Sub よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- PCのマクロについて
Sub Macro1() ' ' Macro1 Macro ' ' ActiveCell.FormulaR1C1 = "○" Range("F5").Select End Sub Sub Macro2() ' ' Macro2 Macro ' ' ActiveCell.FormulaR1C1 = "●" Range("F5").Select End Sub こんな感じでマクロ入れたんですが図でわかると思うのですが4段目で確認未のボタンを押すと1段目のセルに選択が移動してしまいます。ボタンを押した際に最初に選択したセルから移動しないようにするにはどうすればよいですか？
- 締切済み
- オフィス系ソフト
- 指定したセルに番号をつけていくマクロ
現在、画像をたくさん貼り付け、カタログを作っていて、番号を入れたらマクロで画像が配置されるというところまでできました。今度は、その、番号を指定したセルに書き込む作業をマクロでできないかと考えています。現在の私が作成したマクロが↓です。 Sub 画像1から60() Range("A4").Select ActiveCell.FormulaR1C1 = "1" Range("C4").Select ActiveCell.FormulaR1C1 = "2" Range("E4").Select ・・・ ActiveCell.FormulaR1C1 = "58" Range("q29").Select ActiveCell.FormulaR1C1 = "59" Range("s29").Select ActiveCell.FormulaR1C1 = "60" End Sub というふうにかなり長く、また、この番号が3000番くらいまであり、簡単にできないものかと試行錯誤しています。 初心者なりに、工夫したのは"600"と表記するのを"=60*10"とし、あとで*10を置換しています。それでも3000番はほど遠く何か方法がありましたら教えてください。
- ベストアンサー
- オフィス系ソフト
- ■ エクセルマクロについてです。初級？
エクセルのマクロでデスクトップにあるエクセルファイルを開くにはどうしたらいいのでしょうか？ 現在は、エクセルファイルＡ.xls Ｂ.xlsという２つを開いていて、マクロを実行することができるのですが、これをＡ.xlsだけ開いている上体で、実行したいのです。 なので、デスクトップに置いてあるＢ．xlsファイルを開くコマンド？というか、関数が知りたいのですが、どうしたらいいのでしょうか？ 現在はこのような感じになっております。 Sub Macro2() ' ' Macro2 Macro ' マクロ記録日 : 2008/9/10 ユーザー名 : ' ' ActiveCell.FormulaR1C1 = "12345" Range("G17").Select ActiveCell.FormulaR1C1 = "129876" Range("G18").Select Windows("Ｂ.xls").Activate Range("N16").Select ActiveCell.FormulaR1C1 = "8/4/2008" Range("N17").Select ActiveWorkbook.Save Range("O16").Select ActiveWorkbook.Save ActiveWindow.Close End Sub
- ベストアンサー
- オフィス系ソフト
- ユーザーフォームのコンボボックスの使い方
Sub Macro1() Range("A1").Select ActiveCell.FormulaR1C1 = "あ" End Sub と言うマクロがあり、 UserForm1にComboBox1を作りました。 このComboBox1の右矢印をクリックしMacro1を呼び出し選んで実行させたいです。 どうすればいいのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCELのマクロについて
お世話になっております。 以下のマクロを1万行分繰り返したいのですが、回数を1万回と指定する構文を 教えてください。よろしくお願いします。 Sub Macro16() ' ' Macro16 Macro ' ' Keyboard Shortcut: Ctrl+Shift+Z ' ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ActiveCell.Offset(-1, 0).Range("A1:M1").Select Selection.Copy ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste ActiveCell.Offset(-1, 2).Range("A1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "7/5/1905" ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.FormulaR1C1 = "7/6/1905" ActiveCell.Offset(1, -2).Range("A1").Select End Sub
- ベストアンサー
- Excel（エクセル）
- Excel 2007 マクロ 表の集計
Excel 2007 マクロ 表の集計 「Sheet１」に2つの表があります。 <元データ>の項目ごとに<集計結果>の 計の列に数字が反映されるようにしたいと考えています。 表の画像を添付します。 <元データ>の項目のアルファベットごとに<集計結果>の 項目に分かれます。 マクロの記録では下記にようになりました。 Sub Macro1() ' ' Macro1 Macro ' ' Range("B15").Select ActiveCell.FormulaR1C1 = "=R[-12]C+R[-11]C+R[-10]C" Range("B16").Select ActiveCell.FormulaR1C1 = "=R[-10]C+R[-9]C" Range("B17").Select ActiveCell.FormulaR1C1 = "=R[-9]C+R[-8]C+R[-7]C" Range("B18").Select End Sub どのようにすれば、マクロでアルファベットごとに集計できるのでしょうか。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- エクセル マクロについて
Book1で入力データ作成し、保存次第、添付画像の黄色部分に、自動転記する様マクロを組みたいと考えています。 現在、勉強中で、簡単な下記の様なマクロはできました。 これを応用して実践してみたいのですが、何を加えればよいのか、アドバイス頂けたら幸いです。 --------- Sub Macro1() ' ' Macro1 Macro ' ' a = ActiveCell.Value Range("A2").Select ChDir "C:\Users\takana\Desktop" Workbooks.Open Filename:="C:\Users\takana\Desktop\転記.xlsx" Sheets("Sheet2").Select ActiveCell.FormulaR1C1 = "" Range("B2").Select ActiveCell.FormulaR1C1 = a Range("B3").Select End Sub -----------
- ベストアンサー
- Excel（エクセル）
- Excell : 現在のカーソルがある行の特定の列に値を書き込むマクロ
現在のカーソルがある行の特定の列に値を書き込むマクロの書き方を教えてください。以下は２０行めのＡ列、Ｂ列にa, b を書き込むものですが、最初のRange("A20").Selectをカレント行に設定するコードを書けばいいのでしょうか？具体的な記述を教えてください。よろしくお願いします。 Sub Macro4() Range("A20").Select ActiveCell.FormulaR1C1 = "a" Range("B20").Select ActiveCell.FormulaR1C1 = "b" Range("C20").Select End Sub
- ベストアンサー
- オフィス系ソフト
お礼
いまじっけんしましたら 完璧にできました ありがとうございました。