- ©«¤l
- 84
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 104
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- SP3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-8-10
- ³Ì«áµn¿ý
- 2018-4-21
|
¦^´_ 8# GBKEE
«z«¢«¢¡I²×©óÅý§Ú¦³¾÷·|¡u¯Zªù§Ë©ò¡v°Õ¡C
¤p§Ì¤£¤~¡A¦ý¬OÅý§Ú§ä¨ì¤Fmid¨ç¼Æ¡A§Ú§Q¥Îmid±N©m¦W¦r¦ê¤À³Î¡C©Ò¥H´N¥[¤F¤@¨Ç»yªk¡G
Option Explicit
Sub Worksheet_Activate()
Dim a, b, c As String, Sh As Worksheet, Pr As Range
a = Sheets("°ò¥»³]©w").Range("i5").Value '¤w¿é¤Jªº©m¦WÄæ
b = Mid(a, 1, 2) '¤À³Î©m¦W
c = Mid(a, 3, 1) '¤À³Î©m¦W
Set Sh = Sheets("¦L³¹")
Set Pr = Sh.[b1]
With Sh
With .[a10]
.FormulaR1C1 = b & Chr(10) & c & "¦L" '§â©m¦W«e¨â¦r©M³Ì«á¤@¦r¥[¤W¦L±j¢´«¦æ
.Font.Size = 15
.Font.ColorIndex = 3
.Font.Name = "µØ±d¥j¦LÅé(P)"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.MergeCells = False
.Copy
End With
With .Pictures.Paste
.Placement = xlMoveAndSize
.PrintObject = True
.Top = Pr.Top
.Left = Pr.Left
.ShapeRange.Fill.Visible = msoFalse
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.Line.Weight = 1
.ShapeRange.Line.ForeColor.SchemeColor = 10
.Select
End With
.[a10] = ""
End With
End Sub |
|