No.2ベストアンサー
- 回答日時:
>そもそもこんなこと可能なんでしょうか。
可能だと言えば可能ですが、質問者さんはどんなイメージを持っているのでしょうか。たぶん結合する範囲を選択して、それで、ボタンを押して、連結した時に、色などの書式が反映されているということになるのでしょうか。しょせん、マクロ自体は、人のやることをコード化したものだと考えると、無理なことは無理なのです。
しかし、例えば、書式のみで成立する日付などは、テキスト化しないといけません。そういう所までを、是非とも、ご自身でも考えていただきたいと、個人的には思うのです。
もうここらへんまで来ると、Excelの仕様に関わってくるので、それはもう、私個人としては、Q&Aという意義がなくなってしまうと思っています。
以下は、一例として考えてみました。(フォントのプロパティをすべて入れてはいません)
これは、また、その後に、QATのボタンにするのが一般的かとは思います。出来上がったものをコピーにまでは入れられますが、手動でペーストにすることになります。結合した所を元に戻すには、元に戻すマクロが必要になります。
'//
Private Type FontForm
'色・書体・フォント・フォントサイズ・下線・取り消し線
iColor As Long
bBold As Boolean
sFontName As String
iFontSize As Single
bUnderline As Boolean
bStrike As Boolean
End Type
Sub formatMerge()
Dim Rng As Range
Dim mFormat() As FontForm
Dim c As Range
Dim i As Long, j As Long
Dim mTxt
If TypeName(Selection) <> "Range" Then Exit Sub
Set Rng = Selection
If Rng.Cells.Count = 1 Then Exit Sub
If Rng.MergeCells Then
Rng.MergeCells = False
Exit Sub
End If
ReDim mFormat(Rng.Cells.Count - 1)
ReDim mTxt(Rng.Cells.Count - 1)
For Each c In Rng.Cells
mTxt(i) = Trim(c.Text)
With mFormat(i)
.bBold = c.Font.Bold
.iColor = c.Font.Color
.iFontSize = c.Font.Size
End With
i = i + 1
Next c
Rng.ClearContents
Rng.ClearFormats
Rng.Merge
With Rng
.Cells(1).Value = Join(mTxt, "")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlVAlignTop
.WrapText = False
.Orientation = 0
.AddIndent = False
j = 1
For i = 0 To UBound(mTxt)
With .Characters(j, Len(mTxt(i))).Font
.Color = mFormat(i).iColor
.Size = mFormat(i).iFontSize
.Bold = mFormat(i).bBold
End With
j = j + Len(mTxt(i))
Next i
Rng(1).MergeArea.Copy
End With
End Sub
ご提示いただいたサンプルコードを参考に、なんとか実現する事が出来そうです。
> 結合する範囲を選択して、それで、ボタンを押して、連結した時に、色などの書式が反映されているということになるのでしょうか。
そのとおりです。
難しかったですが、実現のめどは立ちました。
※Charactersを使うと処理速度が異常に遅くなるようですが、致し方ないですね・・
出来る限り高速化を考えますが、望みは薄そうですね。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelで数式をそのままコピーしたい どうすればいいですか? 4 2022/09/16 02:16
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Excel(エクセル) Excelマクロ(VBA)CELL形式とA1形式の使い分け 6 2022/08/27 23:35
- その他(Microsoft Office) Excelの条件付き書式についての質問です。 2 2022/09/08 01:25
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Excel(エクセル) エクセルでの左のセルのコピー 3 2022/07/25 12:31
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
EXCEL VBA 文中の書式ごと複写するには
Visual Basic(VBA)
-
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
取り消し線が入った文字を削除する処理を速くしたい(VBA)
Excel(エクセル)
-
5
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
Excel 関数を使ってデータと一緒にその書式もコピーしたいのですが・・・
Excel(エクセル)
-
8
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
9
VBA Shapesの座標からセル位置取得について教えてください
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
E列のセルに数値が入れば(空白...
-
条件付書式で「=#N/A」に色を付...
-
Excel にて条件付き書式の色に...
-
エクセルで特定の数字等を表示...
-
Excelの条件付き書式にて空白セ...
-
条件付き書式で、結果が1行ずれる
-
エクセルの枠の中の文字が青文...
-
条件付き書式で太罫線を引く方法
-
エクセルで1以上は全て1にするには
-
セルの値が空白じゃないなら色...
-
【エクセル】シフトで○が6個以...
-
エクセルで一定期間が経過した...
-
エクセル内で複数の文字(50個ぐ...
-
【エクセル】今日の日付に赤枠...
-
セル結合させてるときの 条件...
-
エクセルで数値の文字色が白か...
-
Excelについて あるセルに文字...
-
Excelで2つのファイルを比較し...
-
エクセルで、土日や祝祭日に色...
-
一つ上のセルと同じセルに色を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
E列のセルに数値が入れば(空白...
-
Excel にて条件付き書式の色に...
-
条件付書式で「=#N/A」に色を付...
-
条件付き書式で、結果が1行ずれる
-
エクセルの枠の中の文字が青文...
-
エクセルで特定の数字等を表示...
-
Excelの条件付き書式にて空白セ...
-
エクセル 条件付き書式で色をつ...
-
条件付き書式で太罫線を引く方法
-
エクセル内で複数の文字(50個ぐ...
-
エクエルで隣のセルの文字が赤...
-
セル結合させてるときの 条件...
-
Excelについて あるセルに文字...
-
エクセルで一定期間が経過した...
-
条件付き書式を教えてください
-
Excelで2つのファイルを比較し...
-
エクセルで1以上は全て1にするには
-
エクセルでカーソルのある行を...
-
エクセルで日付を入力したらカ...
-
【エクセル】今日の日付に赤枠...
おすすめ情報