- ©«¤l
- 18
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 73
- ÂI¦W
- 1
- §@·~¨t²Î
- Window XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-8-2
- ³Ì«áµn¿ý
- 2024-9-12
|
S ¤j¡A§Ú±N±z»¡©úªº¦r¦ê¥[¤J§ÚªºVBA¡A·íÀɮ׬°Link¬O¥i¥H¦Û°ÊÃö³¬¡A¥i¬OLink(1)...Link(N-1)®É¤´µLªkÃö³¬¡A½Ð°Ý¬O§_§Ú¦³þÃä¿ù»~¡Aªþ¤W§ÚªºVBA
Sub step01()
a = Cells(13, 4)
If Len(a) >= 28 Then
Worksheets("raw").Cells(13, 4).Font.Name = "Arial"
Worksheets("raw").Cells(13, 4).Font.Size = 35
Worksheets("raw").Cells(13, 4).Font.FontStyle = "²ÊÅé"
Else
Worksheets("raw").Cells(13, 4).Font.Name = "Arial"
Worksheets("raw").Cells(13, 4).Font.Size = 48
Worksheets("raw").Cells(13, 4).Font.FontStyle = "²ÊÅé"
End If
Set WB = Workbooks.Open("C:\Users\Point\Downloads\link.xlsm")
WB.Close
End Sub |
|