[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『セルの結合について』(カズ)
初めて質問します。
住所録を作成しています。
例えばA1に「東京都」、B1に「新宿区」と入っていてセルを結合して「東京都新宿区」という風にして、もともとA1にあった「東京都」だけの書体を変えたり太字にしたりすることは可能でしょうか?可能なら方法を教えてください。
回答をよろしくお願い致します。
=A1&B1 で、つなげますよ?
>もともとA1にあった「東京都」だけの書体を変えたり太字 これは、「書式を変更」なんて回答じゃ納得しませんよね…(^_^;)
何がしたいのか分かりませんが、結合して表示する(A列、B列に入力がある)住所のみ書式変更したいって事かなぁ〜? A1を選択→書式→条件付書式→「数式が」「=COUNTA(A1:B1)=2」→書式→好みの設定 A1をコピー→適用したい範囲選択→形式を選択して貼り付け→書式
(Ohagi)
つなげる方法は知っていましたが1つのセルになった後、東京都新宿区の内、東京都だけを太字にしたいのです。つまり1つのセルの中に太字と普通の文字を混在させたいんです。可能でしょうか?
A1で先に太字にしてから「=A1&B1」で結合すると全て太字になってしまいます。
(カズ)
=A1のような単独のセル参照でも書式を同期するのは至難の業です。 [[20020805175728]] 『参照先のセルも同時に塗りつぶす』(コルドバ) 個別のフォント変更は数式では不可能。定数(文字列)である必要があります。 (みやほりん)(-_∂)b
結合した後に文字列に変換しての後「東京都新宿区」の「東京都」だけの書体を変えたり太字にしたりすることは簡単に手作業で可能ですよ。 つまり,「東京都新宿区」のセルを上部の窓に表示して,東京都だけドラッグして からフォントや太字変更すれば,一部のみ変更可能です。 ただし,その対象セル(東京都新宿区)は文字データそんのものでなくてはなり ませんので,「=A1&B1」で結合して表示されたセルを一旦,値複写でどこかに 転記してから文字データにして実施する必要があります。 この回答は,希望のことが可能かどうかに対しての回答{可能}という意味で 書いていますので,このような,手作業方法は当然承知しているとおっしゃる 場合は没にしてください。 (夕焼)
夕焼さんのご回答は知っていたんですが件数が多いデータだとちょっと厳しいかも…。
ありがとうございました。
セル参照の結果に対してセル全体ならいざ知らず、1つ1つの文字に対して 文字の装飾しようというのは、無理があるように思えます。 赤とか青ならできるかも知れないですが、太字ってあるのか不明・・・。 マクロでやりゃ良いと思いますが・・・。 基本部分だけ書いておきますから、適当に修正してください。 BJ
For i = 1 To 10 With Cells(i, 3) .Value = Cells(i, 1).Value & Cells(i, 2).Value With .Characters(Start:=1, Length:=Len(Cells(i, 1).Value)).Font .FontStyle = "太字" End With End With Next
でもなければ、セル1個1個に図形を張ってGetCellなんかで、 セルを表示されたまんまの状態を表示させるとか・・。 (前提、都道府県をあらかじめ太字にしておく)
数が多いと遅いかも・・・_/ ̄|○ il||li Sub Test() Dim C As Range Dim lng_strCount As Long If Selection.Columns.Count > 1 Then MsgBox "複数の列が選択されています。" Exit Sub End If For Each C In Selection lng_strCount = Len(C.Text) With C.Offset(0, 2) .Font.Bold = False .Value = C.Text & C.Offset(0, 1).Text .Characters(Start:=1, Length:=lng_strCount).Font.FontStyle = "太字" End With Next C End Sub
って、書いた後でよく見たら、BJさんのとほとんど同じですた。。。_/ ̄|○ il||li
(川野鮎太郎)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.