心の日記

Office從某版開始 啟用巨集 變得有點麻煩
但因為怕有不明程式夾帶 所以必須先開啟巨集安全性

但工作表 每個人習慣不一樣
有些人自已可以懂得 那些地方要修改
有些人需要游標指到哪 就要變顏色(方便打完核對)

本是讓大家自己去設定要不要開起巨集
但發現如果要搭配其他的東西 還是必須請他們開啟巨集
所以我強制改了

開啟檔案的時候
先選擇要不要開啟"游標點選處變色"

-------------------------------------------------------------------------

Private Sub Workbook_Open()     '開啟工作表執行巨集
Dim ret               '宣告
ret = MsgBox("游標點選處變色", vbYesNo, "詢問")    '依照不同的選擇 有不同結果
If ret = vbYes Then       '選擇YES

Else
ret = vbNo         '選擇NO
Application.EnableEvents = False      '暫時關閉(Workbook_SheetSelectionChange)

End If

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

  If ret = Yes Then
  Dim i As Integer
  Dim j As Integer
  i = ActiveCell.Row
  j = ActiveCell.Column
      Call FillColor(i, j)
End If

-----------------------------------------------------------------------------------------------------

參考資料
1. https://ithelp.ithome.com.tw/questions/10184966

2. https://docs.microsoft.com/zh-tw/office/vba/api/excel.application.enableevents

3. https://docs.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/msgbox-function
---------------------------------------------------------------------------------------------------

人生呀~~~~~~~~~~~~
為什麼不關我的事情 我卻要做好做滿
這道理就是 明明就是業務部要給會計部的東西 卻要收發室注意
業務部很兩光 每次都會計部糾正 然後老闆卻要收發室的人想辦法
(是覺得收發室太閒，只有公文交換嗎?)