½Ð°Ýn¦p¦ó§âA1¡BA2¡BA3¦X¨Ö¦Ü C1, ¤å¦r¤º®e¦r«¬¡BÃC¦â¤£ÅÜ¡C
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- sp2
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- u
- µù¥U®É¶¡
- 2010-5-18
- ³Ì«áµn¿ý
- 2024-8-7
|
½Ð°Ýn¦p¦ó§âA1¡BA2¡BA3¦X¨Ö¦Ü C1, ¤å¦r¤º®e¦r«¬¡BÃC¦â¤£ÅÜ¡C
¦U¦ì¦n:
½Ð°Ýn¦p¦ó§âA1¡BA2¡BA3¦X¨Ö¦Ü C1, ¤å¦r¤º®e¦r«¬¡BÃC¦â¤£ÅÜ¡C
VBA n¦p¦ó½s¼g
SUB TEST()
[C1]=[A1]&[A2]&[A3]
END SUB
©ÒÅã¥Ü¤§µ²ªG¥u¦³¦r¦ê¤§¦X¨Ö¡AÃC¦âÄݩʬҧïÅÜ¡C
|
|
oiggu
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# oiggu - Sub Ex()
- Dim R As Range, i As Integer, ii As Integer
- [C1].Clear
- [C1] = Join(Application.WorksheetFunction.Transpose([A1:A3]), Chr(10))
- i = 1
- For Each R In [A1:A3]
- For ii = 1 To Len(R)
- With R.Characters(Start:=ii, Length:=1).Font
- [C1].Characters(Start:=i, Length:=1).Font.Name = .Name
- [C1].Characters(Start:=i, Length:=1).Font.FontStyle = .FontStyle
- [C1].Characters(Start:=i, Length:=1).Font.Size = .Size
- [C1].Characters(Start:=i, Length:=1).Font.Strikethrough = .Strikethrough
- [C1].Characters(Start:=i, Length:=1).Font.Superscript = .Superscript
- [C1].Characters(Start:=i, Length:=1).Font.Subscript = .Subscript
- [C1].Characters(Start:=i, Length:=1).Font.OutlineFont = .OutlineFont
- [C1].Characters(Start:=i, Length:=1).Font.Shadow = .Shadow
- [C1].Characters(Start:=i, Length:=1).Font.Underline = .Underline
- [C1].Characters(Start:=i, Length:=1).Font.ColorIndex = .ColorIndex
- End With
- i = i + 1
- Next
- i = i + 1
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
¦^´_ 2# GBKEE
¤]¥i¥H²¤Æ¦¨¥H¤U³o¼Ë :- Sub Ex()
- Dim R As Range, i As Integer, ii As Integer
- Dim fS As Font, fT As Font
- [C1].Clear
- [C1] = Join(Application.WorksheetFunction.Transpose([A1:A3]), Chr(10))
- i = 1
- For Each R In [A1:A3]
- For ii = 1 To Len(R)
- Set fS = R.Characters(Start:=ii, Length:=1).Font
- Set fT = [C1].Characters(Start:=i, Length:=1).Font
- With fS
- fT.Name = .Name
- fT.FontStyle = .FontStyle
- fT.Size = .Size
- fT.Strikethrough = .Strikethrough
- fT.Superscript = .Superscript
- fT.Subscript = .Subscript
- fT.OutlineFont = .OutlineFont
- fT.Shadow = .Shadow
- fT.Underline = .Underline
- fT.ColorIndex = .ColorIndex
- End With
- i = i + 1
- Next
- i = i + 1
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- sp2
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- u
- µù¥U®É¶¡
- 2010-5-18
- ³Ì«áµn¿ý
- 2024-8-7
|
ÁÂÁ GBKEE¡B luhpro ¥\¤O¤Ó±j¤F¡A¸g´ú¸Õ³£¥i¨Ï¥Î¡C |
|
oiggu
|
|
|
|
|