- ©«¤l
- 15
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 20
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-7-22
- ³Ì«áµn¿ý
- 2015-7-21
|
[µo°Ý] ©ó¥~³¡µ{¦¡Export¨ìExcel .XLT«á¦A¦Û°Ê°õ¦æ¥t¤@Ó¦Û¨îSUB
¤j®a¦n
§Ú¤½¥q¦³Óµ{¦¡
¥i¥H±qµ{¦¡¤¤¥Î¤@ÓModel XLT
§ä¥XÀx¦s®æ¦WºÙ¦AˤJ¸ê®Æ
§Ú·Q¦bˤJ«áªº¸ê®Æ
°õ¦æÃþ¦ü¥H¤Uªº¦Û¨îSUB- Sub fsc()
- Dim m As Long
- For m = 15 To [a65536].End(4).Row
- r1 = LCase(Left(Cells(m, 4), 3))
- If r1 = "FSC" Then
- [b6].FormulaR1C1 = "FSC"
- End If
- Next m
- End Sub
½Æ»s¥N½X ¦ý§Ú¥Î- Private Sub Workbook_Open()
- Call fsc
-
- End Sub
½Æ»s¥N½X ®É
¦]XLTÁÙ¥¼¦³Ë¤J¸ê®Æ°µ§ä´M¾ÉP°õ¦æµL®Ä
½Ð°Ý¦³¨S¦³¥i¯àÀË´ú¨ì
ˤJ¸ê®Æ«á
¦A°õ¦æ¬ÛÃöSUB?
(ÀË´ú¤º®eªø«×¨C¦¸¤]¤£¤@¼Ë)
ÁÂÁÂ! |
|