iT邦幫忙

0

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

symis 2013-03-26 15:03:5113431 瀏覽
  • 分享至 

  • xImage

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

圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

10
海綿寶寶
iT邦大神 1 級 ‧ 2013-03-26 16:54:09
最佳解答

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

<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





<pre class="c" name="code">
問題二:下拉式選單第一項
使用 index 函數,例

=INDEX(Low_13,1)
=INDEX(INVKind_13,1)
=INDEX(DATE_MONTH,1)
=INDEX(BUYKind_13,1)
看更多先前的回應...收起先前的回應...
蟹老闆 iT邦大師 1 級 ‧ 2013-03-26 21:25:21 檢舉

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

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

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

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

打嗑睡打嗑睡打嗑睡
想睡覺了
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 函數...

請問:

  1. 在自動輸入的過程中,程式要怎知道哪一格有下拉式選單?
  2. 知道了以後,程式要如何使用 index 函數? 您的例子,程式要如何得知Low_13...等東東?
    謝謝!
symis iT邦新手 3 級 ‧ 2013-04-03 11:38:24 檢舉

沒人回答就結案囉?

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

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

我要發表回答

立即登入回答