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

[µo°Ý] ½Ð°ÝVBA¥i¥H°µ¨ì¨âÀɮפñ¹ï«á¦A²£¥Í¥t¤@Àɮתº¤ñ¹ïµ²ªG¶Ü?

¦^´_ 50# stillfish00


    ÁÂS¤jªº¶W§Ö³t¸Ñµª~

§Ú¨Ó¦h¶]´X­ÓÀɮ׸ոլÝ~

¥Ø«e¦³¤@¬q·|¦³°ÝÃD §Ú¦A¦hRUN´X­ÓÀɮ׬ݮ榡­þÃ䦳¤£¦P~

.Cells(1, cIndexNew(i)).Resize(r).Value = Application.WorksheetFunction.Index(ar, 0, cIndexOld(i))

ÁÂStillfish00¤j~^________^

TOP

¦^´_ 50# stillfish00


    S¤j~~§Ú·Q¥[¤J³o¨â¦æ~¦ý¬O¤@ª½¦³¿ù¥i¥HÀ°¦£¬Ý¤@¤U¶Ü~~~ÁÂÁÂ~~~~
With Workbooks.Add
       With .Sheets(1)
      .Font.Name = "Tahoma"  '¦rÅé¦WºÙ
      .Font.Size = 10 '¦rÅé¤j¤p
       End With
End With

TOP

¦^´_ 52# happycoccolin
­nµ¹Àx¦s®æ½d³ò¡A¦p
With Workbooks.Add
       With .Sheets(1)
          .[A1:H1].Font.Name = "Tahoma"  '¦rÅé¦WºÙ
          .[A1:H1].Font.Size = 10 '¦rÅé¤j¤p
       End With
End With

TOP

¦^´_ 53# stillfish00


    ÁA¸Ñ¤F~~~~S¤j~^_____^

¨º­Y¬O¾ã­Ósheet³£­n³]©w¥i¥H«ç»ò§ï~

§Ú²{¦b¬O³o¼Ë¼g

      .[A1:AV10000].Font.Name = "Tahoma"  '¦rÅé¦WºÙ
      .[A1:AV10000].Font.Size = 10 '¦rÅé¤j¤p

TOP

¦^´_ 54# happycoccolin
.Cells ´N¥Nªí¤u§@ªí¤¤ªº©Ò¦³Àx¦s®æ¤F
  1. With Workbooks.Add
  2.        With .Sheets(1).Cells
  3.           .Font.Name = "Tahoma"  '¦rÅé¦WºÙ
  4.           .Font.Size = 10 '¦rÅé¤j¤p
  5.        End With
  6. End With
½Æ»s¥N½X

TOP

¦^´_ 55# stillfish00


    ÁÂÁÂS¤j~~~~~~~~~^^

¥u¬O­Y­n¸òµ{¦¡µ²¦X§ÚÁÙ¬O¦³°ÝÃD~~~@@

¥[¿ù¦a¤è¾ã­Óµ{¦¡RUN¥X¨Ó¬OªÅ¥Õªº.........

  r = UBound(ar)
  With Workbooks.Add
       With .Sheets(1)
      For i = LBound(cIndexOld) To UBound(cIndexOld)
        .Cells(1, cIndexNew(i)).Resize(r).Value = Application.WorksheetFunction.Index(ar, 0, cIndexOld(i))
      Next
      .[A1].Resize(, UBound(arNewHeader) + 1).Value = arNewHeader
      .[A1:AV10000].Font.Name = "Arial"  '¦rÅé¦WºÙ
      .[A1:AV10000].Font.Size = 10 '¦rÅé¤j¤p
      
    End With

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD