返回列表 上一主題 發帖

[發問] 如何讓自己指定範圍,再使用巨集功能?

pupai

帖子
184 
主題
45 
精華
0 
積分
407 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-19 
最後登錄
2025-6-26 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-11-30 09:53 | 只看該作者

[發問] 如何讓自己指定範圍,再使用巨集功能?

您好
常須要做日期整批轉檔 (資料剖析精靈)
所以我錄製了一段巨集
但卻只可以用一次,下次範圍不一樣時就不可以用
請問可不可以讓我自己指定範圍
然後再使用巨集做日期整批轉檔
  1. Range("A2:A5").Select
  2.     Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
  3.         TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
  4.         Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
  5.         :=Array(1, 10), TrailingMinusNumbers:=True
複製代碼
謝謝!!

Book6.rar (9.83 KB)

收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 2013-11-30 10:56 | 只看該作者
本帖最後由 luhpro 於 2013-11-30 10:58 編輯
您好
常須要做日期整批轉檔 (資料剖析精靈)
所以我錄製了一段巨集
但卻只可以用一次,下次範圍不一樣時就 ...
pupai 發表於 2013-11-30 09:53

'Range("A2:A5").Select
    Selection.TextToColumns Destination:=Selection, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 10), TrailingMinusNumbers:=True

TOP

pupai

帖子
184 
主題
45 
精華
0 
積分
407 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-19 
最後登錄
2025-6-26 

論壇贊助勳章
3#
發表於 2013-11-30 11:13 | 只看該作者
回復 2# luhpro


    "Selection"  
感恩 是我的要效果
謝謝!!

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題