返回列表 上一主題 發帖

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

koiiven

帖子
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

收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-3-11 10:31 | 只看該作者
回復 1# koiiven
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. '

  6. '
  7. k = InputBox("輸入最終列位", , 532)
  8.     Sheets("原始檔").Select
  9.     Range("B5:D" & k).Select   '是否能在Excel儲存格直接輸入數字範圍而直接帶入Range()?
  10.     Selection.Copy
  11.     Sheets("A1").Select
  12.     Range("C7").Select
  13.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  14.         :=False, Transpose:=False
  15.     Sheets("原始檔").Select
  16.     Range("H5:H" & k).Select   '是否能在Excel儲存格直接輸入數字範圍而直接帶入Range()?
  17.     Application.CutCopyMode = False
  18.     Selection.Copy
  19.     Sheets("A1").Select
  20.     Range("F7").Select
  21.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  22.         :=False, Transpose:=False
  23.     Sheets("原始檔").Select
  24.     Range("G5:G" & k).Select   '是否能在Excel儲存格直接輸入數字範圍而直接帶入Range()?
  25.     Application.CutCopyMode = False
  26.     Selection.Copy
  27.     Sheets("A1").Select
  28.     Range("G7").Select
  29.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  30.         :=False, Transpose:=False
  31.     Sheets("原始檔").Select
  32.     Range("I5:I" & k).Select   '是否能在Excel儲存格直接輸入數字範圍而直接帶入Range()?
  33.     Application.CutCopyMode = False
  34.     Selection.Copy
  35.     Sheets("A1").Select
  36.     Range("H7").Select
  37.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  38.         :=False, Transpose:=False
  39.     Application.WindowState = xlNormal
  40.     Range("A7").Select
  41.     Application.CutCopyMode = False
  42.     ActiveCell.FormulaR1C1 = "1"
  43.     Range("A8").Select
  44.     ActiveCell.FormulaR1C1 = "2"
  45.     Range("A7:A8").Select
  46.     Selection.AutoFill Destination:=Range("A7:A" & k + 2), Type:=xlFillDefault '是否能在Excel儲存格直接輸入數字範圍而直接帶入Range()?
  47.     Range("I7").Select
  48.     ActiveCell.FormulaR1C1 = "500"
  49.     Range("I7").Select
  50.     Selection.AutoFill Destination:=Range("I7:I" & k + 2), Type:=xlFillDefault '是否能在Excel儲存格直接輸入數字範圍而直接帶入Range()?
  51.     Range("J7").Select
  52.     ActiveCell.FormulaR1C1 = "=IF(RC[-2]>RC[-1],""是"",""否"")"
  53.     Range("J7").Select
  54.     Selection.AutoFill Destination:=Range("J7:J" & k + 2), Type:=xlFillDefault '是否能在Excel儲存格直接輸入數字範圍而直接帶入Range()?
  55.    
  56. End Sub
複製代碼
學海無涯_不恥下問

TOP

koiiven

帖子
12 
主題
2 
精華
0 
積分
19 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
10 
註冊時間
2011-3-10 
最後登錄
2011-9-20 
3#
發表於 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

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
4#
發表於 2011-3-11 13:24 | 只看該作者
本帖最後由 hugh0620 於 2011-3-11 13:37 編輯

回復 3# koiiven


    Q1:小弟有試過Range("B & j:D" & k).Select
            和Range("B:D"  & j & k).Select但好像都不行
   A1: 寫法錯誤  (我以前也有這樣的錯誤,多練習+筆記 就好了~)
       Range("B" & J & ":D" & k).Select <---正確的寫法

   Q2:此外,如果想要設定輸入列位的值自動+4
                 舉例來說 輸入列位值1,程式讀取到的列位值則為5,則需要在何處作修改呢?
     A2:加入一個固定參數值+4
          例:Range("B" & J+4 & ":D" & k).Select
              這樣的話,當你輸入列數=1時,列數值實際上運算後的結果1+4=5

      個人在學VBA時,不會用錄製巨集,單純直接撰寫程式碼
    後來會用錄製巨集的時候,這個功能變成我需要某種功能但是不知道程式碼怎麼寫時的小工具
    一個步驟一個步驟錄是可以解決問題,但還是要先從基本的觀念開始學
    這樣才能了解程式碼要怎麼改唷~
                                                       我也是個低階撰寫者  與您共勉之
學習才能提升自己

TOP

koiiven

帖子
12 
主題
2 
精華
0 
積分
19 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
10 
註冊時間
2011-3-10 
最後登錄
2011-9-20 
5#
發表於 2011-3-11 15:34 | 只看該作者
感謝hugh0620大大的回答
程式執行都OK

謝謝大大的經驗
小弟剛接觸VBA
覺得真的很有趣
也是想要去買書來了解VBA的基本觀念
從最基本的開始學起

感謝大大的勉勵

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
6#
發表於 2011-3-11 16:28 | 只看該作者
回復 5# koiiven


    可以先不買書
   中台科技大學的私房教師數位學習系統 看一看
   對你在學VBA會所幫助
   http://estudy.ctust.edu.tw/estudy/html/excel2003vba.html

    等看完後 再去書局買書 看哪些東西是上面沒有的再買
   
   最後書是死滴唷~ 有問題可以爬爬文~ 問問題~ 這樣才能了解別人的想法與寫法~
學習才能提升自己

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
7#
發表於 2011-3-13 10:22 | 只看該作者
同意樓上
初學vba時也買過書
不過沒基礎也看不下去
要用時翻遍了也找不到合用的範例
直到現在那本書還是新的

TOP

koiiven

帖子
12 
主題
2 
精華
0 
積分
19 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
10 
註冊時間
2011-3-10 
最後登錄
2011-9-20 
8#
發表於 2011-3-14 19:31 | 只看該作者
小弟這幾天花了一些時間去鑽研大大給的網站
講解的方式的確讓人比較易懂
總比在書局一本一本的翻
卻還找不到適合自己的書

感謝大大

TOP

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