最初の正解者に１０００ポイント進呈！

Question

ラフマニノフ

350

323もっと見る

1000pt

コンピュータインターネット

最初の正解者に１０００ポイント進呈！

先日、質問したのですが回答が無いので再度質問させて頂きます。
http://q.hatena.ne.jp/1257968380です。

以前http://q.hatena.ne.jp/1256929671で質問した中で
以下のコードを紹介して頂いたのですが今回の質問のコメント欄をご覧頂きどのように変更すれば
良いか教えて下さい。
Sub Macro1()
Dim c As Variant, d As New DataObject, t As String
c = Application.ClipboardFormats
If c(1) = xlClipboardFormatText Then
d.GetFromClipboard
Cells(ActiveCell.Row, 6).Value = Replace(Cells(ActiveCell.Row, 6).Value, " ：：：", d.GetText)
Else
MsgBox ("クリップボードの内容が文字ではないので貼り付け出来ません")
End If
End Sub

回答の条件

1人10回まで

登録：2009/11/13 06:19:11
終了：2009/11/19 03:33:29

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ラフマニノフ 2009/11/13 06:21:58

さて質問ですが質問の欄のコードを
Ａ列でなくＤ列のものを
Ｆ列に貼り付ける場合のコードを教えて下さい

Ｄ列にある項目のＤ１「近代日本哲学思想家辞典」
Ｄ２「串田孫一哲学散歩」
Ｄ３「契沖全集」
Ｄ４「契沖伝」
Ｄ５「経学研究序説」
Ｄ６「元明時代の儒教」
等をコピーして「日本の古本屋」で検索し、カーソルを動かさずに
「Ｃtrl」＋「V」で
Ｆ列の「：：：」の
部分に貼り付けできるようにするにはどうすればよいでしょうか。
宜しくお願いします。
kn1967 2009/11/13 06:59:42

正常に動いているならば、どこも書き換える必要はありません。

Ａ列であろうと、Ｄ列であろうと、果ての果てのＩＶ列であろうと、
どの列がアクティブになっていようとも必ずＦ列の：：：と置き換えますし、
アクティブセルも移動しませんので、何の改造も必要ないです。

以前のＡ列からコピーして、IEに切り替えて検索、Excelに戻ってCtrl+Vと同様に、
何の改造もなく、
Ｄ列からコピーして、IEに切り替えて検索、Excelに戻ってCtrl+Vしてみてください。

※先ほど、一時的に勘違いなコメントをしてしまいました。
　メールで届いているかもしれませんが、無視してください。
ken3memo 2009/11/13 08:41:21

http://q.hatena.ne.jp/1256761276
これですか？やりたいことは？
過去の質問を、見落としてました。
ken3memo 2009/11/13 08:46:46

↑ゴメンなさい、処理がチョット違いましたね。
SALINGER 2009/11/15 12:49:23

私の回答はコメント欄で良いレベルでしたが、
それを見た後のchyopperさんの回答って必要？
kn1967 2009/11/15 21:57:29

id:chyopper さんは、ポイントの均等割り狙ってるような人でも無いと思うし、
「僕、こんなのも知ってるよ」って言いたいだけでも無いと思いたいけど、
どういった意図で書き込んだのか私も興味はありますね。
ラフマニノフ 2009/11/16 10:20:07

皆様色々有難うございます。ちょっと仕事ががんがん入ってきて
あまり触ることが出来てませんがちょっとずつやります。
引き続き宜しくお願いします。
ken3memo 2009/11/17 10:19:50

仕事がガンガン入ってくるなんて、うれしい悲鳴って感じでいいですね。(私は仕様待ち、7並べで9辺りが止められている状態です、昼間からネットで遊んでます(ぉぃぉぃ))
作業の手数を減らすために、コンピューター化、マクロなどを活用して(はてなを活用して)作業をドンドン自動化、簡略化してください。
1000Pの行き先
>最初の正解者に１０００ポイント進呈！
を、こっそりウォッチしてますね。
正解者が現れることを願いつつ、失礼します。(*もう回答1,2で現れているのかな？OK,NGだけでも出してもらえると回答3～がアップされるのでは?)
ラフマニノフ 2009/11/19 03:33:11

うーん何がおかしいのか良く解りません。
が出来ない・・・・。質問を変えて再度質問します。
とりあえず質問が終了してしまうので１，２の方に５００ポイントずつ進呈します。
うーむ。

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

SALINGER · Answer 1 · 2009-11-13T08:25:45+09:00

はずしてたら無視してください。

前の質問を見ると、Ａ列で検索し、Ｄ列でＦ列を置換するコードになりますでしょうか。

Ａ列をダブルクリックして検索するコードは以前、ken3memoさんが書かれてました。

クリップボードの内容で置換するコードはkn1967さんが書かれています。

単に、Ｄ列の内容で置換するならばこれでいいです。

（Ctrl+Vを設定するには、ツール→マクロからオプションで設定してください。

ただし、通常の貼り付けのショートカットは使えなくなります。）

Sub Macro1()
    Cells(ActiveCell.Row, "F").Value = Replace(Cells(ActiveCell.Row, "F").Value, " ：：：", Cells(ActiveCell.Row, "D").Value)
End Sub

chyopper · Answer 2 · 2009-11-13T12:56:49+09:00

貼り付け後、カーソル位置を一段下に下げるバージョンです。

Sub Macro1()

Cells(ActiveCell.Row, "F").Value = Replace(Cells(ActiveCell.Row, "F").Value, " ：：：", Cells(ActiveCell.Row, "D").Value)

ActiveCell.Offset(1, 0).Activate

End Sub

最初の正解者に１０００ポイント進呈！

回答（2件）

SALINGER34549692009/11/13 08:25:45

chyopper416692009/11/13 12:56:49

コメント（9件)

この質問への反応（ブックマークコメント）