- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2025-1-10
|
回復 1# verify9k
(1) 附件的 Spice_Netlist 頁面中,A39 的內容是 =+A4B,這個等號與加號導致
我的 VBA程式無法執行,VBA 程式說 "型態不符合",必須手動將 A39 到 A58
的等號與加號都拿掉,才可以順利執行,請問,我的程式應該加寫些什麼才
可以濾掉這些等號加號....
PS. 我的程式在檢視巨集就看得到了
>>改用Find如下，請測試看看，謝謝
' For row_b = 1 To 1000 Step 1 '找出 .subckt 與 *.PININFO 是哪一列
' If Cells(row_b, 1) = ".subckt" Then ' 用來標定 "整個Macro" 的出 Pin 區域
' Begin_A = row_b
' ElseIf Cells(row_b, 1) = "*.PININFO" Then '出 Pin 開始與結束列數分別存在
' End_A = row_b - 1 ' Begin_A 與 End_A 變數
' Exit For
' End If
' Next
With Range("A1:A1000")
Set Rng = .Find(".subckt", , , xlWhole)
If Not Rng Is Nothing Then Begin_A = Rng.Row
End With
With Range("A1:A1000")
Set Rng = .Find("*.PININFO", , , xlWhole)
If Not Rng Is Nothing Then End_A = Rng.Row - 1
End With |
|
發表於 2022-6-15 08:25
| 
