ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ©ó¥~³¡µ{¦¡Export¨ìExcel .XLT«á¦A¦Û°Ê°õ¦æ¥t¤@­Ó¦Û¨îSUB

[µ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
  1. Sub fsc()

  2. Dim m As Long

  3. For m = 15 To [a65536].End(4).Row
  4. r1 = LCase(Left(Cells(m, 4), 3))

  5. If r1 = "FSC" Then

  6. [b6].FormulaR1C1 = "FSC"

  7. End If

  8. Next m

  9. End Sub
½Æ»s¥N½X
¦ý§Ú¥Î
  1. Private Sub Workbook_Open()

  2.      Call fsc

  3. End Sub
½Æ»s¥N½X
®É
¦]XLTÁÙ¥¼¦³­Ë¤J¸ê®Æ°µ§ä´M¾É­P°õ¦æµL®Ä

½Ð°Ý¦³¨S¦³¥i¯àÀË´ú¨ì
­Ë¤J¸ê®Æ«á
¦A°õ¦æ¬ÛÃöSUB?

(ÀË´ú¤º®eªø«×¨C¦¸¤]¤£¤@¼Ë)

ÁÂÁÂ!

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD