
No.6ベストアンサー
- 回答日時:
あなたがヤリタイ事:
>3行目から100行目までの間にカーソルがあった場合、その行のA列に異動し、
>その値をコピーし、A2のセルに貼りつけ、コピーしたセルに戻る、
ヤリタイ事の整理:
1:3行目から100行目までの間にカーソルがあった場合
2:その行のA列に異動し、… コピーしたセルに戻る、
3:その値をコピーし、A2のセルに貼りつけ
回答したマクロ:
sub macro2()
if activecell.row < 3 or activecell.row > 100 then exit sub ’←1を実施
cells(activecell.row, "A").select ’←2を実施
range("A2").value = activecell.value ’←3を実施
end sub
という意味づけになります。
No.5
- 回答日時:
No.2です。
>また、ダブルクリックしなくても(ワンクリックでカーソルをセルに合わせただけでも)、
とありましたので・・・
本来ですと、間違ったセルを選択してもマクロが走ってしまいますので、
前回、ダブルクリックの方法を提案したのですが、
シングルクリックでやりたい場合の一例です。
シートモジュールですので、画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてセルを選択してみてください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'この行から
With Target
If .Row >= 3 And .Row <= 100 Then
Cells(.Row, "A").Copy Range("A2")
Cells(.Row, "A").Select
End If
End With
End Sub 'この行まで
こんな感じではどうでしょうか?m(_ _)m
親切に丁寧な回答をしていただき、ありがとうございます。
インターネットで調べたら、だいたい意味がわかった気がします。
(自分では到底組めなさそうですが)
勉強になりました。
No.4
- 回答日時:
ん?
>コピーしたセルに戻る
とは「コピーしたときに選ばれていたセル」に戻る,という意味じゃなかったんですか。
まぁでも、単にセルを選ぶ命令を追加するだけですが。
sub macro2()
if activecell.row < 3 or activecell.row > 100 then exit sub
cells(activecell.row, "A").select
range("A2").value = activecell.value
end sub
再度、お答えいただき、ありがとうございます。
ただ、「range("A2").value = activecell.value」の部分が理解できなかったのですが、
教えていただけると幸いです。
よろしくお願いします。
No.2
- 回答日時:
こんばんは!
こういうコトですかね?
ダブルクリックでの方法としています。
シートモジュールです。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Row >= 3 And .Row <= 100 Then
Cancel = True
Cells(.Row, "A").Copy Range("A2")
Cells(.Row, "A").Select
End If
End With
End Sub
適当なセルでダブルクリックしてみてください。m(_ _)m
ありがとうございます。
書いていただいたプログラムをシートのモジュールに貼り付けたのですが、
なぜか起動しません。(というか、開発タブ→マクロで表示されません)
また、ダブルクリックしなくても(ワンクリックでカーソルをセルに合わせただけでも)、
起動するようなマクロはできないでしょうか。
何度も申し訳ありませんが、ご教授いただけると幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excelでセルをクリックす...
-
エクセル 数字をすべて○などの...
-
クリックすると文章が表示され...
-
Excel内での検索結果をシート...
-
Excel ハイパーリンクのURLを別...
-
Excel:セルの値(文字列)を数...
-
Excelで、図形内の文字をセルに...
-
エクセルVBA
-
フォントの色を指定して削除出...
-
太字に設定されているセルの個...
-
セル背景や文字を点滅させる方法
-
エクセルでPDFリンクを大量...
-
Excel2007 色のカウント (VBA)
-
セルの内容をテキストボックス...
-
セルの値が変ると自動でマクロ...
-
空白セルを空セルに置き換える...
-
アポストロフィーの一括挿入 ...
-
エクセル シートを保護してる...
-
未記入がある場合はマクロを実...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
エクセル 数字をすべて○などの...
-
Excelで、図形内の文字をセルに...
-
クリックすると文章が表示され...
-
Excel2007 色のカウント (VBA)
-
Excel ハイパーリンクのURLを別...
-
太字に設定されているセルの個...
-
Excelでセルをクリックす...
-
セルの内容をテキストボックス...
-
セルがクリックされた回数をカ...
-
エクセルでPDFリンクを大量...
-
フォントの色を指定して削除出...
-
現在のセルの位置を返す関数は...
-
エクセルでセルをダブルクリッ...
-
未記入がある場合はマクロを実...
-
Excel:セルの値(文字列)を数...
-
マクロを実行すると画像がズレ...
-
アポストロフィーの一括挿入 ...
-
シート保護とグループ化機能を...
おすすめ情報