alex06695

我在使用的時候，似乎有發現這版本有一個BUG

KEY傳票的時候，系統會自動判斷該張是現金支出傳票或現金收入傳票
這功能的判斷是相反的。

還請版大大協助確認，是否有這樣的問題

准提部林

回復 11# alex06695

謝謝提醒這重要的bug，公式少算了１位，改了／／附件已更新：
若已使用中，可自行更改／／
按 Ctrl+z, 解開保護，在〔會計傳票〕工作表H4儲存格修改如下／／
=CHOOSE(MAX(bType+1,1),"會計傳票","現金收入傳票","現金支出傳票","轉帳傳票")

alex06695

回復 12# 准提部林

感謝大大回復
這EXCEL真的對我們的工作幫助很大

萬分感謝

apple0900123456

感謝准大的無私分享，這檔案對小弟非常有幫助，感恩准大了！

Ninayu

請問准提部林大大~
請問儲存檔案時出現本檔案目前執行的磁碟路徑無法儲存的檔案的原因是什麼?

准提部林

回復 15# Ninayu

檔案限放在:
1. 卸除式磁碟
2. 本機磁碟
3. 區網磁碟
且可讀寫~~

去看看
Sub 共用_檢測磁碟() 的程式內容
...有必要自行修改

Ninayu

回復 16# 准提部林


   已經可以儲存,感恩~

nicole1012

請問一下,總分類帳的副檔名,都會自動儲存成xls
打開分類帳因為是xls格式
都會顯示檔案格式與副檔名不相符,........
手動改成xlsx就不會打開時顯示警告訊息

是否可跟日記帳一樣,自動儲存為xlsx格式,謝謝

Scott090

回復 1# 准提部林


     感謝版大如此無私的貢獻共享。
     請教我，
      會計附表各個會計科目的資料與日記帳或會計傳票間資料之VBA的自動連結

Scott090

回復 1# 准提部林
      請版大指導

回復 18# nicole1012    
   參考看看, 把 & ".xls" 改為  & aVerXLS
   找到  Sub 總分類帳_製作()
                 
                             If MsgBox("※〔總分類帳〕製作內容： " & Chr(10) & Chr(10) & _
          "■檔案名稱 ： " & eFileName & ".xls"  & Chr(10) & Chr(10) & _   

                 .
               '製作完成的分類帳儲存成 xls    .
               LinkBook.SaveAs AccBook.Path & "\" & eFileName & ".xls": beep
              MsgBox "《總分類帳》製作完成　　"

           1. End Sub

    修改成下列
  Sub 總分類帳_製作()
.
.     If MsgBox("※〔總分類帳〕製作內容： " & Chr(10) & Chr(10) & _
          "■檔案名稱 ： " & eFileName & aVerXLS & Chr(10) & Chr(10) & _
    .

.    '取得工作黨內清單設定版本設定
        LinkBook.SaveAs AccBook.Path & "\" & eFileName & aVerXLS: beep
    MsgBox "《總分類帳》製作完成　　"
   .
. 1:End Sub