¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-5-2 17:29 ½s¿è
mark15jill ¤j¤j§A¦n
¹ï¤£°_,¥»¤H¥Îªº¬O2003ª©¥»
©Ò¥HµLªk¶}±Ò
½Ð°Ý¥i¥Hµ¹§Úµ{¦¡½X¶Ü??
ÁÂÁÂ
dodocho µoªí©ó 2011-4-29 22:13
©êºp ¨Sª`·N¨ì³o©«ªº°T®§.....
¥Î2007¥Î²ßºD ±`±`·|§Ñ°OnÂন¨ä¥Lª©¥»®æ¦¡..
µ{¦¡½X¦p¤U(¥t¦³ªþ±aÀÉ®× 2003®æ¦¡ªº)
¦p¦³°ÝÃD ¦A¦^´_¤å³¹...
Sub Macro1()
'
' Macro1 Macro
'
' §Ö³tÁä: Ctrl+e
Range("A3:b3").Select
ActiveCell.FormulaR1C1 = Range("A1") & Range("B1")
Range("A2:B2").Select '¿ï¾Ü A2¨ìB2 Àx¦s®æ
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("A2").Select
ActiveCell.FormulaR1C1 = Range("A3")
Range("A3").Select
ActiveCell.FormulaR1C1 = ""
Range("C1:D1").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = Range("C1") & Range("D1")
End Sub
¦r¦ê²Õ¦X-2003ª©¥».rar (8.75 KB)
|
|