作者windknife18 (windknife18)
看板Office
標題Re: [算表] 請教VBA 寫法 感謝大神
時間Thu Aug 3 18:01:59 2023
你顯示完要再切回 "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://webptt.com/m.aspx?n=bbs/Office/M.1691056921.A.FE3.html
1F：推 mini178: 謝謝! 08/04 09:24
※ 編輯: windknife18 (1.34.58.193 臺灣), 08/04/2023 14:51:28