職務名稱：兼職櫃台行政人員
需求人數：1人
職類：行政人員
.
職務說明：
練健康健身房兼職櫃台行政人員，歡迎喜歡運動的人加入。
1.協助進出場收費、登記、開立發票
2.協助回覆粉專私訊
3.場館清潔維護
4.基本行政工作(使用線上表單、word、excel)
5.帳務管理(每日結帳)
6.其他主管交辦事項
7.協助影片字幕聽打
.
/
.
基本上工作單純不繁瑣，
歡迎認同練健康理念的朋友加入(請搜尋FB、IG練健康)
.
特別歡迎：喜歡科普轉譯者、喜歡吸收新知者、喜歡拍影片者、批踢踢鄉民、重度社媒使用者、懂時事懂網路者+++分
.
基本福利：
1.零食、乳清吃到飽
2.教練隨便你問，教練課、團課上到飽
3.證照考取補助
.
工作待遇：時薪160
上班地點：台北市中山區南京東路三段29號B1
管理責任：不需負擔管理責任
上班時段：日班/假日班(需輪班)
休假制度：依公司規定
可上班日：一至二周內
.
接受身分：上班族、應屆畢業生、夜間就讀中、二度就業、中壯齡
工作經驗：不拘
學歷要求：專科以上
科系要求：不拘
擅長工具：基本電腦文書
工作技能：Word、Excel、Power point
其他條件：有重訓習慣（一週2~3次）、喜歡關心時事
.
職務聯絡人：謝先生
應徵方式：寄送履歷至Email
E-mail：lkk@l-kk.tw
電洽：02-2507-4196
excel搜尋工作表名稱 在 [VBA ] 檢查工作表是否存在- 看板Visual_Basic - 批踢踢實業坊 的推薦與評價
各位板上的大大好
最近有個需求是要"檢查excel中是否有某個名稱的工作表存在"
找了一些資料 先是找到這篇 寫了版本一
https://tinyurl.com/y7sag5k5
------------------------------我是版本一------------------------------
Sub sheet_check_error()
sheetname = "Sheet2"
If Sheets(sheetname) Is Nothing Then
MsgBox ("工作表:" & sheetname & "不存在，請查看是否有拼錯字")
Else
MsgBox ("工作表:" & sheetname & "存在,將轉至該工作表")
ActiveWorkbook.Sheets(sheetname).Activate
End If
End Sub
----------------------------------------------------------------------
後來又找到這篇 抄出了版本二
https://tinyurl.com/y9w7pk6o
------------------------------我是版本二------------------------------
Function checkSheetName(sheetname)
'檢查活頁是否存在
isfind = False
For Each st In Sheets
If st.Name = sheetname Then
isfind = True
Exit For
End If
Next
checkSheetName = isfind
End Function
Sub sheet_check_correct()
sheetname = "Sheet2"
If checkSheetName(sheetname) = False Then
MsgBox "工作表:" & sheetname & "不存在，請查看是否有拼錯字"
Else
MsgBox ("工作表:" & sheetname & "存在,將轉至該工作表")
End If
End Sub
----------------------------------------------------------------------
會寫兩個版本 代表版本一有問題@@
先附上上述兩巨集所在的excel截圖 只存在一個工作表
然後附上版本一執行結果&error提示
最後附上版本二執行結果
找了之前的程式 發現前輩的巨集中有與版本一一樣寫法 那個程式現在也可以跑
但是現在重寫忽然就不行了
想請問各位大大
版本一到底是錯在哪@@?
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.240.1.143
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1542895522.A.1A9.html
另外再請問
On Error Resume Next
是不是可以套用在各種類似的錯誤中？
覺得vba最大的困擾就是找不到error在哪@@
※ 編輯: BanPeeBan (180.217.211.34), 11/23/2018 12:37:25
※ 編輯: BanPeeBan (180.217.211.34), 11/25/2018 14:24:37
... <看更多>