看板 [ Office ]
討論串[算表] 請教VBA 寫法 感謝大神
共 4 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[算表] 請教VBA 寫法 感謝大神
推噓0(0推 0噓 1→)留言1則，0人參與, 1年前最新作者mini178 (mini178)時間1年前 (2023/08/03 14:02), 編輯資訊
1
0
0
內容預覽:
軟體:exvel. 版本:office 365. Sub module4(). Dim Workingfile As String. Dim lastRow As Long. Dim i As Long. Dim cell As Range. Workingfile = ActiveWorkbook
(還有641個字)
#2
Re: [算表] 請教VBA 寫法 感謝大神
推噓0(0推 0噓 1→)留言1則，0人參與, 1年前最新作者windknife18 (windknife18)時間1年前 (2023/08/03 14:18), 編輯資訊
0
0
0
內容預覽:
沒錯，應該就是該列已經被刪除了，可以將兩個if合併起來. For i = lastRow To 1 Step -1. Set cell = Cells(i, "D"). If InStr(1, cell.Value, "小計", vbTextCompare) > 0 Then ' 判斷 D 欄儲存格
(還有164個字)
#3
Re: [算表] 請教VBA 寫法 感謝大神
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者mini178 (mini178)時間1年前 (2023/08/03 15:38), 1年前編輯資訊
1
0
0
內容預覽:
不好意思請教一下. 剛剛修改成這樣又遇到了一個問題. 加入Sheets("ratio").Activate是因為想在ratio這個分頁跳出msgbox. 可是這樣會變成有小計的那一列會沒有被刪除. 不加的話是正常會刪除. 謝謝大神. Dim Workingfile As String. Dim la
(還有747個字)
#4
Re: [算表] 請教VBA 寫法 感謝大神
推噓1(1推 0噓 0→)留言1則，0人參與, 1年前最新作者windknife18 (windknife18)時間1年前 (2023/08/03 18:02), 1年前編輯資訊
0
0
0
內容預覽:
你顯示完要再切回 "raw". Set cell = Cells(i, "A"). If IsError(cell.Value) Then ' 判斷 A 欄的儲存格內容是否包含 "#N/A" 文字. Sheets("ratio").Activate. MsgBox (CStr(cell.Offset
(還有80個字)
首頁
上一頁
1
下一頁
尾頁