返回列表 上一主題 發帖

[發問] 請問各位大大!

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列資料抓完

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

koiiven

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

koiiven

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

感謝兩位大大幫忙

TOP

koiiven

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

koiiven

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

執行之後為西元的年份

且格式為xxxx/xx/xx

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

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

即可替換x內的數值

感謝

TOP

koiiven

帖子
12 
主題
2 
精華
0 
積分
19 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
10 
註冊時間
2011-3-10 
最後登錄
2011-9-20 
6#
發表於 2011-9-19 11:08 | 顯示全部帖子
感謝大大回答

小弟測試後

一直出現同一個日期   88年11月30日

小弟再請問一下
如果不只限定日期
假設是名稱
即在Inputbox內輸入的文字
能修改在Cell內"部分"的文字
並非全部修改

感謝大大

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題