option explicit
sub 新增小試流程()
dim i, j, ws1, ws2
'從第三行開始
i = 3
j = 2
'找到序號列中的空行,即找到新增文字的行號
set ws1 = worksheets("總表")
while ws1.cells(i, 1) <> ""
i = i + 1
wend
'匹配業務員
set ws2 = worksheets("分工表")
'迴圈遍歷整張分工表
while ws2.cells(j, 1) <> ""
if ws2.cells(j, 1) = cells(3, 1) then
ws1.cells(i, 7) = ws2.cells(j, 2)
end if
j = j + 1
wend
'異常處理
'如果有些單元格沒有內容,則提示錯誤
if cells(3, 1) = "" or cells(3, 2) = "" or cells(3, 3) = "" or cells(3, 5) = "" then
msgbox ("請檢查!!!")
else
'序號ws1.cells(i, 1) = i - 2
'物料名稱
ws1.cells(i, 2) = cells(3, 1)
'使用基地
ws1.cells(i, 3) = cells(3, 2)
'**商名稱
ws1.cells(i, 4) = cells(3, 3)
'資訊概述
ws1.cells(i, 5) = cells(3, 4)
'流程編號
ws1.cells(i, 6) = cells(3, 5)
'提示新增成功
msgbox ("新增成功")
'文字輸入單元格清空
range(cells(3, 1), cells(3, 5)).clearcontents
end if
'如果沒有匹配到業務員,則報錯
if ws1.cells(i, 7) = "" then
msgbox ("沒有匹配到業務員,請手動新增")
end if
end sub
sub 新增小試結果()
dim i, point, ws1
i = 3
'設定乙個指標,記錄是否有找匹配到流程編號
point = 0
set ws1 = worksheets("總表")
while ws1.cells(i, 6) <> ""
'如果流程編號匹配
if ws1.cells(i, 6) = cells(7, 1) then
'如果檢測內容為空,則進行賦值操作
if ws1.cells(i, 8) = "" then
ws1.cells(i, 8) = cells(7, 2)
else
'否則就忽略檢測結果賦值,對小試和備註賦值
ws1.cells(i, 9) = cells(7, 3)
ws1.cells(i, 10) = ws1.cells(i, 10) & "/" & cells(7, 4)
end if
point = 1
end if
i = i + 1
wend
'如果沒有找到流程編號,則報錯
if point = 0 then
msgbox ("流程編號不存在!")
else
'提示新增成功
msgbox ("新增成功")
'清空單元格內容
range(cells(7, 1), cells(7, 4)).clearcontents
end if
end sub
專案管理流程
專案控制是依據計畫對實施的活動進行監控,跟蹤專案實際的進展情況,一般採用的都是經典的pdca 流程,即計畫plan 實施do 檢查check 糾偏措施action 也是典型的反饋控制模式,如下圖所示。專案的日常管理工作由專案經理負責總控制,對於大型專案 從管理的角度劃分,15人以上為大專案,15人以...
軟體專案管理流程
需求調研 與客戶就其所需要的功能 流程 操作等需要為基礎,而且需求決策者必須是專案經理或部門負責人。確定影響系統設計的約束因素 本系統應當遵循的標準或規範 軟體 硬體環境 包括執行環境和開發環境 的約束 介面 協議的約束 軟體質量的約束 隱含約束等。確定功能模組的參與者 資料庫表 輸入引數說明 前置...
管理專案 具體流程
1 群公告裡面的資訊 1 需求 2 時間點與分工 3 係分 4 cms 撘投一體化 tfadvertise係分 cms搭投二期係分 里程碑 cms投放技術方案 討論 新建群說話 當前群內基本就是cms三期各個域的介面人和owner,文件放在群公告,這個專案需要大家來一起努力推進哦 鞠躬 鞠躬 1.接...