Excelで英単語・英熟語の一覧を作成しております。
セル内に文字列で例文を記入し、重要部分に下線を引いているのですが
その下線部のみ書式を一括で変更したい(太字や文字色の変更)と考えております。
(例) セルC2に「I have to prepare for tomorrow's English test.」と記入してあり
「prepare for」の部分に下線を引いてあります。
このような例文(セル)が数百あるのですが
一括で下線部のみの書式を変換する方法はございますでしょうか。
詳しい方が居られましたら、是非御教授下さい。
よろしくお願い致します。
No.3ベストアンサー
- 回答日時:
数式などを使わずテキストのみなら、変換したいセルの範囲を
コピーして、Wordに貼り付けて変換してはいかが。
設定手順の例
元の書式を維持した貼り付けにして、Wordに貼り付け。
[高度な検索]を開きます。
[書式]ボタンを押し[フォント]を選択してダイアログを出します。
[下線]を選択して[OK]すると、書式として下線が登録されます。
[検索する場所]を[メイン文書]に指定すると、Wordに貼り付けた
セル内の下線文字列が選択状態になります。
設定したい書式(太字なら[ Ctrl+B ]キーなど)を指定。
指定した書式になったら、コピーしてExcelのセルへ貼り付け。
これでマクロを使わないでの手作業でも一括処理ができます。
No.5
- 回答日時:
当方もエクセルVBA初心者です。
諸兄のHPを参考にユーザー関数を作って見ました。
かなり冗長なプロシャージャですが,エクセルの標準モジュールに貼り付けてください。
VBAの開発タグが表示されないとVBAの画面が表示されませんので,
もし不明の時は,くぐってみてください。
入力されているセルの脇のセルにでも,=komoji_to_omoji(セル番地)
といれて,後は,ドラッグでコピーすればいいかと思います。
この,関数は,下線が文字列に一カ所しかない場合のみで,複数箇所に
ある場合には,対応していません。
Public Function komoji_to_omoji(rng As Range) As Variant
Dim n, s, e As Integer
Dim buff As String
For n = 1 To Len(rng.Value)
If rng.Characters(n, 1).Font.Underline <> xlNone Then
s = n
Exit For
Else
buff = buff & Mid(rng.Value, n, 1)
End If
Next
If s > 0 Then
For n = s To Len(rng.Value)
If rng.Characters(n, 1).Font.Underline = xlNone Then
e = n
Exit For
Else
buff = buff & UCase(Mid(rng.Value, n, 1))
End If
Next
End If
If e < Len(rng.Value) Then
For n = e To Len(rng.Value)
If rng.Characters(n, 1).Font.Underline <> xlNone Then
Exit For
Else
buff = buff & Mid(rng.Value, n, 1)
End If
Next
End If
komoji_to_omoji = buff
End Function
ご回答ありがとうございます。
1つのセルに複数個所の下線部があるので、折角ご教授いただきましたにもかかわらず、残念です(泣)
No.3 enunokokoro様に教えて頂いた方法で解決いたしました。
ありがとうございました。
No.4
- 回答日時:
マクロの提供は可能ですが、現状では要件が不明です。
もし、マクロの提供を望まれるなら、以下の件に補足してください。
以下不明点です。
1.下線の部分をどのようにされたいのでしょうか。
①太字にしたい。
②太字にして、かつ色を付けたい。(その場合、色の種類も提示してください、例 赤、緑、黄等)
③色を付けたい。(その場合、色の種類も提示してください)
上記の何れの場合でも、下線はなくなりますが、それで良いでしょうか。
(下線を残して太字にしたい等ということではないと解釈しました)
2.例では、C2のセルが対象になっていますが、具体的には、どのセルの範囲が、対象となるのでしょうか。
シート全体のセルを対象にすることは可能ですが、その分、遅くなります。
3.あなたのexcelの環境がマクロの実行を可能な状態になっている必要があります。
以下のマクロをマクロを標準モジュールに登録し、それを実行して添付図のようなメッセージが表示されれば、マクロの実行は可能です。
添付図のメッセージが表示されるようになりましたら、その旨返信ください。
Public Sub マクロ試験()
MsgBox ("マクロが実行されました")
End Sub
ご回答ありがとうございます。
マクロのご提供まで、ご提案下さり誠にありがとうございます。
No.3 enunokokoro様に教えて頂いた方法で解決いたしました。
No.2
- 回答日時:
こんにちは
「検索」の機能に書式で検索する方法が用意されていますけれど、あくまでも「セルの書式」を検索するものですので、残念ながら、セル内の一部の文字の書式だけを検索することはできません。
どうしても一括でなさりたいのであれば、マクロを利用すれば可能ですが、質問者様がマクロを扱えない場合は、ハードルは高いと思います。
内容としては、
『対象セル内の文字列を一文字ずつチェックして、アンダーラインの書式だったら、別の書式に変更する』
というようなマクロを作成できれば、一括処理は可能になるでしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) エクセルでA列セル内で折り返すことなく、文字列を、B列C列・・・側に一行に 2 2022/07/23 02:02
- その他(Microsoft Office) Excelの条件付き書式についての質問です。 2 2022/09/08 01:25
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/15 08:30
- Excel(エクセル) エクセルにおいてセル内の文字を出来るだけ大きく表示する方法を教えてください。 4 2022/07/30 08:08
- フリーソフト フォルダ、ファイル名の一括変換について 3 2023/03/16 09:23
- Excel(エクセル) 列の総当たりチェックの方法 3 2023/10/15 15:19
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) Excel 同一セル内 年、日 入れ替え 5 2022/04/09 01:48
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
表示されている人数だけを数えたい!!
Excel(エクセル)
-
“丸(〇/○/◯)”に似た文字…
Excel(エクセル)
-
1行目のデータ(A1:G1)をコピーして、2~49999行へ貼り付ける効率的な操作方法は?
Excel(エクセル)
-
-
4
Excelでこういう年を切り替えられる簡易なカレンダーを作ったのですが、 年や月を変えると、色が付い
Excel(エクセル)
-
5
エクセルのセル統合について
Excel(エクセル)
-
6
Excelの関数に関する質問です
Excel(エクセル)
-
7
Excel 大なり小なりを表すとき、 例えば「10以上」なら、>=10 と表せますが、 この10の部
Excel(エクセル)
-
8
式の解読のお願いm(_._)m
Excel(エクセル)
-
9
エクセルのcountifのワイルドカードについて
Excel(エクセル)
-
10
Excel関数かなにかでスムーズに処理するにはあなたならどうしますか?
Excel(エクセル)
-
11
Excelのテーブルでmatch関数の使い方について
Excel(エクセル)
-
12
Excelの関数で起きた現象の原因がわかりません。
Excel(エクセル)
-
13
曜日の 月 を (月) と表示させる方法について
Excel(エクセル)
-
14
excelの不要な行の削除ができない!
Excel(エクセル)
-
15
同じ型【ハイフンと数字】をぶつけて、イコールである事を証明する関数はありますか?
Excel(エクセル)
-
16
SUMIFでの判定条件が異なるために正確に計算されない
Excel(エクセル)
-
17
Excelでの判別方法
Excel(エクセル)
-
18
データの入力規則 Excelです。 例えば、 C1セルに、 A列のデータ(B列にあいうえお"と入っ"
Excel(エクセル)
-
19
エクセル。計算結果の桁揃えをするにはどうする?
Excel(エクセル)
-
20
エクセルの気味悪い不思議
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel で下線が消えてしまうの...
-
Google Keepで数字に勝手に下線...
-
パワーポイント:テキストボッ...
-
Word で下線の色の変え方
-
Wordでレイアウトを変えないで...
-
アンダースコア(下線)のあるメ...
-
AppleのNumbersというアプリで...
-
フランス語の質問です。 J'aime...
-
Latexにおける下線のひき方のコト
-
高校英語 語法 わかりません!
-
【excelの下線(会計)とは】
-
秀丸・カーソル行に下線を引き...
-
アンダーラインを引くやり方
-
エクセル:セル内の文字列の下...
-
エクセルにテキストボックスを...
-
WORD2010 ハイパーリンクの下線...
-
小数点以下の数字に下線を引くには
-
パワーポイントの見出しの線の...
-
文字からのリンクしたときに付...
-
ExcelのVBAで下線のついている...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel で下線が消えてしまうの...
-
パワーポイント:テキストボッ...
-
Google Keepで数字に勝手に下線...
-
エクセル:セル内の文字列の下...
-
AppleのNumbersというアプリで...
-
アンダースコア(下線)のあるメ...
-
フランス語の質問です。 J'aime...
-
エクセルのセルの下線が消えない
-
Wordでレイアウトを変えないで...
-
ワードの表で下線と文字の入力
-
AUTOCAD文字の下に同じ長さの線...
-
outlook2003にて新規メッセージ...
-
【excelの下線(会計)とは】
-
Word で下線の色の変え方
-
WORD2010 ハイパーリンクの下線...
-
Latexにおける下線のひき方のコト
-
ExcelのVBAで下線のついている...
-
E-mail中の文章に赤で下線を引...
-
ワードで下線を引く方法
-
アンダーラインを引くやり方
おすすめ情報