在 Excel 上如何实现以下效果？

[nXerrors]

单元格 A1 ，内容是123，字体为 字体一
单元格 B1 ，内容是456，字体为 字体二
要求在 C1 中实现以下效果：
内容是123456，其中“123”字体一，“456”为字体二。
各位大虾救救我吧！！！

[hxcom]

=CONCATENATE(A1,B1)，可以实现！
但EXCEL同一单元格只能使用同一字体！


祝你好运！


===========================
授之以鱼不如授之以渔
===========================

[yappies]

非也非也，同一单元格可以使用两种以上的字体（字型、大小），不过你要分别选中各个文字，分别设置即可，至于和在一起，我没试过。

[EdwardZhou]

同一单元格可以设置多种字体和格式，但仅限于文本格式；
数值、日期值等和用公式计算处理得到的内容都无法设置成多种字体和格式。

建议您还是用 C1 和 D1 来分别链接 A1 和 B1 的内容并设置成不同的字体、格式，而将下面的 C2 和 D2、C3 和 D3、C4 和 D4 …… 进行单元格合并，这样可以变通达到您的目的。

[niece]

先设置好 一和二

CONCATENATE(A1,B1)

[jy2004]

通过合并可以实现

[nXerrors]

top

[bxjgood66]

楼上说的好!

[nXerrors]

top

[大雄]

用宏可以实现。如果单元格不多数字长度固度你可以先输入123、456，点击“工具”->宏->录制宏，然后把定位单元格、设置文本格式、设置后三位为字体二的过程录制下来，再放到工具栏上随时点击或者放到Worksheet_SelectionChange事件里自动执行。如果数字长度不定那就要自已写宏了代码了。

[lxhhqc]

一定要先将其全设为文本格式

[zhumm]

top

[jessiebian]

TO:大雄,请问学习宏录制，要从哪里开始？如果看到请回信：[e-mail]

[nXerrors]

请问如何写宏 （如果字符串“456”前均有字符“4”和后均有字符“6”）？？

[大雄]

如果字符长度固定，你按我上面说的录制一个宏就可以了，我看过录制的宏是以字符串长度来分别设置字体，也就是说前面三个字符是字体一，后面三个设置字体二。

[sayboy]

Sub 宏1()
'
' 宏1 Macro
' tangluxin 记录的宏 2003-9-1
'

'
Range("C1").Select
ActiveCell.FormulaR1C1 = ""
Range("A1").Select
ActiveCell.FormulaR1C1 = "我爱你"
Range("C1").Select
ActiveCell.FormulaR1C1 = "我爱你"
Range("B1").Select
ActiveCell.FormulaR1C1 = "是真的"
Range("C1").Select
ActiveCell.FormulaR1C1 = "我爱你是真的"
Range("C1").Select
ActiveCell.FormulaR1C1 = "我爱你是真的"
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "黑体"
.FontStyle = "常规"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=4, Length:=3).Font
.Name = "新宋体"
.FontStyle = "常规"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("B1").Select
ActiveCell.FormulaR1C1 = "是真的"
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "楷体_GB2312"
.FontStyle = "常规"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("C1").Select
ActiveCell.FormulaR1C1 = "我爱你是真的"
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "黑体"
.FontStyle = "常规"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=4, Length:=3).Font
.Name = "楷体_GB2312"
.FontStyle = "常规"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("C3").Select
Application.Goto Reference:="宏1"
End Sub


我想睡觉了，应该好好看看宏，对EXCEL的编程非常有用
VBA趋于完美!

[cloudtarget]

学习