自動填入未做列印標記的序號 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 自動填入未做列印標記的序號

返回列表下一主題上一主題發帖

自動填入未做列印標記的序號

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

21^# 跳轉到 »

發表於 2015-3-17 20:11 | 只看該作者

回復 20# chi830

For Each fi In Worksheets("序號").Range("A2:A" & Worksheets("序號").Range("A65536").End(xlUp).Row)
If Pr = fi Then
'這裡加上這段試試vvvvvvvvvvvvvvvvvvvvvvv
If fi.Offset(0, 1) = "V" Then
MsgBox "該序號已存在，請先清除列印標記或是重新取號"
Cancel = True
Exit Sub
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Worksheets("序號").Cells(fi.Row, "B") = "V"
Exit For
End If
Next

複製代碼

小學生 Rank: 1

帖子: 6
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2014-12-17
最後登錄: 2015-3-25

22^#

發表於 2015-3-18 09:06 | 只看該作者

回復 12# chi830

我習慣做一個網路磁碟，可以試試看

Set fs = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = CreateObject("WScript.Network")
If Not fs.FolderExists("Z:\") Then
WshNetwork.MapNetworkDrive "Z:", "\\192.068.0.1\temp\", False, "Username", "Password"
End If
Set WshNetwork = Nothing
Set fs = Nothing

複製代碼

中學生 Rank: 2

帖子: 105
主題: 27
精華: 0
積分: 168
點名: 218
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

23^#

發表於 2015-3-18 14:01 | 只看該作者

回復 21# lpk187

謝謝lpk187大大~已解決我的問題

中學生 Rank: 2

帖子: 105
主題: 27
精華: 0
積分: 168
點名: 218
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

24^#

發表於 2015-3-25 12:53 | 只看該作者

回復 22# kenlin

kenlin大大，我依您的範例，試做一下，出現了一個如下的錯誤訊息~
這意旨什麼呢??

靜思自在 : 君子立恆志，小人恆立志。

返回列表下一主題上一主題