Excel2000を使っています。
エクセルで作った表を、OutLook Express 等のhtmlを編集できるエディタ
(htmlメールを作る)にコピー&ペーストすると、漢字のふりがなが表示
されてコピーされます。
これを回避する方法はあるでしょうか?
今は、コピー前に次のマクロでふりがなを削除してから
貼り付けています。
Sub Hurigana()
Dim c As Range
For Each c In Selection
c.Characters.PhoneticCharacters = ""
Next
End Sub
この作業も面倒なので、コピー時にふりがな情報を除いてコピーした
いのですが、こんな事は可能なのでしょうか?
ご存知の情報がありましたら、よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
Excelシート上の漢字を Outlook Express の HTML形式の本文に貼り付けると“ふりがな”が浮き出る現象は案外有名なことで、私も昔に経験したことがあります。
Excel 2000 → OE 6 で実験してみると再現しました。
しかし、Excel 2002 → OE 6 では当該現象は発生しません。
MSは“こっそり”改善したみたいですね。(^_^)
ちなみに、Excel 97 → OE 6 でも問題ありません。(しかし、罫線もコピーされませんが)
mike_gさん、こんにちは。
ありがとうございます。
そういうことだったのですね。私の組織では2000しかないので、
私物でやってみたら、言われたとおり現象は発生しませんでした。
2002を購入してもらいます。
ありがとうございました。
No.1
- 回答日時:
こんにちは。
KenKen_SP です。んー、再現しませんね....
Excel でフリガナを表示させた状態でコピーすると、フリガナもペースト
されますが、フリガナを非表示でコピーした場合は、再現しません。
ご参考まで。
余談になりますが、フリガナをカットするなら、
Selection.Value = Selection.Value
でできますよ。ただし、この方法は数式まで値にしてしまうので、その点を
考慮すると、
' // フリガナをカット
Sub DropPhoneticText()
' 数式セルは値にしない様に定数セルのみを対象とする
Dim C1 As Range, C2 As Range
On Error Resume Next
Set C1 = ActiveWindow.RangeSelection
If C1.Count = 1 Then
If C1.HasFormula Then Exit Sub
C1.Value = C1.Value
Else
Set C1 = C1.SpecialCells(xlCellTypeConstants, 23)
For Each C2 In C1.Areas
C2.Value = C2.Value
Next
End If
Set C1 = Nothing
Set C2 = Nothing
End Sub
こんな感じで。Selection が広域だと、セル毎に Phonetic を操作するのは
時間がかかるでしょうから、こんな方法もあるということで...
ご参考までに。
役立つ回答じゃないですね....すみません。
この回答への補足
KenKen_SPさん、こんにちは。
情報ありがとうございます。
再現しませんか…
当方は「ふりがな」の表示/非表示のどちらでも、ふりがなまでペースト
されます。
KenKen_SPさんの環境では、悩まずにすみそうなのでとても羨ましい限りです。
マクロもありがとうございます。試してみます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
iPhoneでエクセルのコピーし、...
-
Excelで行ごとコピー、同じ行を...
-
Excel 3列毎のセルを別の表に抽...
-
塗りつぶしの色をコピーするには
-
【エクセル】表の中の文字だけ...
-
VBAのテキストボックスに文字列...
-
PDFの一部を切り取って別のシー...
-
C+vのvは英語で何の頭文字...
-
Twitterで、いいねしてくれた人...
-
エクセルのコピー(列幅行幅を...
-
コピー&貼り付けの仕方を教え...
-
EXCEL 1つ飛ばしのセル参照
-
セルから一部だけを抜き出して...
-
コピペしたURLに勝手な文字...
-
形式も一緒にオートフィル(エ...
-
googleで翻訳したテキストがコ...
-
コピーされたセルの文字が途中...
-
右クリックでコピー、切り取り...
-
POWER POINTで webのグラフ...
-
Adobe Acrobat DCのスナップシ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
PDFの一部を切り取って別のシー...
-
塗りつぶしの色をコピーするには
-
C+vのvは英語で何の頭文字...
-
Excelで、決まった行を繰り返し...
-
Excel 3列毎のセルを別の表に抽...
-
WORDのグレー括弧って?
-
セルに値がある行のみを抽出す...
-
【エクセル】表の中の文字だけ...
-
VBAのテキストボックスに文字列...
-
EXCEL 1つ飛ばしのセル参照
-
数式による空白を無視して最終...
-
マイナスの場合「xxxx-」...
-
コピーされたセルの文字が途中...
-
セルから一部だけを抜き出して...
-
画面写真でコピーペーストする...
-
空白行を無視してコピーするマ...
-
エクセルでコピーしたものをコ...
-
コピー&貼り付けの仕方を教え...
-
エクセルでマクロにてセル色と...
おすすめ情報