エクセル2010を使用しています。
表のように、日付と名前と住所を入力したら、すぐ下の2行のセルに同じ文字を反映させ、かつ青文字にしたいのですが、マクロ機能を使ってボタンひとつで、文字を反映しその文字を青色にすることはできますか。
たとえば、
A2、B2、C2を手入力し、マクロボタンを押したら、
A2は、A3、A4へ同じ文字を反映し青文字になる。
B2は、B3、B4へ同じ文字を反映し青文字になる。
C2は、C3、C4へ同じ文字を反映し青文字になる。
同様に、9/2以降もそのマクロボタンを押したら同じようにできるようにしたいです。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
#1です。
補足を見ました。計算式&書式設定では、あらかじめ入力されるであろうところまで設定しておかないとだめなので、どこまで入力されるかわからない、という状況ではちょっとふさわしくなかったですね。
入力されたらすぐに下の2行に青字でコピーする、ということはマクロでできます。こんな感じでどうでしょうか。
-----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
pos = Target.Row
If pos Mod 3 <> 2 Then
Exit Sub
End If
Range(Cells(pos + 1, 1), Cells(pos + 2, 3)).Font.ColorIndex = 5
Cells(pos + 1, 1) = Cells(pos, 1)
Cells(pos + 2, 1) = Cells(pos, 1)
Cells(pos + 1, 2) = Cells(pos, 2)
Cells(pos + 2, 2) = Cells(pos, 2)
Cells(pos + 1, 3) = Cells(pos, 3)
Cells(pos + 2, 3) = Cells(pos, 3)
End Sub
No.3
- 回答日時:
No.2です。
No.1さんの補足に
>一番したいことは、A2、B2、C2
文字を入力したら、自動的に下の2行に反映し・・・
とありましたので、またまた顔を出しました。
画像の配置どおり、2・5・8・・・と3行おきにデータを入力するとします。
マクロを実行するようにしてみました。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてデータを入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim i As Long
i = Target.Row
If i Mod 3 = 2 And WorksheetFunction.CountA(Cells(i, "A").Resize(, 3)) = 3 Then
With Cells(i + 1, "A").Resize(2)
.Value = Cells(i, "A")
.Offset(, 1) = Cells(i, "B")
.Offset(, 2) = Cells(i, "C")
.Resize(2, 3).Font.ColorIndex = 5
End With
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
End If
End Sub 'この行まで
今回はコマンドボタンではなく、その行のA~C列がすべて入力済みになった時点でマクロが実行されます。
こんな感じではどうでしょうか?m(_ _)m
No.2
- 回答日時:
こんにちは!
>ボタンひとつで・・・
とありますので、コマンドボタンを配置しているという前提です。
A~C列を入力後、その行を選択してコマンドボタンをクリックするとします。
※ A列の表示形式は「日付」にしておいてください。
Private Sub CommandButton1_Click()
Dim i As Long
i = Selection.Row
With Cells(i + 1, "A").Resize(2)
.Value = Cells(i, "A")
.Offset(, 1) = Cells(i, "B")
.Offset(, 2) = Cells(i, "C")
.Resize(2, 3).Font.ColorIndex = 5
End With
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.1
- 回答日時:
普通にセルに計算式を入れておけばよいような気もしますが、敢えてマクロですると、こんな感じでどうでしょう。
コピーをしたいどこかのセル(コピー元のセルも含む)をアクティブにしておいてマクロを実行します。
--------------------
Sub test()
rw = ActiveCell.Row
pos = ((rw + 1) \ 3) * 3 - 1
Range(Cells(pos + 1, 1), Cells(pos + 2, 3)).Font.ColorIndex = 5
Cells(pos + 1, 1) = Cells(pos, 1)
Cells(pos + 2, 1) = Cells(pos, 1)
Cells(pos + 1, 2) = Cells(pos, 2)
Cells(pos + 2, 2) = Cells(pos, 2)
Cells(pos + 1, 3) = Cells(pos, 3)
Cells(pos + 2, 3) = Cells(pos, 3)
End Sub
この回答への補足
ご回答ありがとうございます!すごいです!
マクロ編集部分に張り付けたら無事に実行されました。
関数に詳しくないのですが、一番したいことは、A2、B2、C2
文字を入力したら、自動的に下の2行に反映し青文字になってほしい
です。
数式を教えて頂くことはできますか?
なお、9月2日以降も同じようにしたいのですが、本来の表
はどんどんデータが増えていきます。
全てのセルに予め数式をいれることは可能でしょうか。
なお、この表は、複数の人が使います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelの関数について質問です! 2 2023/06/08 13:54
- Excel(エクセル) ExcelのIF関数 2 2022/04/14 16:11
- Excel(エクセル) 【Excel】複数列ごとに取得するセルを変更したい 2 2023/03/23 21:04
- Excel(エクセル) エクセルで特定の文字を打つと別シートに別の文字を反映させるようにしたいです。 例)Qと打つと別シート 2 2023/04/22 14:10
- Illustrator(イラストレーター) Illustratorについてなのですが‥ Illustratorの機能で、1箇所に文字を入力するだ 1 2023/06/18 10:37
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
- iPhone(アイフォーン) iphoneのキーボード 既存のものを使っています。 名前のローマ字入力等、1文字目だけ大文字にした 4 2022/06/28 21:56
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- JavaScript Javascriptが機能せず原因が分からないので教えて頂きたいです 3 2023/06/04 14:50
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでURL挿入後、名前を変...
-
エクセル関数使用で赤色数字を...
-
エクセルで入力のあるセルのみ...
-
一つのセルに計算式を入れて別...
-
列幅が変更できなくなった
-
エクセルで逆さまに印刷したい
-
エクセルで1分あたりの作業量...
-
エクセルで前月までの平均を出...
-
EXCELで千円単位を百万円単位に
-
エクセル:複数シートで重複デ...
-
Sheet1とSheet2をリンクさせた時…
-
エクセルにて賞味期限管理
-
画像(GIF/JPEG Image)をエ...
-
進捗管理表のある条件なかで最...
-
エクセルの数式を解除して数字...
-
ExcelVBAで選択したセルで平均...
-
EXCELのデータ修正時に、...
-
「マネージメント」と「マネジ...
-
小さな会社の事務全般の社員。...
-
異動した直後の名刺交換について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでURL挿入後、名前を変...
-
エクセル関数使用で赤色数字を...
-
エクセルで入力のあるセルのみ...
-
一つのセルに計算式を入れて別...
-
EXCELで千円単位を百万円単位に
-
エクセルで1分あたりの作業量...
-
エクセルで逆さまに印刷したい
-
EXCELのデータ修正時に、...
-
列幅が変更できなくなった
-
エクセルでの順位に応じた点数...
-
表に日付と担当者を入力すると...
-
エクセルでセルの日付を和暦表...
-
Excel・プラス値とマイナス値を...
-
エクセルで部屋番号や個人情報...
-
画像(GIF/JPEG Image)をエ...
-
3つの条件のうち、2つを満た...
-
エクセルで前月までの平均を出...
-
エクセルで重複データから抽出...
-
異なる締め日に対応して支払日...
-
Mac版Excelの列移動?について
おすすめ情報