Re: [算表] 請教VBA 寫法感謝大神

看板Office作者windknife18 (windknife18)時間1年前 (2023/08/03 18:02)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串4/4 (看更多)

你顯示完要再切回 "raw" Set cell = Cells(i, "A") If IsError(cell.Value) Then ' 判斷 A 欄的儲存格內容是否包含 "#N/A" 文字 Sheets("ratio").Activate MsgBox (CStr(cell.Offset(0, 3).Value) & "沒有被定義到，請確認") Sheets("raw").Activate End If ※ 引述《mini178 (mini178)》之銘言： : 不好意思請教一下 : 剛剛修改成這樣又遇到了一個問題 : 加入Sheets("ratio").Activate是因為想在ratio這個分頁跳出msgbox : 可是這樣會變成有小計的那一列會沒有被刪除 : 不加的話是正常會刪除 : 謝謝大神 : Dim Workingfile As String : Dim lastRow As Long : Dim i As Long : Dim cell As Range : Workingfile = ActiveWorkbook.Name : Sheets("raw").Visible = True : Sheets("raw").Activate : lastRow = Cells(1048576, 4).End(xlUp).Row : For i = lastRow To 1 Step -1 : Set cell = Cells(i, "D") : If InStr(1, cell.Value, "小計", vbTextCompare) > 0 Then ' 判斷 D 欄儲 : 存格內容是否包含 "小計" 文字 : Rows(i).Delete : End If : Set cell = Cells(i, "A") : If IsError(cell.Value) Then ' 判斷 A 欄的儲存格內容是否包含 "#N/A" 文 : 字 : Sheets("ratio").Activate : MsgBox (CStr(cell.Offset(0, 3).Value) & "沒有被定義到，請確認") : End If : Next i : 資料舉例如下: : A B C D : #N/A #N/A #N/A 小計 : Tier1 現股金融第一金(2892) : #N/A #N/A #N/A 環泥(1104) -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.34.58.193 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1691056921.A.FE3.html

Re: [算表] 請教VBA 寫法 感謝大神

Re: [算表] 請教VBA 寫法感謝大神