麻辣家族討論版版 » Excel程式區 » 請教 =等號與 Tab 的問題

返回列表下一主題上一主題發帖

[發問] 請教 =等號與 Tab 的問題

中學生 Rank: 2

帖子: 17
主題: 10
精華: 0
積分: 56
點名: 0
作業系統: Window10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-12-4
最後登錄: 2022-6-16

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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 時為空格,該怎麼做呢 ??

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

樓主熱帖

收藏

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

2^#

發表於 2022-5-29 19:33 | 只看該作者

回復 1# verify9k

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

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 28
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-10-22

3^#

發表於 2022-5-29 20:25 | 只看該作者

回復 1# verify9k

Sub test1()
Range("a1").NumberFormatLocal = "@"
Range("a1") = "=+a7pin"
End Sub
Sub test2()
Range("a2") = "'" & "=+a7pin"
End Sub
Sub test3()
a$ = "a" & vbTab & "b"
Debug.Print a$
Debug.Print Replace(a$, vbTab, " ")
Debug.Print Replace(a$, Chr(9), " ")
End Sub

複製代碼

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2022-5-29 21:28 | 只看該作者

回復 3# quickfixer

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

靜思自在 : 甘願做、歡喜受。

返回列表下一主題上一主題