人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

最初の正解者に1000ポイント進呈!
先日、質問したのですが回答が無いので再度質問させて頂きます。
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

●質問者: fancri
●カテゴリ:コンピュータ インターネット
✍キーワード:application as gettext String sub
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● SALINGER
●500ポイント

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

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

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

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


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

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

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

Sub Macro1()
 Cells(ActiveCell.Row, "F").Value = Replace(Cells(ActiveCell.Row, "F").Value, " :::", Cells(ActiveCell.Row, "D").Value)
End Sub
◎質問者からの返答

色々有難うございます!試してみます!


2 ● chyopper
●500ポイント

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

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

◎質問者からの返答

嬉しいです!本日夜に又拝見します!仕事行ってまいります!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ