標題: [發問] 請教 =等號 與 Tab 的問題 [打印本頁]

---

作者: verify9k    時間: 2022-5-29 16:39     標題: 請教 =等號 與 Tab 的問題

請問有人可以幫我解答嗎:
  底下的資料片段是我遇到的兩個問題,但是限於能力,目前都是手動修改,
  希望能有機會用 VBA 解決.

  問題(1) 第8行開始的資料是 =+A7PIN,似乎是因為內含有 "等號"的原因,
                只要 VBA 一指定這個資料存在的 Range,VBA 總是立即說
                "資料型態不符",請問該如何解決,讓 VBA 願意處理 ??
                我目前都是先手動將 "等號"拿掉,後續再用 VBA 處理......
                當然,=+A10K 與 =+A11K 的情形也一樣,只要拿掉 "等號",
                VBA 就願意處理了.......
                *******************************
                .subckt MTP_LOGIC A2 A2B A3 A3B A4B
               =+A7PIN A8B A8BC A8I A8IC A9B A9B
               =+A10K BS0 CENB_RDMDB CEN_ERMDB
               =+A11K EN6V EN6V5 EN8V EN8V5
               .................

   問題(2) 以上資料我是先從其他 Editor copy 貼至第一格,然後用
                 "資料剖析"拆到其他幾個 Range,然後再寫 VBA處理每個 Range 的
                 資料,當處理完,貼回 Editor 時, 發覺每個資料之間都是 Tab,而非空格,
                 請問,若是我想貼回 Edit 時為空格,該怎麼做呢 ??

                 謝謝解答.........

---

作者: samwang    時間: 2022-5-29 19:33

回復 1# verify9k

方便附上檔案和提供需求結果，避免解讀有誤，謝謝

---

作者: quickfixer    時間: 2022-5-29 20:25

回復 1# verify9k

1. Sub test1()
   
2.    
   
3.     Range("a1").NumberFormatLocal = "@"
   
4.     Range("a1") = "=+a7pin"
   
5.    
   
6. End Sub
   
7. 
   
8. Sub test2()
   
9.     Range("a2") = "'" & "=+a7pin"
   
10. End Sub
    
11. 
    
12. 
    
13. Sub test3()
    
14.     a$ = "a" & vbTab & "b"
    
15.     Debug.Print a$
    
16.     Debug.Print Replace(a$, vbTab, " ")
    
17.     Debug.Print Replace(a$, Chr(9), " ")
    
18. End Sub

複製代碼

---

作者: singo1232001    時間: 2022-5-29 21:28

回復 3# quickfixer


    Range("a1") = "'=+a7pin"

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)