Rem =========================================================== 1 Rem =========================================================== Rem A_Messages_OOoBasic Program (Copyright:Shuichi Sunaga) 2 Rem A_Messages_Excel VBA Program (Copyright:Shuichi Sunaga) Rem (2004/10/26:329 行 )StopOrGoの整理(2006/04/20) 3 Rem Rem 行毎整合性の中断 (2006/04/25:388 行 )(2009/01/28:812 行 )(2011/07/01:775 行 ) 4 Rem Rem (2012/05/09:703 行 ) 5 Rem (2012/07/07:384 行 ) Rem =========================================================== 6 Rem =========================================================== Rem Sub VeriFromWS() 7 Rem Sub VeriFromWS() Rem Sub VeriLN_Click() 'WSにつき行毎計算チェック実行 8 Rem Sub VeriLN_Click() 'WSにつき行毎計算チェック実行 Rem Sub VeriByWS(ByVal StrtRow&) ' シート毎計算チェック 9 Rem Sub VeriByWS(ByVal StrtRow&) ' シート毎計算チェック Rem Sub getlndt(byval irow&) 10 Rem Sub getlndt(byval irow&) Rem Sub VeriLnDT%(ByVal lgross&, lctax&, lamount&) as boolean 11 Rem Sub VeriLnDT%(ByVal lgross&, lctax&, lamount&) as boolean Rem Sub PUMsg(EndExit$) 12 Rem Sub PUMsg(EndExit$) Rem Sub MsgShow(MsgHead$) 13 Rem Sub MsgShow(MsgHead$) Rem Function StopOrGo(ByVal swhat$) as boolean 14 Rem Function StopOrGo(ByVal swhat$) as boolean Rem =========================================================== 15 Rem =========================================================== Option Explicit 16 Option Explicit Sub VeriFromWS() 17 Sub VeriFromWS() IntroTo3D() 18 If Not StopOrGo("VeriLN") then 19 IntroTo3D MsgTxt$ = chr(&h3053) & chr(&h306e)& asname$ & chr(&h30b7)&chr(&h30fc) 20 If Not StopOrGo("VeriLN") then MsgTxt$ = MsgTxt$ &chr(&h30c8)&chr(&h3067)&chr(&h306f)&chr(&h884c) 21 MsgTxt$ = MsgTxt$ &chr(&h6bce)&chr(&h6574)&chr(&h5408)&chr(&h6027) 22 MsgTxt$ = MsgTxt$ &chr(&h30c1)&chr(&h30a7)&chr(&h30c3)&chr(&h30af) 23 MsgTxt$ = MsgTxt$ &chr(&h30b3)&chr(&h30de)&chr(&h30f3)&chr(&h30c9) 24 MsgTxt$ = MsgTxt$ &chr(&h306f)&chr(&h4f7f)&chr(&h3048)&chr(&h307e) 25 MsgTxt$ = MsgTxt$ &chr(&h305b)&chr(&h3093)&chr(&h3002) 26 Rem このaSName$ シートでは行整合性チェックコマンドは使えません 27 MsgTxt$ = この &asname$& シートでは行整合性チェックコマンドは使えません MsgTtl$ = chr(&h30b7)&chr(&h30fc)&chr(&h30c8)&chr(&h30c1)&chr(&h30a7) 28 MsgTtl$ = MsgTtl$ &chr(&h30c3)&chr(&h30af) 29 Rem シートチェック 30 MsgTtl$ = シートチェック msgbox(msgtxt$, 16, MsgTtl$) 31 resp% = MsgBox(MsgTxt$, 16, MsgTtl$) End 32 End End If 33 End If asname$=acontroller.activesheet.getname() 34 asname$=activesheet.name getpageplan asname$, cmonth% Rem getpageplan(asna 35 getpageplan asname$, cmonth% Rem getpagep VeriByWS SelectionRow, 276 36 VeriByWS SelectionRow, 276 End Sub 37 End Sub Sub VeriByWS(ByVal StrtRow&, ByVal rqst$) Remシート毎計算チェック 38 Sub VeriByWS(ByVal StrtRow&, ByVal rqst$) ' シート毎計算チェック dim VeriLN% 39 dim VeriLN% dim kgross&, lgross&, lctax&, lamount& 40 dim kgross&, lgross&, lctax&, lamount& MakeAcctList(WkBS, WkPL) 41 MakeAcctList WkBS, WkPL Rem oawdlg.getcontrol("g_svl").text = "Go" 42 Rem oawdlg.getcontrol("g_svl").text = "Go" asheet.unprotect("pwd") 43 ActiveSheet.Unprotect ("pwd") VeriLN% = StrtRow& 44 VeriLN% = StrtRow& Do while VeriLN% < dbmonthbtm& + 1 Changed from +2 to +1 45 Do while VeriLN% < dbmonthbtm& + 1 If oawdlg.getcontrol("g_svl").text = "Stop" then 46 Rem If oawdlg.g_svl.value = "Stop" then SelectCell VeriLN%-2, Col_Amount% 47 Rem SelectCell VeriLN%-2, Col_Amount% oawdlg.getcontrol("g_svl").text = "Go" 48 Rem oawdlg.g_svl.value = "Go" end 49 Rem end End If 50 Rem End If SelectCell VeriLN%, Col_Amount% 51 SelectCell VeriLN%, Col_Amount% getlndt(veriln%) 52 getlndt(veriln%) kgross& = 0 53 kgross& = 0 lamount& = myval(lndt$(col_amount%)) 54 lamount& = myval(lndt$(col_amount%)) Select Case asname$ 55 Select Case asname$ Case "BK" 56 Case "BK" kgross& = myval(lndt$(col_gross% - 1)) 57 kgross& = myval(lndt$(col_gross% - 1)) lgross& = myval(lndt$(col_gross%)) 58 lgross& = myval(lndt$(col_gross%)) If Col_CXCr% < Col_Border% then 59 If Col_CXCr% < Col_Border% then lctax& = myval(lndt$(col_cxcr%)) + myval(lndt$(col_cxdr%)) 60 lctax& = myval(lndt$(col_cxcr%)) + myval(lndt$(col_cxdr%)) Else 61 Else
lctax& = myval(lndt$(col_cxdr%)) 62 lctax& = myval(lndt$(col_cxdr%)) End If 63 End If Case "JV" 64 Case "JV" lgross& = myval(lndt$(col_gross%)) 65 lgross& = myval(lndt$(col_gross%)) If Col_CXCr% < Col_Border% then 66 If Col_CXCr% < Col_Border% then lctax& = myval(lndt$(col_cxcr%)) + myval(lndt$(col_cxdr%)) 67 lctax& = myval(lndt$(col_cxcr%)) + myval(lndt$(col_cxdr%)) Else 68 Else lctax& = myval(lndt$(col_cxdr%)) 69 lctax& = myval(lndt$(col_cxdr%)) End If 70 End If Case "AP" 71 Case "AP" lgross& = myval(lndt$(col_gross%)) 72 lgross& = myval(lndt$(col_gross%)) lctax& = myval(lndt$(col_cxdr%)) 73 lctax& = myval(lndt$(col_cxdr%)) Case "AR" 74 Case "AR" lgross& = myval(lndt$(col_gross%)) 75 lgross& = myval(lndt$(col_gross%)) lctax& = myval(lndt$(col_cxcr%)) 76 lctax& = myval(lndt$(col_cxcr%)) Case "MW" 77 Case "MW" lgross& = myval(lndt$(col_gross%)) 78 lgross& = myval(lndt$(col_gross%)) lctax& = 0 79 lctax& = 0 End Select 80 End Select If VeriLnDT%(-kGross&+lGross&, lctax&, lamount&) = 7 then Rem(6: はい 7: いいえ ) 81 If VeriLnDT%(-kGross&+lGross&, lctax&, lamount&) = 7 then '(6: はい 7: いいえ ) End 82 End End If 83 End If VeriLN% = VeriLN% + 1 84 VeriLN% = VeriLN% + 1 If asname$= "AP" or asname$ = "AR" or asname$ = "MW" Then 85 If asname$= "AP" or asname$ = "AR" or asname$ = "MW" Then Do While asheet.getcellbyposition(1, VeriLN%-1).Rows.IsVisible = False And VeriLN% < dbmonthb 86 Do While asheet.rows(veriln%).hidden = True And VeriLN% < dbmonthbtm& VeriLN% = VeriLN% + 1 87 VeriLN% = VeriLN% + 1 Loop 88 Loop End If 89 End If Loop 90 Loop If rqst$ = "WsCalc" then 91 If rqst$ = "WsCalc" then MsgTxt$ = chr(&h3082)&chr(&h3046)&chr(&h4e00)&chr(&h5ea6)&chr(&h3001) 92 MsgTxt$ = MsgTxt$ &chr(&h8ca1)&chr(&h8868)&chr(&h4f5c)&chr(&h6210) 93 MsgTxt$ = MsgTxt$ &chr(&h3092)&chr(&h5b9f)&chr(&h884c)&chr(&h3057) 94 MsgTxt$ = MsgTxt$ &chr(&h3066)&chr(&h4e0b)&chr(&h3055)&chr(&h3044) 95 MsgTxt$ = MsgTxt$ &chr(&h3002) 96 MsgTxt$ = " もう一度 財表作成を実行して下さい " MsgTtl$ = chr(&h884c)&chr(&h6bce)&chr(&h6574)&chr(&h5408)&chr(&h6027) 97 MsgTtl$ = MsgTtl$ &chr(&h30c1)&chr(&h30a7)&chr(&h30c3)&chr(&h30af) 98 MsgTtl$ = MsgTtl$ &chr(&h7d42)&chr(&h4e86) 99 MsgTtl$ = " 行毎整合性チェック終了 " Rem MsgBox(" もう一度 財表作成を実行して下さい ", 0, " 行毎整合性チェック終了 ") 100 resp% = MsgBox(MsgTxt$, 0, MsgTtl$) 101 resp% = MsgBox(MsgTxt$, 0, MsgTtl$) End If 102 End If asheet.protect("pwd") 103 ActiveSheet.Protect ("pwd") End Sub 104 End Sub Sub getlndt(byval irow&) 105 Sub getlndt(byval irow&) dim i% 106 dim i% For i% = 1 to Col_Border% 107 For i% = 1 to Col_Border% LnDT$(i%) = CellString(aSheet, irow&, i%) 108 LnDT$(i%) = CellString(aSheet, irow&, i%) Next i% 109 Next i% End Sub 110 End Sub Function VeriLnDT%(ByVal lgross&, lctax&, lamount&) 111 Function VeriLnDT%(ByVal lgross&, lctax&, lamount&) dim orange as object 112 dim orange as Range dim CTXMult as double 113 dim CTXMult as double dim taxcd$, MsgAdd$, WkAcct$, cbkcd$, sactcd$, funccd1$, funccd2$ 114 dim taxcd$, MsgAdd$, WkAcct$, cbkcd$, sactcd$, funccd1$, funccd2$ dim i%, verirow&, AcctIndex%, iqrow&, lfxrate% 115 dim i%, verirow&, AcctIndex%, iqrow&, lfxrate% dim nbkcd&, gbkbal&, lbkbal&, lqty as Double, lunit as Double 116 dim nbkcd&, gbkbal&, lbkbal&, lqty as Double, lunit as Double verirow& = SelectionRow() 117 verirow& = SelectionRow VeriLnDT% = 6 Rem (6: はい 7: いいえ ) 118 VeriLnDT% = 6 '(6: はい 7: いいえ ) taxcd$ = Acct2Txcd(LnDT$(Col_ActCD%)) 119 taxcd$ = Acct2Txcd(LnDT$(Col_ActCD)) MsgAdd$ = Chr(13) & chr(&h30c1)&chr(&h30a7)&chr(&h30c3)&chr(&h30af) 120 MsgAdd$ = MsgAdd$ &chr(&h3092)&chr(&h7d99)&chr(&h7d9a)&chr(&h3057) 121 MsgAdd$ = MsgAdd$ &chr(&h307e)&chr(&h3059)&chr(&h304b)& "?" Remチェックを継続しますか?" 122 MsgAdd$ = Chr(13) & " チェックを継続しますか?"
Rem --------------------- 1 ( 勘定コードの検証 )-------------------------- 123 Rem --------------------- 1 ( 勘定コードの検証 )-------------------------- WkAcct$ = FillSpace(Len(LnDT$(Col_ActCD%))) & LnDT$(Col_ActCD%) 124 WkAcct$ = FillSpace(Len(LnDT$(Col_ActCD))) & LnDT$(Col_ActCD) AcctIndex% = IndexInACT(WkAcct$) 125 AcctIndex% = IndexInACT(WkAcct$) Set orange = asheet.getcellbyposition( Col_ActCD%-1, verirow&-1) 126 Set orange = asheet.cells(verirow&, Col_ActCD%) If AcctIndex% > -1 then 'WkAcctが登録済の勘定である場合 127 If AcctIndex% > -1 then 'WkAcctが登録済の勘定である場合 if orange.cellbackcolor <> -1 then 128 If orange.interior.color <> RGB(255,255,255) Then orange.cellbackcolor = -1 129 orange.interior.color = RGB(255,255,255) end if 130 end if Else 131 Else if verirow& > 2 then 132 if verirow& > 2 then If Len(LnDT$(Col_ActCD%)) <> 0 Then 133 If Len(LnDT$(Col_ActCD)) <> 0 Then orange.cellbackcolor = RGB(221,160,221) 'Purple 134 orange.interior.color = RGB(221,160,221) 'Purple MsgTxt$ = "BS/PL" &chr(&h306b)&chr(&h8a2d)&chr(&h5b9a) 135 MsgTxt$ = MsgTxt$ &chr(&h3055)&chr(&h308c)&chr(&h3066) 136 MsgTxt$ = MsgTxt$ &chr(&h3044)&chr(&h306a)&chr(&h3044) 137 MsgTxt$ = MsgTxt$ &chr(&h52d8)&chr(&h5b9a)&chr(&h30b3) 138 MsgTxt$ = MsgTxt$ &chr(&h30fc)&chr(&h30c9)&chr(&h3067) 139 MsgTxt$ = MsgTxt$ &chr(&h3059)&chr(&h3002) Remに設定されていない勘定コードです " 140 MsgTxt$ = BS/PLに設定されていない勘定コードです " MsgTtl$ = chr(&h52d8)&chr(&h5b9a)&chr(&h30b3)&chr(&h30fc) 141 MsgTtl$ = MsgTtl$ &chr(&h30c9)&chr(&h30c1)&chr(&h30a7) 142 MsgTtl$ = MsgTtl$ &chr(&h30c3)&chr(&h30af) 143 Rem 勘定コードチェック 144 MsgTtl$ = 勘定コードチェック VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) 145 VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) Exit Function 146 Exit Function Else Rem Null Account Code 147 Else Rem Null Account Code if asname$ = "BK" then 148 if asname$ = "BK" then Set orange = asheet.getcellbyposition(col_cxdr%-1, verirow&-1) 149 Set orange = asheet.cells(verirow&, Col_CXDr%) If ABS(lCTax&) <> 0 then 150 If ABS(lCTax&) <> 0 then orange.cellbackcolor=rgb(211,211,211) 'Light Grey 151 orange.interior.color = RGB(211,211,211) 'Light Grey MsgShow(" 消費税 ") 152 MsgShow " 消費税 " end 153 end End If 154 End If end If 155 end If End If 156 End If end if 157 end if End If 158 End If Rem --------------------- 2 ( 消費税額の検証 )--------------------------- 159 Rem --------------------- 2 ( 消費税額の検証 )--------------------------- If asname$ <> "MW" then 160 If asname$ <> "MW" then Set orange = asheet.getcellbyposition(col_cxdr%-1, verirow&-1) 161 Set orange = asheet.cells(verirow&, Col_CXDr%) CTXMult = CTXRate/(100 + CTXRate) 162 CTXMult = CTXRate/(100 + CTXRate) if ABS(lGross&) * CTXMult - ABS(lCTax&) < 1 then 163 if ABS(lGross&) * CTXMult - ABS(lCTax&) < 1 then If taxcd$ = "S" or taxcd$ = "T" then 164 If taxcd$ = "S" or taxcd$ = "T" then orange.cellbackcolor=-1 165 Orange.Interior.Color = RGB(255,255,255) Else 166 Else orange.cellbackcolor=rgb(211,211,211) 'Light Grey 167 orange.interior.color = RGB(211,211,211) 'Light Grey End If 168 End If elseif lctax& = 0 then 169 elseif lctax& = 0 then If taxcd$ = "S" or taxcd$ = "T" then 170 If taxcd$ = "S" or taxcd$ = "T" then orange.cellbackcolor=rgb(211,211,211) 'Light Grey 171 orange.interior.color = RGB(211,211,211) 'Light Grey Else 172 Else orange.cellbackcolor= -1 173 Orange.Interior.Color = RGB(255,255,255) End If 174 End If else 175 else orange.cellbackcolor=rgb(211,211,211) 'Light Grey 176 orange.interior.color = RGB(211,211,211) 'Light Grey end If 177 end If End If 178 End If Rem --------------------- 3 ( 仕訳金額の検証 )--------------------------- 179 Rem --------------------- 3 ( 仕訳金額の検証 )--------------------------- Set orange = asheet.getcellbyposition(col_amount%-1, verirow&-1) 180 Set orange = asheet.cells(verirow&, Col_Amount%) If asname$ <> "MW" then 181 If asname$ <> "MW" then if lgross& - lctax& - lamount& = 0 then 182 if lgross& - lctax& - lamount& = 0 then If asname$ = "BK" and CellValue(WkBK, verirow&, Col_LineNo%) <> 0 then 183 If asname$ = "BK" and CellValue(WkBK, verirow&, Col_LineNo%) <> 0 then
orange.cellbackcolor = -1 184 orange.interior.color = RGB(255,255,255) End If 185 End If else 186 else If not (asname$ = "BK" and Len(LnDT$(Col_ActCD%)) = 0) then 187 If not (asname$ = "BK" and Len(LnDT$(Col_ActCD%)) = 0) then orange.cellbackcolor=rgb(211,211,211) 'Light Grey 188 orange.interior.color = RGB(211,211,211) 'Light Grey MsgTxt$ = chr(&h7a0e)&chr(&h8fbc)&chr(&h91d1)&chr(&h984d)&chr(&hff0d) 189 MsgTxt$ = MsgTxt$ &chr(&h6d88)&chr(&h8cbb)&chr(&h7a0e)&chr(&h984d) 190 MsgTxt$ = MsgTxt$ &chr(&hff1d)&chr(&h4ed5)&chr(&h8a33)&chr(&h91d1) 191 MsgTxt$ = MsgTxt$ &chr(&h984d)&chr(&h304c)&chr(&h4e0d)&chr(&h6210) 192 MsgTxt$ = MsgTxt$ &chr(&h7acb)&chr(&h3067)&chr(&h3059)&chr(&h3002) 193 Rem 税込金額 - 消費税額 = 仕訳金額が不成立です " 194 MsgTxt$ = 税込金額 - 消費税額 = 仕訳金額が不成立です " MsgTtl$ = chr(&h884c)&chr(&h8a08)&chr(&h7b97)&chr(&h30c1) 195 MsgTtl$ = MsgTtl$ &chr(&h30a7)&chr(&h30c3)&chr(&h30af) 196 Rem 行計算チェック 197 MsgTtl$= 行計算チェック VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) 198 VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) Exit Function 199 Exit Function End If 200 End If end if 201 end if End If 202 End If Rem ------------------- 4 ( 部門配賦金額の検証 )------------------------- 203 Rem ------------------- 4 ( 部門配賦金額の検証 )------------------------- If IsMultiDP then 204 If IsMultiDP then if A_VAllocCD(val(LnDT$(Col_ActCD%))) Then 205 if A_VAllocCD(val(LnDT$(Col_ActCD%))) Then dim Tdpt& 206 dim Tdpt& Tdpt& = 0 207 Tdpt& = 0 For i% = 1 to NumDpt 208 For i% = 1 to NumDpt Tdpt& = Tdpt& + myval(lndt$(col_amount% + i%)) 209 Tdpt& = Tdpt& + myval(lndt$(col_amount% + i%)) Next i 210 Next i If lamount& = Tdpt& then 211 If lamount& = Tdpt& then orange.cellbackcolor = -1 212 orange.interior.color = RGB(255,255,255) Else 213 Else orange.cellbackcolor = RGB(211,211,211) 'Light Grey 214 orange.interior.color = RGB(211,211,211) 'Light Grey MsgTxt$ = chr(&h90e8)&chr(&h9580)&chr(&h5225)&chr(&h914d)&chr(&h8ce6) 215 MsgTxt$ = MsgTxt$ &chr(&h91d1)&chr(&h984d)&chr(&h5408)&chr(&h8a08) 216 MsgTxt$ = MsgTxt$ &chr(&h3068)&chr(&h4ed5)&chr(&h8a33)&chr(&h91d1) 217 MsgTxt$ = MsgTxt$ &chr(&h984d)&chr(&h306b)&chr(&h5dee)&chr(&h7570) 218 MsgTxt$ = MsgTxt$ &chr(&h304c)&chr(&h3042)&chr(&h308a)&chr(&h307e) 219 MsgTxt$ = MsgTxt$ &chr(&h3059)&chr(&h3002) 220 Rem 部門別配賦金額合計と仕訳金額に差異があります " 221 MsgTxt$= 部門別配賦金額合計と仕訳金額に差異があります MsgTtl$ = chr(&h90e8)&chr(&h9580)&chr(&h5225)&chr(&h914d)&chr(&h8ce6) 222 MsgTtl$ = MsgTtl$ &chr(&h91d1)&chr(&h984d)&chr(&h5408)&chr(&h8a08) 223 MsgTtl$ = MsgTtl$ &chr(&h30c1)&chr(&h30a7)&chr(&h30c3)&chr(&h30af) 224 Rem " 部門別配賦金額合計チェック " 225 MsgTtl$= 部門別配賦金額合計チェック VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) 226 VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) Exit Function 227 Exit Function End If 228 End If else 229 else ClearRange asheet, verirow&, Col_Amount%+1, verirow&, Col_Amount%+NumDpt 230 ClearRange asheet, verirow&, Col_Amount%+1, verirow&, Col_Amount%+NumDpt end if 231 end if End If 232 End If Rem --------------- 5 ( 数量 単価 = 仕訳金額の検証 )--------------------- 233 Rem --------------- 5 ( 数量 単価 = 仕訳金額の検証 )--------------------- If (asname$="ap" and AP_UQP) or (asname$="ar" and AR_UQP) Then 234 If (asname$="ap" and AP_UQP) or (asname$="ar" and AR_UQP) Then lqty=mydval(lndt$(col_gross%-2)) 235 lqty=mydval(lndt$(col_gross%-2)) lunit=mydval(lndt$(col_gross%-1)) 236 lunit=mydval(lndt$(col_gross%-1)) if ABS(lAmount& - lqty * lunit) <= 1 then 237 if ABS(lAmount& - lqty * lunit) <= 1 then orange.cellbackcolor=-1 238 orange.interior.color = RGB(255,255,255) else 239 else orange.cellbackcolor = RGB(211,211,211) 'Light Grey 240 orange.interior.color = RGB(211,211,211) 'Light Grey MsgTxt$ = chr(&h6570)&chr(&h91cf)&chr(&hff38)&chr(&h5358)&chr(&h4fa1)&chr(&hff1d) 241 MsgTxt$ = MsgTxt$ &chr(&h4ed5)&chr(&h8a33)&chr(&h91d1)&chr(&h984d) 242 MsgTxt$ = MsgTxt$ &chr(&h304c)&chr(&h4e0d)&chr(&h6210)&chr(&h7acb) 243 MsgTxt$ = MsgTxt$ &chr(&h3067)&chr(&h3059)&chr(&h3002) 244
Rem 数量 単価 = 仕訳金額が不成立です " 245 MsgTxt$= 数量 単価 = 仕訳金額が不成立です MsgTtl$ = chr(&h6570)&chr(&h91cf)& "X" &chr(&h5358)&chr(&h4fa1)&chr(&h8a08) 246 MsgTtl$ = MsgTtl$ &chr(&h7b97)&chr(&h30c1)&chr(&h30a7)&chr(&h30c3)&chr(&h30af) 247 Rem 数量 単価計算チェック 248 MsgTtl$= 数量 単価計算チェック VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) 249 VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) Exit Function 250 Exit Function end if 251 end if End If 252 End If Rem --------------- 6 ( 外貨 為替レート= 仕訳金額の検証 )------------------ 253 Rem --------------- 6 ( 外貨 為替レート= 仕訳金額の検証 )------------------ If asname$="mw" and MW_UQP Then 254 If asname$="mw" and MW_UQP Then lgross&=cellvalue(asheet, verirow&, Col_Gross%)*100 255 lgross&=cellvalue(asheet, verirow&, Col_Gross%)*100 lfxrate%=cellvalue(asheet, verirow&, Col_PaidMo%-1)*100 256 lfxrate%=cellvalue(asheet, verirow&, Col_PaidMo%-1)*100 if ABS(lAmount& - lgross& * lfxrate/10000) <= 1 then 257 if ABS(lAmount& - lgross& * lfxrate/10000) <= 1 then orange.cellbackcolor = -1 258 orange.interior.colorindex = RGB(255,255,255) else 259 else orange.cellbackcolor = RGB(211,211,211) 'Light Grey 260 orange.interior.color = RGB(211,211,211) 'Light Grey MsgTxt$ = chr(&h5916)&chr(&h8ca8)&chr(&hff38)&chr(&h70ba)&chr(&h66ff)&chr(&h30ec) 261 MsgTxt$ = MsgTxt$ &chr(&h30fc)&chr(&h30c8)&chr(&hff1d)&chr(&h4ed5) 262 MsgTxt$ = MsgTxt$ &chr(&h8a33)&chr(&h91d1)&chr(&h984d)&chr(&h304c) 263 MsgTxt$ = MsgTxt$ &chr(&h4e0d)&chr(&h6210)&chr(&h7acb)&chr(&h3067) 264 MsgTxt$ = MsgTxt$ &chr(&h3059)&chr(&h3002) 265 Rem 外貨 為替レート= 仕訳金額が不成立です " 266 MsgTxt$= 外貨 為替レート= 仕訳金額が不成立です MsgTtl$ = chr(&h5916)&chr(&h8ca8)& "X" &chr(&h70ba)&chr(&h66ff)&chr(&h30ec) 267 MsgTtl$ = MsgTtl$ &chr(&h30fc)&chr(&h30c8)&chr(&h8a08)&chr(&h7b97) 268 MsgTtl$ = MsgTtl$ &chr(&h30c1)&chr(&h30a7)&chr(&h30c3)&chr(&h30af) 269 Rem 外貨 為替レート計算チェック " 270 MsgTtl$= 外貨 為替レート計算チェック VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) 271 VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) Exit Function 272 Exit Function end if 273 end if End If 274 End If Rem --------------- 7 ( 銀行残高の計算チェック )------------------ 275 Rem --------------- 7 ( 銀行残高の計算チェック )------------------ If asname$="bk" then 276 If asname$="bk" then if CellString(aSheet, verirow&, Col_LineNo%) <> "0" then 277 if CellString(aSheet, verirow&, Col_LineNo%) <> "0" then gbkbal& = CellValue(WkBK, verirow& -1, Col_BkChg%+1) 278 gbkbal& = CellValue(WkBK, verirow& -1, Col_BkChg%+1) gbkbal& = gbkbal& + CellValue(WkBK, verirow&, Col_Gross%-1) 279 gbkbal& = gbkbal& + CellValue(WkBK, verirow&, Col_Gross%-1) gbkbal& = gbkbal& - CellValue(WkBK, verirow&, Col_Gross%) 280 gbkbal& = gbkbal& - CellValue(WkBK, verirow&, Col_Gross%) gbkbal& = gbkbal& - CellValue(WkBK, verirow&, Col_BkChg%-1) 281 gbkbal& = gbkbal& - CellValue(WkBK, verirow&, Col_BkChg%-1) gbkbal& = gbkbal& - CellValue(WkBK, verirow&, Col_BkChg%) 282 gbkbal& = gbkbal& - CellValue(WkBK, verirow&, Col_BkChg%) If CellValue(WkBK, verirow&, Col_BkChg% +1) <> gbkbal& then 283 If CellValue(WkBK, verirow&, Col_BkChg% +1) <> gbkbal& then MsgTxt$ = chr(&h3053)&chr(&h306e)&chr(&h884c)&chr(&h306e)&chr(&h9280) 284 MsgTxt$ = MsgTxt$ &chr(&h884c)&chr(&h6b8b)&chr(&h9ad8)&chr(&h306e) 285 MsgTxt$ = MsgTxt$ &chr(&h8a08)&chr(&h7b97)&chr(&h304c)&chr(&h3042) 286 MsgTxt$ = MsgTxt$ &chr(&h3063)&chr(&h3066)&chr(&h3044)&chr(&h307e) 287 MsgTxt$ = MsgTxt$ &chr(&h305b)&chr(&h3093)&chr(&h3002)& Chr(13) 288 MsgTxt$ = MsgTxt$ &chr(&h3053)&chr(&h306e)&chr(&h884c)&chr(&h306e) 289 MsgTxt$ = MsgTxt$ &chr(&h6b8b)&chr(&h9ad8)&chr(&h3092)&chr(&h8a02) 290 MsgTxt$ = MsgTxt$ &chr(&h6b63)&chr(&h3057)&chr(&h307e)&chr(&h3059)&chr(&h3002) 291 Rem この行の銀行残高の計算があっていません "& CHr(13) 292 MsgTxt$= この行の銀行残高の計算があっていません & CHr(13) Rem " この行の残高を訂正します " 293 MsgTxt$ =MsgTxt$ & " この行の残高を訂正します MsgTtl$ = "BK" & chr(&h6b8b)&chr(&h9ad8)&chr(&h7167)&chr(&h5408) 294 MsgTtl$ = MsgTtl$ &chr(&h30c1)&chr(&h30a7)&chr(&h30c3)&chr(&h30af) 295 Rem "BK 残高照合チェック " 296 MsgTtl$= BK 残高照合チェック MsgBox(MsgTxt$, 16, MsgTtl$) 297 resp% = MsgBox(MsgTxt$, 16, MsgTtl$) SetCellValue WkBK, verirow&, Col_BkChg% +1, gbkbal& 298 SetCellValue WkBK, verirow&, Col_BkChg% +1, gbkbal& MsgTxt$ = chr(&h6b8b)&chr(&h9ad8)&chr(&h8a02)&chr(&h6b63)&chr(&h304c) 299 MsgTxt$ = MsgTxt$ &chr(&h7d42)&chr(&h308f)&chr(&h308a)&chr(&h307e) 300 MsgTxt$ = MsgTxt$ &chr(&h3057)&chr(&h305f)&chr(&h3002) 301 Rem 残高訂正が終わりました 302 MsgTxt$= 残高訂正が終わりました MsgTtl$ = chr(&h9280)&chr(&h884c)&chr(&h6b8b)&chr(&h9ad8)&chr(&h8a08) 303 MsgTtl$ = MsgTtl$ &chr(&h7b97)&chr(&h30c1)&chr(&h30a7)&chr(&h30c3)&chr(&h30af) 304 Rem 銀行残高計算チェック 305 MsgTtl$= 銀行残高計算チェック
VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) 306 VeriLnDT% = MsgBox(MsgTxt$ &MsgAdd$, 276, MsgTtl$) Exit Function 307 Exit Function End If 308 End If end if 309 end if End If 310 End If Rem --------------- 8 ( 銀行残高のGLとの照合 )------------------ 311 Rem --------------- 8 ( 銀行残高のGLとの照合 )------------------ If asname$="bk" then 312 If asname$="bk" then cbkcd = LnDT$(Col_BKCD%) 313 cbkcd = LnDT$(Col_BKCD%) nbkcd = CellValue(WkBK, verirow&+1,col_bkcd%) 314 nbkcd = CellValue(WkBK, verirow&+1,col_bkcd%) if Val(cBKCD) <> nbkcd then 315 if Val(cBKCD) <> nbkcd then iqrow& = getfsrow%(wkbs, CStr(cBKCD), ActCol) 316 iqrow& = getfsrow%(wkbs, CStr(cBKCD), ActCol) gbkbal& = CellValue(WkBS, iqrow&, CFCol) 317 gbkbal& = CellValue(WkBS, iqrow&, CFCol) lbkbal& = CellValue(WkBK, verirow&, Col_BKChg% +1) 318 lbkbal& = CellValue(WkBK, verirow&, Col_BKChg% +1) If gbkbal& <> lbkbal& then 319 If gbkbal& <> lbkbal& then MsgTxt$ = CStr(cBKCD) & ">" & CellString(WkBS, iqrow&, 4) &chr(&h306b) 320 MsgTxt$ = CStr(cBKCD) & ">" & CellString(WkBS, iqrow&, 4) & について &Chr(13) MsgTxt$ = MsgTxt$ &chr(&h3064)&chr(&h3044)&chr(&h3066)&chr(&h3001) &Chr(13) 321 MsgTxt$ = MsgTxt$ & "BK" &chr(&h30b7)&chr(&h30fc)&chr(&h30c8)&chr(&h6b8b) 322 MsgTxt$ = MsgTxt$ &chr(&h9ad8)&chr(&hff1d)& "BS" &chr(&h30b7)&chr(&h30fc) 323 MsgTxt$ = MsgTxt$ &chr(&h30c8)&chr(&h6b8b)&chr(&h9ad8)&chr(&h304c) 324 MsgTxt$ = MsgTxt$ &chr(&h4e0d)&chr(&h6210)&chr(&h7acb)&chr(&h3067) 325 MsgTxt$ = MsgTxt$ &chr(&h3059)&chr(&h3002) &Chr(13) 326 MsgTxt$ = MsgTxt$ &chr(&h3053)&chr(&h306e)&chr(&h9280)&chr(&h884c) 327 MsgTxt$ = MsgTxt$ &chr(&h53e3)&chr(&h5ea7)&chr(&h306e)&chr(&h5148) 328 MsgTxt$ = MsgTxt$ &chr(&h982d)&chr(&h304b)&chr(&h3089)&chr(&h884c) 329 MsgTxt$ = MsgTxt$ &chr(&h8a08)&chr(&h7b97)&chr(&h3092)&chr(&h884c) 330 MsgTxt$ = MsgTxt$ &chr(&h3063)&chr(&h305f)&chr(&h308a)&chr(&h3001) &Chr(13) 331 MsgTxt$ = MsgTxt$ &chr(&h8ca1)&chr(&h8868)&chr(&h4f5c)&chr(&h6210) 332 MsgTxt$ = MsgTxt$ &chr(&h3092)&chr(&h5b9f)&chr(&h884c)&chr(&h3059) 333 MsgTxt$ = MsgTxt$ &chr(&h308b)&chr(&h3053)&chr(&h3068)&chr(&h304c) 334 MsgTxt$ = MsgTxt$ &chr(&h6709)&chr(&h52b9)&chr(&h3067)&chr(&h3059)&chr(&h3002) 335 Rem BKシート残高 =BSシート残高が不成立です " 336 MsgTxt$ =MsgTxt$ & Bkシート残高 =BSシート残高が不成立です Rem この銀行口座の先頭から行計算を行ったり " 337 MsgTxt$ =MsgTxt$ & この銀行口座の先頭から行計算を行ったり " & Chr(13) Rem 財表作成を実行することが有効です " 338 MsgTxt$ =MsgTxt$ & 財表作成を実行することが有効です " MsgTtl$ = chr(&h6b8b)&chr(&h9ad8)&chr(&h7167)&chr(&h5408)&chr(&h30c1) 339 MsgTtl$ = MsgTtl$ &chr(&h30a7)&chr(&h30c3)&chr(&h30af) 340 Rem BK 残高照合チェック 341 MsgTtl$ = Bk 残高照合チェック VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) 342 VeriLnDT% = MsgBox(MsgTxt$ &MsgAdd$, 276, MsgTtl$) Exit Function 343 Exit Function End If 344 End If end If 345 end If End If 346 End If Rem --------------- 9( プロジェクトコードの全角半角チェック )---------------- 347 Rem --------------- 9( プロジェクトコードの全角半角チェック )---------------- If asname$="bk" then 348 If asname$="bk" then cbkcd = LnDT$(Col_BKCD%) 349 cbkcd = LnDT$(Col_BKCD%) nbkcd = CellValue(WkBK, verirow&+1,col_bkcd%) 350 nbkcd = CellValue(WkBK, verirow&+1,col_bkcd%) if Val(cBKCD) <> nbkcd then 351 if Val(cBKCD) <> nbkcd then iqrow& = getfsrow%(wkbs, CStr(cBKCD), ActCol) 352 iqrow& = getfsrow%(wkbs, CStr(cBKCD), ActCol) gbkbal& = CellValue(WkBS, iqrow&, CFCol) 353 gbkbal& = CellValue(WkBS, iqrow&, CFCol) lbkbal& = CellValue(WkBK, verirow&, Col_BKChg% + 1) 354 lbkbal& = CellValue(WkBK, verirow&, Col_BKChg% + 1) If gbkbal& <> lbkbal& then 355 If gbkbal& <> lbkbal& then MsgTxt$ = CStr(cBKCD) & ">" & CellString(WkBS, iqrow&, 4) &chr(&h306b) 356 MsgTxt$ = CStr(cBKCD) & ">" & CellString(WkBS, iqrow&, 4) & について &Chr(13) MsgTxt$ = MsgTxt$ &chr(&h3064)&chr(&h3044)&chr(&h3066)&chr(&h3001) &Chr(13) 357 MsgTxt$ = MsgTxt$ & "BK" &chr(&h30b7)&chr(&h30fc)&chr(&h30c8)&chr(&h6b8b) 358 MsgTxt$ = MsgTxt$ &chr(&h9ad8)&chr(&hff1d)& "BS" &chr(&h30b7)&chr(&h30fc) 359 MsgTxt$ = MsgTxt$ &chr(&h30c8)&chr(&h6b8b)&chr(&h9ad8)&chr(&h304c) 360 MsgTxt$ = MsgTxt$ &chr(&h4e0d)&chr(&h6210)&chr(&h7acb)&chr(&h3067) 361 MsgTxt$ = MsgTxt$ &chr(&h3059)&chr(&h3002) &Chr(13) 362 MsgTxt$ = MsgTxt$ &chr(&h3053)&chr(&h306e)&chr(&h9280)&chr(&h884c) 363 MsgTxt$ = MsgTxt$ &chr(&h53e3)&chr(&h5ea7)&chr(&h306e)&chr(&h5148) 364 MsgTxt$ = MsgTxt$ &chr(&h982d)&chr(&h304b)&chr(&h3089)&chr(&h884c) 365 MsgTxt$ = MsgTxt$ &chr(&h8a08)&chr(&h7b97)&chr(&h3092)&chr(&h884c) 366
MsgTxt$ = MsgTxt$ &chr(&h3063)&chr(&h305f)&chr(&h308a)&chr(&h3001) &Chr(13) 367 MsgTxt$ = MsgTxt$ &chr(&h8ca1)&chr(&h8868)&chr(&h4f5c)&chr(&h6210) 368 MsgTxt$ = MsgTxt$ &chr(&h3092)&chr(&h5b9f)&chr(&h884c)&chr(&h3059) 369 MsgTxt$ = MsgTxt$ &chr(&h308b)&chr(&h3053)&chr(&h3068)&chr(&h304c) 370 MsgTxt$ = MsgTxt$ &chr(&h6709)&chr(&h52b9)&chr(&h3067)&chr(&h3059)&chr(&h3002) 371 Rem BKシート残高 =BSシート残高が不成立です " 372 MsgTxt$ =MsgTxt$ & Bkシート残高 =BSシート残高が不成立です Rem この銀行口座の先頭から行計算を行ったり " 373 MsgTxt$ =MsgTxt$ & この銀行口座の先頭から行計算を行ったり " & Chr(13) Rem 財表作成を実行することが有効です " 374 MsgTxt$ =MsgTxt$ & 財表作成を実行することが有効です " MsgTtl$ = chr(&h6b8b)&chr(&h9ad8)&chr(&h7167)&chr(&h5408)&chr(&h30c1) 375 MsgTtl$ = MsgTtl$ &chr(&h30a7)&chr(&h30c3)&chr(&h30af) 376 Rem BK 残高照合チェック 377 MsgTtl$ = Bk 残高照合チェック VeriLnDT% = MsgBox(MsgTxt$ & MsgAdd$, 276, MsgTtl$) 378 VeriLnDT% = MsgBox(MsgTxt$ &MsgAdd$, 276, MsgTtl$) Exit Function 379 Exit Function End If 380 End If end If 381 end If End If 382 End If End Function 383 End Function Sub MsgShow(ByVal MsgHead$) 384 Sub MsgShow(ByVal MsgHead$) MsgTtl$ = MsgHead$ 385 MsgTtl$ = MsgHead$ Select Case MsgHead$ 386 Select Case MsgHead$ Case "Account Code" 387 Case "Account Code" MsgTxt$ = chr(&h30de)&chr(&h30bc)&chr(&h30f3)&chr(&h30c0)&chr(&h8272)&chr(&h306b) 388 MsgTxt$ = MsgTxt$ &chr(&h5857)&chr(&h3089)&chr(&h308c)&chr(&h305f)&chr(&h79d1) 389 MsgTxt$ = MsgTxt$ &chr(&h76ee)&chr(&hff7a)&chr(&hff70)&chr(&hff84)&chr(&hff9e) 390 MsgTxt$ = MsgTxt$ &chr(&h306f)&chr(&h52d8)&chr(&h5b9a)&chr(&h79d1)&chr(&h76ee) 391 MsgTxt$ = MsgTxt$ &chr(&h8868)&chr(&h306b)&chr(&h5b58)&chr(&h5728)&chr(&h3057) 392 MsgTxt$ = MsgTxt$ &chr(&h307e)&chr(&h305b)&chr(&h3093)&chr(&h3002) & chr(13) 393 MsgTxt$ = MsgTxt$ &chr(&h6b63)&chr(&h3057)&chr(&h3044)&chr(&h79d1)&chr(&h76ee) 394 MsgTxt$ = MsgTxt$ &chr(&hff7a)&chr(&hff70)&chr(&hff84)&chr(&hff9e)&chr(&h3092) 395 MsgTxt$ = MsgTxt$ &chr(&h5165)&chr(&h529b)&chr(&h3057)&chr(&h305f)&chr(&h5f8c) 396 MsgTxt$ = MsgTxt$ &chr(&h3001) & chr(13) 397 MsgTxt$ = MsgTxt$ &chr(&h518d)&chr(&h3073)&chr(&h52d8)&chr(&h5b9a)&chr(&h79d1) 398 MsgTxt$ = MsgTxt$ &chr(&h76ee)&chr(&h30c1)&chr(&h30a7)&chr(&h30c3)&chr(&h30af) 399 MsgTxt$ = MsgTxt$ &chr(&h307e)&chr(&h305f)&chr(&h306f)&chr(&h8ca1)&chr(&h8868) 400 MsgTxt$ = MsgTxt$ &chr(&h4f5c)&chr(&h6210)&chr(&h3092)&chr(&h5b9f)&chr(&h884c) 401 MsgTxt$ = MsgTxt$ &chr(&h3057)&chr(&h3066)&chr(&h4e0b)&chr(&h3055)&chr(&h3044) 402 MsgTxt$ = MsgTxt$ &chr(&h3002) 403 Rem マゼンダ色に塗られた科目コート は勘定科目表に存在しません " & Chr$(13) 404 MsgTxt$ = " マゼンダ色に塗られた科目コート は勘定科目表に存在しません " & Chr$(13) Rem 正しい科目コート を入力した後 " & Chr$(13) 405 MsgTxt$ = MsgTxt$ & " 正しい科目コート を入力した後 " & Chr$(13) Rem 再び勘定科目チェックまたは財表作成を実行して下さい " 406 MsgTxt$ = MsgTxt$ & " 再び勘定科目チェックまたは財表作成を実行して下さい " Case "Qualified Acct" 407 Case "Qualified Acct" MsgTxt$ = chr(&h3053)&chr(&h306e)&chr(&h884c)&chr(&h306e)&chr(&h52d8) 408 MsgTxt$ = MsgTxt$ &chr(&h5b9a)&chr(&h30b3)&chr(&h30fc)&chr(&h30c9) 409 MsgTxt$ = MsgTxt$ &chr(&h304c)&chr(&h6307)&chr(&h5b9a)&chr(&h0028) 410 MsgTxt$ = MsgTxt$ &chr(&h50b5)&chr(&h6a29)&chr(&h50b5)&chr(&h52d9) 411 MsgTxt$ = MsgTxt$ &chr(&h0029)&chr(&h30b3)&chr(&h30fc)&chr(&h30c9) 412 MsgTxt$ = MsgTxt$ &chr(&h3067)&chr(&h306a)&chr(&h3044)&chr(&h306e) 413 MsgTxt$ = MsgTxt$ &chr(&h3067)&chr(&h3001)& Chr$(13) 414 MsgTxt$ = MsgTxt$ &chr(&h3053)&chr(&h306e)&chr(&h76f8)&chr(&h624b) 415 MsgTxt$ = MsgTxt$ &chr(&h5148)&chr(&h306b)&chr(&h5bfe)&chr(&h3059) 416 MsgTxt$ = MsgTxt$ &chr(&h308b)&chr(&h672a)&chr(&h6c7a)&chr(&h6e08) 417 MsgTxt$ = MsgTxt$ &chr(&h9805)&chr(&h76ee)&chr(&h3092)&chr(&h8868) 418 MsgTxt$ = MsgTxt$ &chr(&h793a)&chr(&h3067)&chr(&h304d)&chr(&h307e) 419 MsgTxt$ = MsgTxt$ &chr(&h305b)&chr(&h3093)&chr(&h3002) 420 Rem この行の勘定コードが指定 ( 債権債務 ) コードでないので " & Chr$(13) 421 MsgTxt$ = " この行の勘定コードが指定 ( 債権債務 ) コードでないので " & Chr$(13) Rem この相手先に対する未決済項目を表示できません " 422 MsgTxt$ = MsgTxt$ & " この相手先に対する未決済項目を表示できません " MsgTtl$ = chr(&h6d88)&chr(&h8fbc)&chr(&h30c4)&chr(&h30fc)&chr(&h30eb) 423 MsgTtl$ = MsgTtl$ &chr(&h30fb)&chr(&h52d8)&chr(&h5b9a)&chr(&h30b3) 424 MsgTtl$ = MsgTtl$ &chr(&h30fc)&chr(&h30c9)&chr(&h30c1)&chr(&h30a7) 425 MsgTtl$ = MsgTtl$ &chr(&h30c3)&chr(&h30af) 426 Rem 消込ツール 勘定コードチェック 427 MsgTtl$ = " 消込ツール 勘定コードチェック "
Case "Journal Entry Amount" 428 Case "Journal Entry Amount" MsgTxt$ = chr(&h8584)&chr(&h8d64)&chr(&h7d2b)&chr(&h8272)&chr(&h306b)&chr(&h5857) 429 MsgTxt$ = MsgTxt$ &chr(&h3089)&chr(&h308c)&chr(&h305f)&chr(&h4ed5)&chr(&h8a33) 430 MsgTxt$ = MsgTxt$ &chr(&h91d1)&chr(&h984d)&chr(&h306f)&chr(&h884c)&chr(&h8a08) 431 MsgTxt$ = MsgTxt$ &chr(&h7b97)&chr(&h304c)&chr(&h5408)&chr(&h3063)&chr(&h3066) 432 MsgTxt$ = MsgTxt$ &chr(&h3044)&chr(&h307e)&chr(&h305b)&chr(&h3093)&chr(&h3002) &chr(13 433 MsgTxt$ = MsgTxt$ &chr(&h884c)&chr(&h8a08)&chr(&h7b97)&chr(&h3092)&chr(&h3084) 434 MsgTxt$ = MsgTxt$ &chr(&h308a)&chr(&h76f4)&chr(&h3057)&chr(&h305f)&chr(&h5f8c) 435 MsgTxt$ = MsgTxt$ &chr(&h3001)&chr(&h5fc5)&chr(&h8981)&chr(&h306a)&chr(&h3089) 436 MsgTxt$ = MsgTxt$ &chr(&h518d)&chr(&h3073)&chr(&h8ca1)&chr(&h8868)&chr(&h4f5c) 437 MsgTxt$ = MsgTxt$ &chr(&h6210)&chr(&h3092)&chr(&h5b9f)&chr(&h884c)&chr(&h3057) 438 MsgTxt$ = MsgTxt$ &chr(&h3066)&chr(&h4e0b)&chr(&h3055)&chr(&h3044)&chr(&h3002) 439 Rem 薄赤紫色に塗られた仕訳金額は行計算が合っていません " & Chr$(13) 440 MsgTxt$ = " 薄赤紫色に塗られた仕訳金額は行計算が合っていません " & Chr$(13) Rem 行計算をやり直した後 必要なら再び財表作成を実行して下さい " 441 MsgTxt$ = MsgTxt$ & " 行計算をやり直した後 必要なら再び財表作成を実行して下さい " Case "Unit_Amount_Quantity" 442 Case "Unit_Amount_Quantity" MsgTxt$ = chr(&h8584)&chr(&h8d64)&chr(&h7d2b)&chr(&h8272)&chr(&h306b)&chr(&h5857) 443 MsgTxt$ = MsgTxt$ &chr(&h3089)&chr(&h308c)&chr(&h305f)&chr(&h6570)&chr(&h91cf) 444 MsgTxt$ = MsgTxt$ &chr(&hff38)&chr(&h5358)&chr(&h4fa1)&chr(&h3068)&chr(&h4ed5) 445 MsgTxt$ = MsgTxt$ &chr(&h8a33)&chr(&h91d1)&chr(&h984d)&chr(&h304c)&chr(&h5408) 446 MsgTxt$ = MsgTxt$ &chr(&h3063)&chr(&h3066)&chr(&h3044)&chr(&h307e)&chr(&h305b) 447 MsgTxt$ = MsgTxt$ &chr(&h3093)&chr(&h3002) &Chr(13) 448 MsgTxt$ = MsgTxt$ &chr(&h884c)&chr(&h8a08)&chr(&h7b97)&chr(&h3092)&chr(&h3084) 449 MsgTxt$ = MsgTxt$ &chr(&h308a)&chr(&h76f4)&chr(&h3057)&chr(&h305f)&chr(&h5f8c) 450 MsgTxt$ = MsgTxt$ &chr(&h3001)&chr(&h5fc5)&chr(&h8981)&chr(&h306a)&chr(&h3089) 451 MsgTxt$ = MsgTxt$ &chr(&h518d)&chr(&h3073)&chr(&h8ca1)&chr(&h8868)&chr(&h4f5c) 452 MsgTxt$ = MsgTxt$ &chr(&h6210)&chr(&h3092)&chr(&h5b9f)&chr(&h884c)&chr(&h3057) 453 MsgTxt$ = MsgTxt$ &chr(&h3066)&chr(&h4e0b)&chr(&h3055)&chr(&h3044)&chr(&h3002) 454 Rem 薄赤紫色に塗られた数量 x 単価と仕訳金額が合っていません " & Chr$(13) 455 MsgTxt$ = " 薄赤紫色に塗られた数量 x 単価と仕訳金額が合っていません " & Chr$(13) Rem 行計算をやり直した後 必要なら再び財表作成を実行して下さい " 456 MsgTxt$ = MsgTxt$ & " 行計算をやり直した後 必要なら再び財表作成を実行して下さい " Case "Past fiscal year" 457 Case "Past fiscal year" MsgTxt$ = chr(&h3053)&chr(&h306e)& asname$ &chr(&h30b7)&chr(&h30fc)&chr(&h30c8) 458 MsgTxt$ = MsgTxt$ &chr(&h306f)&chr(&h904e)&chr(&h5e74)&chr(&h5ea6)&chr(&h306e) 459 MsgTxt$ = MsgTxt$ &chr(&h3082)&chr(&h306e)&chr(&h306a)&chr(&h306e)&chr(&h3067) 460 MsgTxt$ = MsgTxt$ &chr(&h3001) &chr(13) 461 MsgTxt$ = MsgTxt$ &chr(&h30c7)&chr(&h30fc)&chr(&h30bf)&chr(&h5909)&chr(&h66f4) 462 MsgTxt$ = MsgTxt$ &chr(&h3092)&chr(&h3059)&chr(&h308b)&chr(&h3053)&chr(&h306e) 463 MsgTxt$ = MsgTxt$ &chr(&h30b3)&chr(&h30de)&chr(&h30f3)&chr(&h30c9)&chr(&h306f) 464 MsgTxt$ = MsgTxt$ &chr(&h4f7f)&chr(&h3048)&chr(&h307e)&chr(&h305b)&chr(&h3093) 465 MsgTxt$ = MsgTxt$ &chr(&hff61) 466 Rem この " & asname$ & " シートは過年度のものなので " & Chr$(13) 467 MsgTxt$ = " この " & asname$ & " シートは過年度のものなので " & Chr$(13) Rem データ変更をするこのコマンドは使えません " 468 MsgTxt$ = MsgTxt$ & " データ変更をするこのコマンドは使えません " Case "Value Month" 469 Case "Value Month" MsgTxt$ = chr(&h3053)&chr(&h306e)&chr(&h4ed5)&chr(&h8a33)&chr(&h306f)&chr(&h5f53) 470 MsgTxt$ = MsgTxt$ &chr(&h6708)&chr(&h3088)&chr(&h308a)&chr(&h524d)&chr(&h306e) 471 MsgTxt$ = MsgTxt$ &chr(&h3082)&chr(&h306e)&chr(&h306a)&chr(&h306e)&chr(&h3067) 472 MsgTxt$ = MsgTxt$ &chr(&h3001) &Chr(13) 473 MsgTxt$ = MsgTxt$ &chr(&h30c7)&chr(&h30fc)&chr(&h30bf)&chr(&h5909)&chr(&h66f4) 474 MsgTxt$ = MsgTxt$ &chr(&h3092)&chr(&h3059)&chr(&h308b)&chr(&h3053)&chr(&h306e) 475 MsgTxt$ = MsgTxt$ &chr(&h30b3)&chr(&h30de)&chr(&h30f3)&chr(&h30c9)&chr(&h306f) 476 MsgTxt$ = MsgTxt$ &chr(&h4f7f)&chr(&h3048)&chr(&h307e)&chr(&h305b)&chr(&h3093) 477 MsgTxt$ = MsgTxt$ &chr(&hff61) 478 Rem この仕訳は当月より前のものなので " & Chr$(13) 479 MsgTxt$ = " この仕訳は当月より前のものなので " & Chr$(13) Rem データ変更をするこのコマンドは使えません " 480 MsgTxt$ = MsgTxt$ & " データ変更をするこのコマンドは使えません " Case "Blank Rows" 481 Case "Blank Rows" MsgTxt$ = chr(&h3053)&chr(&h306e)& asname$ &chr(&h30b7)&chr(&h30fc)&chr(&h30c8) 482 MsgTxt$ = MsgTxt$ &chr(&h306b)&chr(&h306f)&chr(&h3053)&chr(&h306e)&chr(&h30bb) 483 MsgTxt$ = MsgTxt$ &chr(&h30eb)&chr(&h3092)&chr(&h542b)&chr(&h3080)&chr(&h884c) 484 MsgTxt$ = MsgTxt$ &chr(&h3068)&chr(&h5408)&chr(&h8a08)&chr(&h884c)&chr(&h306e) 485 MsgTxt$ = MsgTxt$ &chr(&h9593)&chr(&h306b)&chr(&h7a7a)&chr(&h767d)&chr(&h884c) 486 MsgTxt$ = MsgTxt$ &chr(&h304c)&chr(&h3042)&chr(&h308a)&chr(&h307e)&chr(&h3059) 487 MsgTxt$ = MsgTxt$ &chr(&h3002) &Chr(13) 488
MsgTxt$ = MsgTxt$ &chr(&h7a7a)&chr(&h767d)&chr(&h884c)&chr(&h306f)&chr(&h30a8) 489 MsgTxt$ = MsgTxt$ &chr(&h30e9)&chr(&h30fc)&chr(&h306e)&chr(&h539f)&chr(&h56e0) 490 MsgTxt$ = MsgTxt$ &chr(&h3068)&chr(&h306a)&chr(&h308b)&chr(&h3053)&chr(&h3068) 491 MsgTxt$ = MsgTxt$ &chr(&h304c)&chr(&h3042)&chr(&h308a)&chr(&h307e)&chr(&h3059) 492 MsgTxt$ = MsgTxt$ &chr(&h306e)&chr(&h3067)&chr(&h3001) &Chr(13) 493 MsgTxt$ = MsgTxt$ &chr(&h3053)&chr(&h308c)&chr(&h3089)&chr(&h306e)&chr(&h7a7a) 494 MsgTxt$ = MsgTxt$ &chr(&h767d)&chr(&h884c)&chr(&h3092)&chr(&h884c)&chr(&h524a) 495 MsgTxt$ = MsgTxt$ &chr(&h9664)&chr(&h3057)&chr(&h3066)&chr(&h4e0b)&chr(&h3055) 496 MsgTxt$ = MsgTxt$ &chr(&h3044)&chr(&h3002) 497 Rem この " & asname$ & " シートにはこのセルを含む行と合計行の間に空白行があります " & Chr$(13) 498 MsgTxt$ = " この " & asname$ & " シートにはこのセルを含む行と合計行の間に空白行があります " & Chr$(13 Rem 空白行はエラーの原因となることがありますので " & Chr$(13) 499 MsgTxt$ = MsgTxt$ & " 空白行はエラーの原因となることがありますので " & Chr$(13) Rem これらの空白行を行削除して下さい " 500 MsgTxt$ = MsgTxt$ & " これらの空白行を行削除して下さい " Case "JE Balance" 501 Case "JE Balance" MsgTxt$ = chr(&h3053)&chr(&h306e)&chr(&h4ed5)&chr(&h8a33)&chr(&h6708)&chr(&h306e) 502 MsgTxt$ = MsgTxt$ & "JV" &chr(&h30b7)&chr(&h30fc)&chr(&h30c8)&chr(&h306f) 503 MsgTxt$ = MsgTxt$ &chr(&h4ed5)&chr(&h8a33)&chr(&h306e)&chr(&h8cb8)&chr(&h501f) 504 MsgTxt$ = MsgTxt$ &chr(&h304c)&chr(&h30d0)&chr(&h30e9)&chr(&h30f3)&chr(&h30b9) 505 MsgTxt$ = MsgTxt$ &chr(&h3057)&chr(&h3066)&chr(&h3044)&chr(&h307e)&chr(&h305b) 506 MsgTxt$ = MsgTxt$ &chr(&h3093)&chr(&h3002) &Chr(13) 507 MsgTxt$ = MsgTxt$ &chr(&h8cb8)&chr(&h501f)&chr(&h4e0d)&chr(&h4e00)&chr(&h81f4) 508 MsgTxt$ = MsgTxt$ &chr(&h306e)&chr(&h539f)&chr(&h56e0)&chr(&h4ed5)&chr(&h8a33) 509 MsgTxt$ = MsgTxt$ &chr(&h3092)&chr(&h635c)&chr(&h3057)&chr(&h3066)&chr(&h8a02) 510 MsgTxt$ = MsgTxt$ &chr(&h6b63)&chr(&h3057)&chr(&h3066)&chr(&h4e0b)&chr(&h3055) 511 MsgTxt$ = MsgTxt$ &chr(&h3044)&chr(&h3002) 512 Rem この仕訳月のJVシートは仕訳の貸借がバランスしていません " & Chr$(13) 513 MsgTxt$ = " この仕訳月のJVシートは仕訳の貸借がバランスしていません " & Chr$(13) Rem 貸借不一致の原因仕訳を捜して訂正して下さい " 514 MsgTxt$ = MsgTxt$ & " 貸借不一致の原因仕訳を捜して訂正して下さい " Case "Deptmental Apportionment" 515 Case "Deptmental Apportionment" MsgTxt$ = chr(&h3053)&chr(&h306e)&chr(&h884c)&chr(&h306e)&chr(&h90e8)&chr(&h9580) 516 MsgTxt$ = MsgTxt$ &chr(&h5225)&chr(&h914d)&chr(&h8ce6)&chr(&h91d1)&chr(&h984d) 517 MsgTxt$ = MsgTxt$ &chr(&h5408)&chr(&h8a08)&chr(&h3068)&chr(&h8584)&chr(&h8d64) 518 MsgTxt$ = MsgTxt$ &chr(&h7d2b)&chr(&h8272)&chr(&h306b)&chr(&h5857)&chr(&h3089) 519 MsgTxt$ = MsgTxt$ &chr(&h308c)&chr(&h305f)&chr(&h4ed5)&chr(&h8a33)&chr(&h91d1) 520 MsgTxt$ = MsgTxt$ &chr(&h984d)&chr(&h3068)&chr(&h304c)&chr(&h0022) &Chr(13) 521 MsgTxt$ = MsgTxt$ &chr(&h4e00)&chr(&h81f4)&chr(&h3057)&chr(&h3066)&chr(&h3044) 522 MsgTxt$ = MsgTxt$ &chr(&h307e)&chr(&h305b)&chr(&h3093)&chr(&h3002)&chr(&h518d) 523 MsgTxt$ = MsgTxt$ &chr(&h3073)&chr(&h914d)&chr(&h8ce6)&chr(&h8a08)&chr(&h7b97) 524 MsgTxt$ = MsgTxt$ &chr(&h3092)&chr(&h884c)&chr(&h3044)&chr(&h8a02)&chr(&h6b63) 525 MsgTxt$ = MsgTxt$ &chr(&h3057)&chr(&h3066)&chr(&h304f)&chr(&h3060)&chr(&h3055) 526 MsgTxt$ = MsgTxt$ &chr(&h3044)&chr(&h3002) 527 Rem この行の部門別配賦金額合計と薄赤紫色に塗られた仕訳金額とが " & Chr$(13) 528 MsgTxt$ = " この行の部門別配賦金額合計と薄赤紫色に塗られた仕訳金額とが " & Chr$(13) Rem 一致していません 再び配賦計算を行い訂正してください " 529 MsgTxt$ = MsgTxt$ & " 一致していません 再び配賦計算を行い訂正してください " Case "ApportionmentFactor" 530 Case "ApportionmentFactor" MsgTxt$ = chr(&h73fe)&chr(&h5728)&chr(&h6708)&chr(&h306e)&chr(&h914d)&chr(&h8ce6) 531 MsgTxt$ = MsgTxt$ &chr(&h57fa)&chr(&h6e96)&chr(&h0028)&chr(&h5404)&chr(&h90e8) 532 MsgTxt$ = MsgTxt$ &chr(&h9580)&chr(&h4eba)&chr(&h6570)&chr(&h0029)&chr(&h304c) 533 MsgTxt$ = MsgTxt$ &chr(&h672a)&chr(&h5165)&chr(&h529b)&chr(&h3067)&chr(&h3059) 534 MsgTxt$ = MsgTxt$ &chr(&h3002) &Chr(13) 535 MsgTxt$ = MsgTxt$ & "Apportion" &chr(&h30b7)&chr(&h30fc)&chr(&h30c8)&chr(&h306b) 536 MsgTxt$ = MsgTxt$ &chr(&h5165)&chr(&h529b)&chr(&h5f8c)&chr(&h3001)&chr(&h518d) 537 MsgTxt$ = MsgTxt$ &chr(&h3073)&chr(&h914d)&chr(&h8ce6)&chr(&h8a08)&chr(&h7b97) 538 MsgTxt$ = MsgTxt$ &chr(&h3092)&chr(&h5b9f)&chr(&h884c)&chr(&h3057)&chr(&h3066) 539 MsgTxt$ = MsgTxt$ &chr(&h4e0b)&chr(&h3055)&chr(&h3044)&chr(&h3002) 540 Rem 現在月の配賦基準 ( 各部門人数 ) が未入力です " & Chr$(13) 541 MsgTxt$ = " 現在月の配賦基準 ( 各部門人数 ) が未入力です " & Chr$(13) Rem Apportionシートに入力後 再び配賦計算を実行して下さい " 542 MsgTxt$ = MsgTxt$ & "Apportionシートに入力後 再び配賦計算を実行して下さい " Case "DataTypeError" 543 Case "DataTypeError" MsgTxt$ = chr(&h6de1)&chr(&h30de)&chr(&h30bc)&chr(&h30f3)&chr(&h30bf)&chr(&h8272) 544 MsgTxt$ = MsgTxt$ &chr(&h306b)&chr(&h5857)&chr(&h3089)&chr(&h308c)&chr(&h305f) 545 MsgTxt$ = MsgTxt$ &chr(&h30bb)&chr(&h30eb)&chr(&h304c)&chr(&h5168)&chr(&h89d2) 546 MsgTxt$ = MsgTxt$ &chr(&h30b9)&chr(&h30da)&chr(&h30fc)&chr(&h30b9)&chr(&h305d) 547 MsgTxt$ = MsgTxt$ &chr(&h306e)&chr(&h4ed6)&chr(&h306e)&chr(&h6587)&chr(&h5b57) 548 MsgTxt$ = MsgTxt$ &chr(&h3092)&chr(&h542b)&chr(&h3093)&chr(&h3067)&chr(&h3044) 549
MsgTxt$ = MsgTxt$ &chr(&h307e)&chr(&h3059)&chr(&h3002) &Chr(13) 550 MsgTxt$ = MsgTxt$ &chr(&h5f53)&chr(&h8a72)&chr(&h30bb)&chr(&h30eb)&chr(&h3092) 551 MsgTxt$ = MsgTxt$ &chr(&h524a)&chr(&h9664)&chr(&h30ad)&chr(&h30fc)&chr(&h3092) 552 MsgTxt$ = MsgTxt$ &chr(&h7528)&chr(&h3044)&chr(&h3066)&chr(&h7a7a)&chr(&h767d) 553 MsgTxt$ = MsgTxt$ &chr(&h3068)&chr(&h3057)&chr(&h3001)&chr(&h518d)&chr(&h8a08) 554 MsgTxt$ = MsgTxt$ &chr(&h7b97)&chr(&h3057)&chr(&h3066)&chr(&h4e0b)&chr(&h3055) 555 MsgTxt$ = MsgTxt$ &chr(&h3044)&chr(&h3002) 556 Rem 淡マゼンタ色に塗られたセルが全角スペースその他の文字を含んでいます " & Chr$(13) 557 MsgTxt$ = " 淡マゼンタ色に塗られたセルが全角スペースその他の文字を含んでいます " & Chr$(13) Rem 当該セルを削除キーを用いて空白とし 再計算して下さい 558 MsgTxt$ = MsgTxt$ & " 当該セルを削除キーを用いて空白とし 再計算して下さい Case " 消費税 " 559 Case " 消費税 " MsgTxt$ = chr(&h6d88)&chr(&h8cbb)&chr(&h7a0e)&chr(&h984d)&chr(&h306f)&chr(&h30bc) 560 MsgTxt$ = MsgTxt$ &chr(&h30ed)&chr(&h3067)&chr(&h3042)&chr(&h308b)&chr(&h5fc5) 561 MsgTxt$ = MsgTxt$ &chr(&h8981)&chr(&h304c)&chr(&h3042)&chr(&h308a)&chr(&h307e) 562 MsgTxt$ = MsgTxt$ &chr(&h3059)&chr(&h3002) &Chr(13) 563 MsgTxt$ = MsgTxt$ &chr(&h6d88)&chr(&h8cbb)&chr(&h7a0e)&chr(&h984d)&chr(&h3092) 564 MsgTxt$ = MsgTxt$ &chr(&h6d88)&chr(&h53bb)&chr(&h3057)&chr(&h3001)&chr(&h518d) 565 MsgTxt$ = MsgTxt$ &chr(&h5ea6)&chr(&h884c)&chr(&h8a08)&chr(&h7b97)&chr(&h3092) 566 MsgTxt$ = MsgTxt$ &chr(&h5b9f)&chr(&h884c)&chr(&h3057)&chr(&h3066)&chr(&h4e0b) 567 MsgTxt$ = MsgTxt$ &chr(&h3055)&chr(&h3044)&chr(&h3002) 568 Rem 消費税額はゼロである必要があります " & Chr$(13) 569 MsgTxt$ = " 消費税額はゼロである必要があります " & Chr$(13) Rem 消費税額を消去し 再度行計算を実行して下さい " 570 MsgTxt$ = MsgTxt$ & " 消費税額を消去し 再度行計算を実行して下さい " MsgTtl$ = chr(&h6d88)&chr(&h8cbb)&chr(&h7a0e) 571 MsgTtl$ =" 消費税 " Case "Col_Border 見出し " 572 Case "Col_Border 見出し " MsgTxt$ = acontroller.activesheet.getname() &chr(&h30b7)&chr(&h30fc)&chr(&h30c8) 573 MsgTxt$ = MsgTxt$ &chr(&h306e)& "2" &chr(&h884c)&chr(&h76ee)&chr(&h306b) 574 MsgTxt$ = MsgTxt$ &chr(&h884c)&chr(&h898b)&chr(&h51fa)&chr(&h3057) 575 MsgTxt$ = MsgTxt$ & "[Col_Border]" &chr(&h304c)&chr(&h3042)&chr(&h308a) 576 MsgTxt$ = MsgTxt$ &chr(&h307e)&chr(&h305b)&chr(&h3093)&chr(&h3002) &Chr$(13) 577 MsgTxt$ = MsgTxt$ &chr(&h30bf)&chr(&h30a4)&chr(&h30c8)&chr(&h30eb)&chr(&h884c)& "(1" 578 MsgTxt$ = MsgTxt$ &chr(&h884c)&chr(&h76ee)& ")" &chr(&h6700)&chr(&h53f3)&chr(&h5217) 579 MsgTxt$ = MsgTxt$ &chr(&h306e)&chr(&h53f3)&chr(&h96a3)&chr(&h5217)&chr(&h306e) 580 MsgTxt$ = MsgTxt$ & "2" &chr(&h884c)&chr(&h76ee)&chr(&h30bb)&chr(&h30eb)&chr(&h306b) 581 MsgTxt$ = MsgTxt$ & "[Col_Border]" &chr(&h3068)&chr(&h5165)&chr(&h529b)&chr(&h3057) 582 MsgTxt$ = MsgTxt$ &chr(&h3066)&chr(&h304f)&chr(&h3060)&chr(&h3055)&chr(&h3044)&chr(&h3583 Rem acontroller.activesheet.getname() & " シートの2 行目に行見出し Col_Border がありません " & C 584 MsgTxt$ = ActiveSheet.Name & " シートの2 行目に行見出し Col_Border がありません " & Chr$(13) Rem タイトル行 (1 行目 ) 最右列の右隣列の2 行目セルに " & Chr$(13) 585 MsgTxt$ = MsgTxt$ & " タイトル行 (1 行目 ) 最右列の右隣列の2 行目セルに " & Chr$(13) Rem Col_Border と入力してください " 586 MsgTxt$ = MsgTxt$ & " Col_Border と入力してください " MsgTtl$ = "Col_Border" &chr(&h898b)&chr(&h51fa)&chr(&h3057) 587 MsgTtl$ = "Col_Border 見出し " Case "Acct_Analysis" 588 Case "Acct_Analysis" MsgTxt$ = chr(&h3053)&chr(&h306e)& asname$ &chr(&h30b7)&chr(&h30fc)&chr(&h30c8) 589 MsgTxt$ = MsgTxt$ &chr(&h3067)&chr(&h306f)&chr(&h52d8)&chr(&h5b9a)&chr(&h5206) 590 MsgTxt$ = MsgTxt$ &chr(&h6790)&chr(&h306f)&chr(&h3067)&chr(&h304d)&chr(&h307e) 591 MsgTxt$ = MsgTxt$ &chr(&h305b)&chr(&h3093)&chr(&h3002) &Chr(13) 592 MsgTxt$ = MsgTxt$ & "CF, AvB, BS, PL " &chr(&h90e8)&chr(&h9580)&chr(&h30b7) 593 MsgTxt$ = MsgTxt$ &chr(&h30fc)&chr(&h30c8)&chr(&h3001)& "Dpt" &chr(&h7b49) 594 MsgTxt$ = MsgTxt$ &chr(&h306e)&chr(&h30b7)&chr(&h30fc)&chr(&h30c8)&chr(&h306b) &Chr(1595 MsgTxt$ = MsgTxt$ &chr(&h79fb)&chr(&h52d5)&chr(&h3057)&chr(&h3066)&chr(&h304b) 596 MsgTxt$ = MsgTxt$ &chr(&h3089)&chr(&h518d)&chr(&h5ea6)&chr(&h3053)&chr(&h306e) 597 MsgTxt$ = MsgTxt$ &chr(&h30b3)&chr(&h30de)&chr(&h30f3)&chr(&h30c9)&chr(&h3092) 598 MsgTxt$ = MsgTxt$ &chr(&h5b9f)&chr(&h884c)&chr(&h3057)&chr(&h3066)&chr(&h304f) 599 MsgTxt$ = MsgTxt$ &chr(&h3060)&chr(&h3055)&chr(&h3044)&chr(&h3002) 600 Rem " この " & asname$ & " シートでは勘定分析はできません " & Chr$(13) 601 MsgTxt$ = " この " & asname$ & " シートでは勘定分析はできません " & Chr$(13) Rem "CF AvB BS PL 部門シート Dpt 等のシートに " & Chr$(13) 602 MsgTxt$ = MsgTxt$ & "CF AvB BS PL 部門シート Dpt 等のシートに " & Chr$(13) Rem 移動してから再度このコマンドを実行してください " 603 MsgTxt$ = MsgTxt$ & " 移動してから再度このコマンドを実行してください " Case "ExtraDataBaseArea" 604 Case "ExtraDataBaseArea" MsgTxt$ = asname$ &chr(&h30b7)&chr(&h30fc)&chr(&h30c8)&chr(&h306e)&chr(&h300c) 605 MsgTxt$ = MsgTxt$ &chr(&h5f53)&chr(&h6708)&chr(&h5408)&chr(&h8a08)&chr(&h300d) 606 MsgTxt$ = MsgTxt$ &chr(&h884c)&chr(&h3088)&chr(&h308a)&chr(&h4e0b)&chr(&h306e) 607 MsgTxt$ = MsgTxt$ &chr(&h300c)&chr(&h4ed5)&chr(&h8a33)&chr(&h6708)&chr(&h300d) 608 MsgTxt$ = MsgTxt$ &chr(&h5217)&chr(&h4e0a)&chr(&h306b) &chr(13) 609
MsgTxt$ = MsgTxt$ &chr(&h4f55)&chr(&h304b)&chr(&h304c)&chr(&h5165)&chr(&h529b) 610 MsgTxt$ = MsgTxt$ &chr(&h3055)&chr(&h308c)&chr(&h3066)&chr(&h3044)&chr(&h308b) 611 MsgTxt$ = MsgTxt$ &chr(&h30bb)&chr(&h30eb)&chr(&h304c)&chr(&h3042)&chr(&h308a) 612 MsgTxt$ = MsgTxt$ &chr(&h307e)&chr(&h3059)&chr(&h3002) &chr(13) 613 MsgTxt$ = MsgTxt$ &chr(&h3053)&chr(&h308c)&chr(&h3092)&chr(&h6d88)&chr(&h53bb) 614 MsgTxt$ = MsgTxt$ &chr(&h3057)&chr(&h3066)&chr(&h304f)&chr(&h3060)&chr(&h3055) 615 MsgTxt$ = MsgTxt$ &chr(&h3044)&chr(&h3002) 616 Rem asname$ & " シートの 当月合計 行より下の 仕訳月 列上に " & Chr$(13) 617 MsgTxt$ = asname$ & " シートの 当月合計 行より下の 仕訳月 列上に " & Chr$(13) Rem 何かが入力されているセルがあります " & Chr$(13) & _ 618 MsgTxt$ = MsgTxt$ & " 何かが入力されているセルがあります " & Chr$(13) & _ Rem これを消去してください " 619 MsgTxt$ = MsgTxt$ & " これを消去してください " Case " 月末残高欄位置 " 620 Case " 月末残高欄位置 " MsgTxt$ = asname$ & space(1) &chr(&h30b7)&chr(&h30fc)&chr(&h30c8)&chr(&h306e) 621 MsgTxt$ = MsgTxt$ &chr(&h6708)&chr(&h672b)&chr(&h6b8b)&chr(&h9ad8)&chr(&h6b04) 622 MsgTxt$ = MsgTxt$ &chr(&h304c)&chr(&h6b63)&chr(&h3057)&chr(&h3044)&chr(&h4f4d) 623 MsgTxt$ = MsgTxt$ &chr(&h7f6e)&chr(&h306b)&chr(&h3042)&chr(&h308a)&chr(&h307e) 624 MsgTxt$ = MsgTxt$ &chr(&h305b)&chr(&h3093)&chr(&h3002) &Chr$(13) 625 MsgTxt$ = MsgTxt$ &chr(&h5217)&chr(&h898b)&chr(&h51fa)&chr(&h3057)&chr(&h304b) 626 MsgTxt$ = MsgTxt$ &chr(&h3089)&chr(&h300c)&chr(&h6708)&chr(&h672b)&chr(&h6b8b) 627 MsgTxt$ = MsgTxt$ &chr(&h9ad8)&chr(&h300d)&chr(&h304c)&chr(&h6d88)&chr(&h53bb) 628 MsgTxt$ = MsgTxt$ &chr(&h3055)&chr(&h308c)&chr(&h3066)&chr(&h3044)&chr(&h308b) 629 MsgTxt$ = MsgTxt$ &chr(&h53ef)&chr(&h80fd)&chr(&h6027)&chr(&h3082)&chr(&h3042) 630 MsgTxt$ = MsgTxt$ &chr(&h308a)&chr(&h307e)&chr(&h3059)&chr(&h3002)& Chr$(13) 631 MsgTxt$ = MsgTxt$ &chr(&h3053)&chr(&h308c)&chr(&h3092)&chr(&h4fee)&chr(&h5fa9) 632 MsgTxt$ = MsgTxt$ &chr(&h3057)&chr(&h3066)&chr(&h304f)&chr(&h3060)&chr(&h3055) 633 MsgTxt$ = MsgTxt$ &chr(&h3044)&chr(&h3002) 634 Rem asname$ & " シートの月末残高欄が正しい位置にありません " & Chr$(13) 635 MsgTxt$ = asname$ & " シートの月末残高欄が正しい位置にありません " & Chr$(13) Rem 列見出しから 月末残高 が消去されている可能性もあります " & Chr$(13) 636 MsgTxt$ = MsgTxt$ & " 列見出しから 月末残高 が消去されている可能性もあります " & Chr$(13) Rem これを修復してください " 637 MsgTxt$ = MsgTxt$ & " これを修復してください " MsgTtl$ = chr(&h6708)&chr(&h672b)&chr(&h6b8b)&chr(&h9ad8)&chr(&h6b04)&chr(&h4f4d)&ch 638 Rem 月末残高欄位置 639 MsgTtl$ = " 月末残高欄位置 " Case "InCompletePriorFS" 640 Case "InCompletePriorFS" MsgTxt$ = chr(&h524d)&chr(&h6708)&chr(&h306e)&chr(&h8ca1)&chr(&h8868) 641 MsgTxt$ = MsgTxt$ & chr(&h4f5c)&chr(&h6210)&chr(&h304c)&chr(&h5b8c)&chr(&h4e86) 642 MsgTxt$ = MsgTxt$ & chr(&h3057)&chr(&h3066)&chr(&h3044)&chr(&h306a)&chr(&h3044) 643 MsgTxt$ = MsgTxt$ & chr(&h306e)&chr(&h3067)&chr(&h3001)&chr(13) 644 MsgTxt$ = MsgTxt$ & chr(&h5f53)&chr(&h6708)&chr(&h306e)&chr(&h8ca1)&chr(&h8868) 645 MsgTxt$ = MsgTxt$ & chr(&h4f5c)&chr(&h6210)&chr(&h306b)&chr(&h5165)&chr(&h308c) 646 MsgTxt$ = MsgTxt$ & chr(&h307e)&chr(&h305b)&chr(&h3093)&chr(&h3002) 647 Rem 前月の財表作成が完了していないので 当月の財表作成に入れません 648 MsgTxt$ = " 前月の財表作成が完了していないので 当月の財表作成に入れません MsgTtl$ = CStr(GetDate("Curr","Date")) &chr(&h5ea6)&chr(&h8ca1)&chr(&h8868)&chr(&h4f5c) 649 MsgTtl$ = MsgTtl$ & chr(&h6210)&chr(&h6e96)&chr(&h5099) 650 Rem Xxxx 度財表作成準備 651 MsgTtl$ = CStr(GetDate("Curr","Date")) & " 度財表作成準備 " Case "CFInCompletePriorFS" 652 Case "CFInCompletePriorFS" MsgTxt$ = chr(&h524d)&chr(&h6708)&chr(&h306e)&chr(&h8ca1)&chr(&h8868) 653 MsgTxt$ = MsgTxt$ & chr(&h4f5c)&chr(&h6210)&chr(&h304c)&chr(&h5b8c)&chr(&h4e86) 654 MsgTxt$ = MsgTxt$ & chr(&h3057)&chr(&h3066)&chr(&h3044)&chr(&h306a)&chr(&h3044) 655 MsgTxt$ = MsgTxt$ & chr(&h306e)&chr(&h3067)&chr(&h3001)&chr(13) 656 MsgTxt$ = MsgTxt$ & chr(&h5f53)&chr(&h6708)&chr(&h306e)&chr(&h0043)&chr(&h0046) 657 MsgTxt$ = MsgTxt$ & chr(&h4f5c)&chr(&h6210)&chr(&h306b)&chr(&h5165)&chr(&h308c) 658 MsgTxt$ = MsgTxt$ & chr(&h307e)&chr(&h305b)&chr(&h3093)&chr(&h3002) 659 Rem 前月の財表作成が完了していないので 当月のCF 作成に入れません 660 MsgTxt$ = " 前月の財表作成が完了していないので 当月のCF 作成に入れません MsgTtl$ = CStr(GetDate("Curr","Date")) &chr(&h5ea6)&chr(&h0043)&chr(&h0046)&chr(&h4f5c) 661 MsgTtl$ = MsgTtl$ & chr(&h6210)&chr(&h6e96)&chr(&h5099) 662 Rem Xxxx 度 CF 作成準備 663 MsgTtl$ = CStr(GetDate("Curr","Date")) & " 度 CF 作成準備 " End Select 664 End Select MsgTtl$ = MsgTtl$ & chr(&h306e)&chr(&h30c1)&chr(&h30a7)&chr(&h30c3)&chr(&h30af) 665 MsgTtl$ = MsgTtl$ & のチェック Rem のチェック 666 resp% = MsgBox(MsgTxt$, 16, MsgTtl$) 667 resp% = MsgBox(MsgTxt$, 16, MsgTtl$) End Sub 668 End Sub Function StopOrGo(ByVal swhat$) as boolean 669 Function StopOrGo(ByVal swhat$) as boolean
dim z% 670 dim z% Rem === BK(0),JV(1),AP(2),AR(3),MW(4),[BS/PL/Dpt/CF/AvB](10), 各部門シート (12), その他 (9) 671 Rem === BK(0),JV(1),AP(2),AR(3),MW(4),[BS/PL/Dpt/CF/AvB](10), 各部門シート (12), その他 (9) StopOrGo = False 672 StopOrGo = False z% = iws(asname$) 673 z% = iws(asname$) Select Case swhat$ 674 Select Case swhat$ Case "ShowJE" 675 Case "ShowJE" If asname$="bk" or asname$="ap" or asname$="ar" or asname$="mw" then 676 If asname$="bk" or asname$="ap" or asname$="ar" or asname$="mw" then StopOrGo = True 677 StopOrGo = True End If 678 End If Case "ShowACName" 679 Case "ShowACName" If asname$="bk"or asname$="jv" or asname$="ap" or asname$="ar" or asname$="mw" then 680 If asname$="bk"or asname$="jv" or asname$="ap" or asname$="ar" or asname$="mw" then StopOrGo = True 681 StopOrGo = True End If 682 End If Case "ShowACDOnly" 683 Case "ShowACDOnly" If z%<8 or (z%-10)*(z%-12)=0 then 684 If z%<8 or (z%-10)*(z%-12)=0 then StopOrGo = True 685 StopOrGo = True End If 686 End If Case "Acct_Analysis" 687 Case "Acct_Analysis" If (z%-10)*(z%-12)=0 then 688 If (z%-10)*(z%-12)=0 then StopOrGo = True 689 StopOrGo = True End If 690 End If Case "Sort4Rep", "VeriLN" 691 Case "Sort4Rep", "VeriLN" If z% < 9 then 692 If z% < 9 then StopOrGo = True 693 StopOrGo = True End If 694 End If Case "LineCalc" 695 Case "LineCalc" If z% < 9 then 696 If z% < 9 then StopOrGo = True 697 StopOrGo = True End If 698 End If Case "LNJump" 699 Case "LNJump" If asname$ = "Lense" or asname$ = "SvC"then 700 If asname$ = "Lense" or asname$ = "SvC"then StopOrGo = True 701 StopOrGo = True End If 702 End If End Select 703 End Select End Function 704 End Function