ªð¦^¦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¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD