1234
返回列表 上一主題 發帖

[發問] 請問VBA可以做到兩檔案比對後再產生另一檔案的比對結果嗎?

happycoccolin
　暱稱: NANAKO

中學生Rank: 2

帖子
72 
主題
7 
精華
0 
積分
88 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-28 
最後登錄
2018-11-14 
31# 跳轉到 »
發表於 2013-8-16 14:04 | 顯示全部帖子
回復 50# stillfish00


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

TOP

happycoccolin
　暱稱: NANAKO

中學生Rank: 2

帖子
72 
主題
7 
精華
0 
積分
88 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-28 
最後登錄
2018-11-14 
32#
發表於 2013-8-16 15:13 | 顯示全部帖子
回復 53# stillfish00


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

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

我現在是這樣寫

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

TOP

happycoccolin
　暱稱: NANAKO

中學生Rank: 2

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

TOP

        靜思自在 : 多做多得。少做多失。
1234
返回列表 上一主題