客戶強平單登記小工具

2021-10-04 04:05:55 字數 1273 閱讀 2406

本工具針對由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...