請問VBA可以做到兩檔案比對後再產生另一檔案的比對結果嗎? - Excel程式區

　暱稱: NANAKO

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

51^# 跳轉到 »

發表於 2013-8-16 12:12 | 只看該作者

回復 50# stillfish00

謝S大的超快速解答~

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

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

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

謝Stillfish00大~^________^

　暱稱: NANAKO

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

52^#

發表於 2013-8-16 14:04 | 只看該作者

回復 50# stillfish00

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

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

53^#

發表於 2013-8-16 14:39 | 只看該作者

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

　暱稱: NANAKO

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

54^#

發表於 2013-8-16 15:13 | 只看該作者

回復 53# stillfish00

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

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

我現在是這樣寫

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

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

55^#

發表於 2013-8-16 15:23 | 只看該作者

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

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

複製代碼

　暱稱: NANAKO

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

56^#

發表於 2013-8-16 15:36 | 只看該作者

回復 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