happycoccolin

回復 50# stillfish00


    謝S大的超快速解答~

我來多跑幾個檔案試試看~

目前有一段會有問題 我再多RUN幾個檔案看格式哪邊有不同~

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

謝Stillfish00大~^________^

happycoccolin

回復 50# stillfish00


    S大~~我想加入這兩行~但是一直有錯可以幫忙看一下嗎~~~謝謝~~~~
With Workbooks.Add
       With .Sheets(1)
      .Font.Name = "Tahoma"  '字體名稱
      .Font.Size = 10 '字體大小
       End With
End With

stillfish00

回復 52# happycoccolin
要給儲存格範圍，如
With Workbooks.Add
       With .Sheets(1)
          .[A1:H1].Font.Name = "Tahoma"  '字體名稱
          .[A1:H1].Font.Size = 10 '字體大小
       End With
End With

happycoccolin

回復 53# stillfish00


    瞭解了~~~~S大~^_____^

那若是整個sheet都要設定可以怎麼改~

我現在是這樣寫

      .[A1:AV10000].Font.Name = "Tahoma"  '字體名稱
      .[A1:AV10000].Font.Size = 10 '字體大小

stillfish00

回復 54# happycoccolin
.Cells 就代表工作表中的所有儲存格了

1. With Workbooks.Add
   
2.        With .Sheets(1).Cells
   
3.           .Font.Name = "Tahoma"  '字體名稱
   
4.           .Font.Size = 10 '字體大小
   
5.        End With
   
6. End With

複製代碼

happycoccolin

回復 55# stillfish00


    謝謝S大~~~~~~~~~^^

只是若要跟程式結合我還是有問題~~~@@

加錯地方整個程式RUN出來是空白的.........

  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"  '字體名稱
      .[A1:AV10000].Font.Size = 10 '字體大小
      
    End With