本工具針對由v8t風控系統匯出強平查詢**來操作，填寫**和使用說明可以檢視附件1，具體**如下：
sub 填寫()
dim wb, wb1 as workbook
dim i, m as integer
set wb1 = thisworkbook
set wb = workbooks.open("d:\1111.xls")
m = wb.sheets(1).range("a65536").end(xlup).row - 2
for i = 1 to m
if wb.sheets(1).range("n" & i + 2) = "全部成交" then
wb1.worksheets(1).copy after:=wb1.sheets(sheets.count)
wb1.worksheets(sheets.count).name = wb1.sheets.count - 1
wb1.sheets(sheets.count).range("b3") = wb.sheets(1).range("e" & i + 2)
wb1.sheets(sheets.count).range("e3") = wb.sheets(1).range("f" & i + 2)
wb1.sheets(sheets.count).range("b5") = wb.sheets(1).range("g" & i + 2)
wb1.sheets(sheets.count).range("c5") = wb.sheets(1).range("h" & i + 2)
wb1.sheets(sheets.count).range("d5") = wb.sheets(1).range("i" & i + 2)
wb1.sheets(sheets.count).range("e5") = wb.sheets(1).range("j" & i + 2)
wb1.sheets(sheets.count).range("f5") = wb.sheets(1).range("k" & i + 2)
wb1.sheets(sheets.count).range("g5") = wb.sheets(1).range("l" & i + 2)
wb1.sheets(sheets.count).range("g12") = wb.sheets(1).range("m" & i + 2)
end if
next
end sub
登記式單例模式
登記式單例模式 public static class logmap private logmap 構造器 public static logmap getobject string name if null map.get name catch exception e return map.get...
任務管理系統 專案管理軟體，bug登記管理平台
主要包括 1.首先建立人員資訊，角色，許可權等資訊，然後建立專案 2.我的工作台 可以自由選擇乙個或者多個專案 1 概述 專案概述 1 活動 專案下所有問題的簡介 2 路線圖 專案下所有問題的路線圖 3 問題 可以按條件自由選擇 該專案下所有的問題 4 新建問題 新建立問題，包括主題，描述，開始截至...
單文件客戶區新增控制項
操作全部在cview中完成 1.在標頭檔案中宣告變數 cbutton cb 在標頭檔案開頭處寫 define wm my message wm user 100 2.在ondraw cdc pdc 中對按鈕進行具體的設定 cb.create 確定 ws child ws visible bs def...