Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 8.1 : Excel 2013)
フォントを変えずに複数のセルの情報を1つのセルに
投稿日時: 18/01/07 15:53:18
投稿者: ぽんた5941号

初めての投稿失礼いたします。
フォントサイズを変えずに複数の情報のセルを1つのセルに表示したく、ご助言をいただきたいです。
 
例えば
【Sheet1】
    A       B
1 みそ(21pt)  ラーメン(15pt) 
 

 
【Sheet1】
    A       B
1 みそ(21pt)  ラーメン(15pt) 
 
2 みそ(21pt)ラーメン(15pt)
 
 
フォントサイズを変更しない、もしくは一括して変更するのは簡単にできたのですが...
ご助言をいただけましたら幸いです。

回答
投稿日時: 18/01/07 17:00:22
投稿者: WinArrow
投稿者のウェブサイトに移動

手順1
セルA2にセルA1とせるB1の値を結合して格納します。
手順2
セルA2のCHacters.text(Start,Length)を使って、セルA1の値の長さだけフォントサイズを設定します。
Startは1
Lengthは、Len(A1の値)ですよね
手順3
セルA2のCHacters.text(Start,Length)を使って、セルB1の値の長さだけフォントサイズを設定します。
StartはLen(A1の値)+1
Lengthは、Len(B1の値)ですよね
 
HELPなどを調べればできると思いますので、チャレンジ
 

投稿日時: 18/01/08 11:12:57
投稿者: ぽんた5941号

お詳しくありがとうございます。
実践してみます。

回答
投稿日時: 18/01/08 14:55:59
投稿者: simple

既に適切なご指摘をいただいていますが、老婆心ながら。
 
(1)マクロ記録で得られるコードが参考になります。
   一度、実行してみてください。
(2)もうひとつのポイントは、変更するセルが式のままだと、
   文字単位の書式設定はできない、という点です。
  式を利用したとしても、そのあとでコピーして自分自身に値貼付けしておけば、
   よいでしょう。

回答
投稿日時: 18/01/08 15:42:41
投稿者: WinArrow
投稿者のウェブサイトに移動

simpleさんのアドバイスで気が付いたところがあり、
追記します。
 

引用:
手順1
セルA2にセルA1とせるB1の値を結合して格納します。

は、数式の文字列結合ではなく、単純な文字列結合です。
 
×:
受け側セルに[=A1&B1]
コードでいうと
受取セル.Formula = "=A1&B1"
 
 
○:
受取セル.Value = Range("A1").Value & Range("B1").Value
 
 

トピックに返信