12
返回列表 上一主題 發帖

[發問] 請問各位大大!

koiiven

帖子
12 
主題
2 
精華
0 
積分
19 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
10 
註冊時間
2011-3-10 
最後登錄
2011-9-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-9-7 17:14 | 只看該作者

[發問] 請問各位大大!

j = InputBox("輸入數量", , 0)
    Sheets("原始檔").Select
    Range("B5 & ":D" & j + 4).Select

請問各位大大
小弟想將程式碼修改成

輸入不同數量後
程式碼能將所需要的欄位選擇起來
且選擇過的會從下一筆開始選擇

例如
假設原始檔從第5列開始有100列資料
一開始的InputBox輸入10   程式碼會抓B5到D14
下一個InputBox輸入7      程式碼則抓B15到D21
一直抓到原始檔的100列資料抓完

請問各位大大
小弟該如何修改?
感謝!
收藏 分享

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-9-7 18:41 | 只看該作者
回復 1# koiiven
  1. Sub nn()
  2. Dim j&
  3. Do Until s >= 100
  4. j = InputBox("輸入數量", , 0)
  5.     Range("B5").Offset(s, 0).Resize(j, 3).Select
  6. s = s + j
  7. Loop
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

koiiven

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

小弟想請問Range的問題
  1. Sub Macro2()
  2. Dim j&
  3. Dim k&
  4. k = InputBox("總數量", , 0)

  6. Do Until s >= k
  7. i = InputBox("輸入名稱", , 0)
  8. j = InputBox("輸入數量", , 0)
  9.    
  10.     Sheets("空白表格").Select
  11.     Sheets("空白表格").Copy After:=Sheets(2)
  12.     Sheets(3).Select
  13.     Sheets(3).Name = i
  14.    
  15.     Sheets("原始檔").Select
  16.     Range("B5").Offset(s, 0).Resize(j, 3).Select
  17. s = s + j
  18.     Selection.Copy
  19.     Sheets(3).Select
  20.     Range("C7").Select
  21.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  22.         :=False, Transpose:=False
  23.    
  24.     Sheets("原始檔").Select
  25.     Range("H5").Offset(s, 0).Resize(j, 1).Select   '會選擇H8到H10   該如何修改才能選擇H5到H7呢?
  26. s = s + j
  27.     Selection.Copy
  28.     Sheets(3).Select
  29.     Range("F7").Select
  30.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  31.         :=False, Transpose:=False

  33. Loop

  35. End Sub
複製代碼
假設j輸入3
程式會選擇(B5:D7)的範圍

但到了H5時
則直接從H8開始選擇

如果想一樣從H5開始選擇
請問該如何修改?

感謝大大

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2011-9-9 15:23 | 只看該作者
回復 3# koiiven
Range("H5").Offset(s, 0).Resize(j, 1).Select   '會選擇H8到H10   該如何修改才能選擇H5到H7呢?
Range("H5").Resize(j, 1).Select  是這樣嗎?

TOP

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兔年全勤獎章
5#
發表於 2011-9-9 16:22 | 只看該作者
回復 3# koiiven

我認為是在同一個s值要做兩欄位的選取，對嗎?
那s就要執行完兩次後再加上j
  1. Sub Macro2()
  2. Dim j&
  3. Dim k&
  4. k = InputBox("總數量", , 0)

  6. Do Until s >= k
  7. i = InputBox("輸入名稱", , 0)
  8. j = InputBox("輸入數量", , 0)
  9.    
  10.     Sheets("空白表格").Select
  11.     Sheets("空白表格").Copy After:=Sheets(2)
  12.     Sheets(3).Select
  13.     Sheets(3).Name = i
  14.    
  15.     Sheets("原始檔").Select
  16.     Range("B5").Offset(s, 0).Resize(j, 3).Select
  17.     Selection.Copy
  18.     Sheets(3).Select
  19.     Range("C7").Select
  20.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  21.         :=False, Transpose:=False
  22.    
  23.     Sheets("原始檔").Select
  24.     Range("H5").Offset(s, 0).Resize(j, 1).Select   '會選擇H8到H10   該如何修改才能選擇H5到H7呢?
  25. s = s + j
  26.     Selection.Copy
  27.     Sheets(3).Select
  28.     Range("F7").Select
  29.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  30.         :=False, Transpose:=False

  32. Loop

  34. End Sub
複製代碼
學海無涯_不恥下問

TOP

koiiven

帖子
12 
主題
2 
精華
0 
積分
19 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
10 
註冊時間
2011-3-10 
最後登錄
2011-9-20 
6#
發表於 2011-9-13 11:03 | 只看該作者
原來如此
把s = s + j移到最後在執行

感謝兩位大大幫忙

TOP

koiiven

帖子
12 
主題
2 
精華
0 
積分
19 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
10 
註冊時間
2011-3-10 
最後登錄
2011-9-20 
7#
發表於 2011-9-13 13:38 | 只看該作者
小弟拜讀過這篇 [轉貼] VBA的寫作技巧與增進效能

將程式碼改成
  1. Sub Macro2()
  2. Dim j&
  3. Dim k&
  4. k = InputBox("元件總數量", , 0)

  6. Do Until s >= k
  7. i = InputBox("輸入報告名稱", , 0)
  8. j = InputBox("輸入元件數量", , 0)
  9.    
  10.     Sheets("空白表格").Select
  11.     Sheets("空白表格").Copy After:=Sheets(2)
  12.     Sheets(3).Select
  13.     Sheets(3).Name = i
  14.    
  15.     Sheets(3).Range("C7") = Sheets("原始檔").Range("B5").Offset(s, 0).Resize(j, 3)

  17. s = s + j

  19. Loop

  21. End Sub
複製代碼
可是程式運作完之後沒有反應
想請問大大該如何修改?

此外
  1. Sub Macro3()
  2. '
  3. ' Macro5 Macro
  4. '

  6. '
  7.    
  8. i = InputBox("年", , 0)
  9. j = InputBox("月", , 0)
  10. k =InputBox("日", , 0)

  12.        Range("A1").Select
  13.        ActiveCell.FormulaR1C1 =    '
  14.    
  15. End Sub
複製代碼
想請問大大
如果想在 InputBox打入日期年月日
但只替換A1儲存格內XXX年XX月XX日內的X代號
等號後面的程式碼該如何撰寫?

感謝大大

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2011-9-13 14:47 | 只看該作者
回復 7# koiiven
ActiveCell= DateSerial( i, j, k)

TOP

koiiven

帖子
12 
主題
2 
精華
0 
積分
19 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
10 
註冊時間
2011-3-10 
最後登錄
2011-9-20 
9#
發表於 2011-9-13 15:28 | 只看該作者
感謝大大回覆

執行之後為西元的年份

且格式為xxxx/xx/xx

有辦法將年分設定為民國
且格式為xxx年xx月xx日

以
i = InputBox("年", , 0)
j = InputBox("月", , 0)
k = InputBox("日", , 0)

即可替換x內的數值

感謝

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2011-9-13 16:08 | 只看該作者
回復 9# koiiven
  1. With ActiveCell
  2.     .Value = DateSerial(i, j, k)
  3.     .NumberFormatLocal = "[$-404]e""年""m""月""d""日"";@"
  4. End With
複製代碼

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
12
返回列表 上一主題