![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
現在のカーソルがある行の特定の列に値を書き込むマクロの書き方を教えてください。以下は20行めのA列、B列にa, b を書き込むものですが、最初のRange("A20").Selectをカレント行に設定するコードを書けばいいのでしょうか?具体的な記述を教えてください。よろしくお願いします。
Sub Macro4()
Range("A20").Select
ActiveCell.FormulaR1C1 = "a"
Range("B20").Select
ActiveCell.FormulaR1C1 = "b"
Range("C20").Select
End Sub
No.6ベストアンサー
- 回答日時:
以下のように色んな方法があります。
Sub Macro4()
Cells(ActiveCell.Row, 1).Value = "a"
Cells(ActiveCell.Row, 2).Value = "b"
End Sub
Sub Macro5()
Cells(ActiveCell.Row, "A").Value = "a"
Cells(ActiveCell.Row, "B").Value = "b"
End Sub
Sub Macro6()
Cells(ActiveCell.Row, "A").Value = "a"
Cells(ActiveCell.Row, "A").Offset(, 1).Value = "b"
End Sub
Sub Macro7()
Range("A" & ActiveCell.Row).Value = "a"
Range("B" & ActiveCell.Row).Value = "b"
End Sub
Sub Macro8()
Range("A" & ActiveCell.Row).Value = "a"
Range("A" & ActiveCell.Row).Offset(, 1).Value = "b"
End Sub
尚、それぞれのValueは削除可能ですが付けておいた方がベターです。
No.4
- 回答日時:
シートのコードに
Private Sub CommandButton1_Click()
a = ActiveCell.Row
Cells(a, 3).Value = "a"
Cells(a, 4).Value = "b"
End Sub
でコマンドボタンを押せばアクティブなセルのC列にa,B列にbがはいります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excel2016 連続したデータを作...
-
エクセルの関数について(日付で...
-
Excel 条件に従いセル移動するには
-
特定の桁数を抽出
-
エクセル VBA 指定の範囲内をコ...
-
マクロでの条件判断について
-
エクセルでA列セルが空白の時そ...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
Excel 自動セル 抽出 別シート...
-
《エクセル2000》A列・B列の和...
-
エクセルマクロで、現在の時刻...
-
エクセルで関数を使わず複数セ...
-
エクセルで縦に長い表を印刷
-
Excel VBA 行数調整について こ...
-
エクセル マクロ 貼り付け先が...
-
エクセルVBA 複数列をコピーす...
-
マクロ 計算式
-
一行おきにコピーするマクロが...
-
EXCELで○ヶ月を○年○ヶ月に変換...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルで表示された値だけ行...
-
エクセルで行挿入した際、自動...
-
エクセルで空白以外のセルの値...
-
エクセル VBA 指定の範囲内をコ...
-
[Excel VBA]空白セル以外に連番...
-
エクセル マクロ 貼り付け先が...
-
エクセルの関数について(日付で...
-
エクセルVBA 複数列をコピーす...
-
特定の桁数を抽出
-
【マクロ】IF複数条件の上限に...
-
エクセルで反転コピー
-
行数が不規則な一週間ごとの合...
-
エクセルのマクロ、AVERAGEIFを...
-
【初歩】エクセルでのマクロ(...
-
Excelのマクロで不規則に連番を...
-
エクセルで縦に長い表を印刷
おすすめ情報