彰化一整天的論壇

 找回密碼
 立即註冊
查看: 603|回復: 10

透過Iinputbox輸入,新增數個欄位該怎麼做?

[複製鏈接]
發表於 2017-5-11 13:08:24 | 顯示全部樓層 |閱讀模式
請教先進, 該excel的格式是這樣
想要透過使用者自行輸入數值去新增欄位, 同時又可以將儲存格裡面的往右延伸
該怎麼做比較合適?

1494307540064.jpg
1494307563743.jpg


活頁簿1.xlsm (35.5 KB, 下載次數: 79)
回復

使用道具 舉報

發表於 2017-5-11 16:25:01 | 顯示全部樓層
您可以用迴圈來解決.
  1. Sub 插入欄位()
  2. '
  3. ' 插入欄位 巨集
  4. '

  5. '
  6.     Dim i, n As Integer
  7.     n = InputBox("請輸入您要插的欄數")
  8.     For i = 1 To n
  9.         Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
  10.     Next
  11.     Range("Q7").Select
  12. End Sub
複製代碼


活頁簿1.xlsm

36.38 KB, 下載次數: 0

售價: 2 金錢  [記錄]  [購買]

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2017-5-23 09:56:28 | 顯示全部樓層
活頁簿1.xlsm (64.89 KB, 下載次數: 68)
回復 支持 反對

使用道具 舉報

發表於 2017-5-23 11:46:47 | 顯示全部樓層
本帖最後由 imingho 於 2017-5-23 11:48 編輯
JayLiang 發表於 2017-5-23 09:56
謝謝版主大人的回覆, 新增欄位的功能可以使用
但是在儲存格中的函數在EXCEL中可以使用拖曳的方式使用,但 ...

您的圖片是可以畫線說明(可以使用小畫家),不然我看不懂您要表達的是什麼?
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2017-5-23 16:18:35 | 顯示全部樓層
謝謝版主熱心回復, 新增欄位沒有問題
但是下面的儲存格的函數沒有辦法跟著走
需要透過手動去做拖曳的動作來完成

1.jpg 2.jpg

回復 支持 反對

使用道具 舉報

發表於 2017-5-23 17:00:08 | 顯示全部樓層
JayLiang 發表於 2017-5-23 16:18
謝謝版主熱心回復, 新增欄位沒有問題
但是下面的儲存格的函數沒有辦法跟著走
需要透過手動去做拖曳的動作來 ...

您可以在留最後一欄空白(不要使用),average的公式是在最後一個空白.
excel在插入欄位時,會自動改變公式的範圍。還有我寫一個給您看,剩下的您自行修改。
excel_range_add_01.jpg

1.最後一欄空白(不要使用),若不想要顯示可以將它隱藏

excel_range_add_02.jpg

2.公式改成到最後一欄

excel_range_add_03.jpg

3.VBA的自動填滿範例

  1. Sub 插入欄位()
  2. '
  3. ' 插入欄位 巨集
  4.     Range("P7").Select

  5.     Dim i, n As Integer
  6.     n = InputBox("請輸入您要插的欄數")
  7.     For i = 1 To n
  8.         Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
  9.     Next
  10.     Range("O9").Select
  11.     Selection.AutoFill Destination:=Range("O9").Resize(1, n + 1), Type:=xlFillDefault
  12.     'Range("Q7").Select

  13. End Sub
複製代碼


excel20170523.xlsm

64.96 KB, 下載次數: 1

售價: 1 金錢  [記錄]

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2017-5-30 12:44:46 | 顯示全部樓層
還有勞版主大大指導了,萬分感謝!!

Image 001.jpg

Image 002.jpg

Image 003.jpg

Image 004.jpg

Image 005.jpg

Image 006.jpg

Image 007.jpg



活頁簿1_4(完成新增測試項目).xlsm (46.22 KB, 下載次數: 60)
回復 支持 反對

使用道具 舉報

發表於 2017-5-30 14:41:17 | 顯示全部樓層
本帖最後由 imingho 於 2017-5-30 14:43 編輯
JayLiang 發表於 2017-5-30 12:44
還有勞版主大大指導了,萬分感謝!!

請下載我上一封的回覆附檔.我第二個步驟有寫將公式改成最後一欄(看圖黃色的部分).您下載看看我寫的跟您的差在那里?
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2017-5-31 11:16:17 | 顯示全部樓層
非常感謝版主大大熱心回應, 你的程式運行後只有將第9列帶入函數
經修改後我將9 11 13 15 17 19 21 23 25 27依序將函數帶入,

目前的問題是W欄後面的的函數無法帶入如:=AVERAGE(D7:O7)插入六欄後應該為=AVERAGE(D7:U7), 但還是顯示=AVERAGE(D7:O7)
上一個回應有附圖片,再麻煩版主大大有回覆感謝

Image 9.jpg
回復 支持 反對

使用道具 舉報

發表於 2017-5-31 12:02:04 | 顯示全部樓層
JayLiang 發表於 2017-5-31 11:16
非常感謝版主大大熱心回應, 你的程式運行後只有將第9列帶入函數
經修改後我將9 11 13 15 17 19 21 23 25 27 ...

您其它的average並沒有修改到空白欄位,所以才不會自動改變.
excel20170531_01.jpg


1.是每一個average都要修改

excel20170531_02.jpg

2.您只改了第7列,就只有第7列有作用

回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-12-16 06:40 , Processed in 0.130732 second(s), 22 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表