EXCEL VBA．如何自動輸入資料(以tab跳下一格) - iT 邦幫忙::一起幫忙解決難題，拯救 IT 人的一天

0

EXCEL VBA．如何自動輸入資料(以tab跳下一格)

excel

symis 2013-03-26 15:03:51 ‧ 13293 瀏覽

我用的是: EXCEL 2007
檔案在:
http://www.FunP.Net/467011
執行時,開啟巨集,不開連結
內有3個sheet: 第10頁,第11頁,第13頁
我已經寫好一段vba,能自動依欄號填入資料
問題1: 因原作者的tab跳格設計不良,故在判斷上並不理想,導致可能有漏輸入的格子,該如何因應?
問題2:第13頁已經能自動輸入白底的格子,黃底格不用輸入,請問,綠底格為下拉式選單,或日期格式,要怎樣才能自動輸入?
我想: 遇下拉式選單,一律選第一項,遇年月日,一律填99/12/31
感謝!

登入發表討論

直播研討會

{{ item.subject }}

{{ item.channelVendor }} {{ item.webinarstarted }} |

{{ formatDate(item.duration) }}

直播中

1 個回答

10

海綿寶寶

iT邦大神 1 級 ‧ 2013-03-26 16:54:09

最佳解答

相較於另一位整天在切圖的邦友
您倒是整天在泡 Excel

&lt;pre class="c" name="code">
問題一：
Sub Macro1()
   
    '定義所有要輸入的範圍, 看是用程式或用手動定義
    ActiveWorkbook.Names.Add Name:="MyRange", RefersToR1C1:="=Sheet1!R18C3:R21C6,Sheet1!R11C4:R13C5,Sheet1!R5C2:R7C3"
    Application.Goto Reference:="MyRange"
    
    '不管按幾次 TAB, 都會在範圍裡, 而且不會漏格子
    SendKeys "{TAB}"
    DoEvents

End Sub





&lt;pre class="c" name="code">
問題二：下拉式選單第一項
使用 index 函數，例

=INDEX(Low_13,1)
=INDEX(INVKind_13,1)
=INDEX(DATE_MONTH,1)
=INDEX(BUYKind_13,1)

回應 9
分享
檢舉

看更多先前的回應...收起先前的回應...

蟹老闆 iT邦大師 1 級 ‧ 2013-03-26 21:25:21 檢舉

iT邦幫忙MVPantijava提到：
相較於另一位整天在切圖的邦友

好在樓主有用心,不然都問一樣的問題很奇怪耶

海綿寶寶 iT邦大神 1 級 ‧ 2013-03-26 21:51:35 檢舉

dream提到：
不然都問一樣的問題很奇怪耶

還好啦
還有人都回答一樣的答案
[比奇堡最大餐廳]

老鷹(eagle) iT邦高手 1 級 ‧ 2013-03-27 08:42:52 檢舉

想睡覺了
EXCEL 2007.... 俺好久沒碰 EXCEL...

蟹老闆 iT邦大師 1 級 ‧ 2013-03-27 12:33:08 檢舉

EXCEL的巨集跟PHP一樣有趣,PHP我買了二本書....但都沒看過,要是哪天有疑問就要勞煩老鷹大了

蟹老闆 iT邦大師 1 級 ‧ 2013-03-27 12:34:30 檢舉

antijava提到：
[比奇堡最大餐廳]

這是廣告啦

symis iT邦新手 3 級 ‧ 2013-03-27 13:49:45 檢舉

iT邦幫忙MVPantijava提到：
相較於另一位整天在切圖的邦友
您倒是整天在泡 Excel

沒辦法,趕鴨子上架,只好上演盲劍客
再做不出來,只好找善心人士幫幫忙囉!
ps. 切圖是什麼意思?

symis iT邦新手 3 級 ‧ 2013-03-27 13:58:18 檢舉

問題二：下拉式選單第一項
使用 index 函數...

請問:

在自動輸入的過程中,程式要怎知道哪一格有下拉式選單?
知道了以後,程式要如何使用 index 函數? 您的例子,程式要如何得知Low_13...等東東?
謝謝!

symis iT邦新手 3 級 ‧ 2013-04-03 11:38:24 檢舉

沒人回答就結案囉?

老鷹(eagle) iT邦高手 1 級 ‧ 2013-04-03 11:42:47 檢舉

dream提到：
,PHP我買了二本書

蟹老闆這有什麼問題!!
俺最喜歡分享知識,帶你進入PHP MVC框架之美(CI框架),
不過CI教學等鐵人賽在發布,不然俺沒有東西可以PO了

登入發表回應

我要發表回答

立即登入回答

參賽組數

1123 組

團體組數

52 組

累計文章數

23096 篇

完賽人數

656 人

15th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 2018鐵人賽 javascript 2017鐵人賽 python windows php c# windows server linux css react 程式設計 vue.js

IT邦幫忙