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

[發問] 請各位大大幫忙!

koiiven

小學生 Rank: 1

帖子: 12
主題: 2
精華: 0
積分: 19
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 10
註冊時間: 2011-3-10
最後登錄: 2011-9-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-3-10 23:21 | 顯示全部帖子

[發問] 請各位大大幫忙!

小弟以錄製巨集的方式將原始檔中之某些欄位
選定特定的儲存格數目之後
貼到A1工作表的特定儲存格中

但是因為每次所選定的列數不一定一樣
所以想請教各位大大
能否在Sheet1中直接設定我所要選取原始檔的列數(欄的部分都固定)
而我所設定的數值能直接影響巨集裡面的程式碼
進而使巨集能夠複製我所想要的儲存格數目到A1表格中

詳細情形如附件所述

感謝各位大大幫忙!

TEST.rar (76.69 KB)

TEST

koiiven

小學生 Rank: 1

帖子: 12
主題: 2
精華: 0
積分: 19
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 10
註冊時間: 2011-3-10
最後登錄: 2011-9-20

2^#

發表於 2011-3-11 12:43 | 顯示全部帖子

本帖最後由 koiiven 於 2011-3-11 12:58 編輯

感謝Hsieh大大幫忙
執行OK

小弟想實驗看看如果在自行加上
j = InputBox("輸入起始列位", , 0)
k = InputBox("輸入最終列位", , 532)
   Sheets("原始檔").Select
   Range("B5:D" & k).Select

Range括號內的程式碼該如何編寫呢?
小弟有試過Range("B & j:D" & k).Select
         和Range("B:D"  & j & k).Select
但好像都不行

此外
如果想要設定輸入列位的值自動+4
舉例來說輸入列位值1
         程式讀取到的列位值則為5
則需要在何處作修改呢?

感謝!

TOP

koiiven