12
返回列表 上一主題 發帖

[發問] 請教如何讓VBA自動將空白處自動填入數字0 ?

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
11# 跳轉到 »
發表於 2012-6-19 10:12 | 只看該作者
回復 10# freeffly

我也知道你的問題在哪了
這裡的REPLACE是方法不是函數，你必須在使用過的工作表使用
若新開一個檔案，沒做過任何輸入是不會執行的
可在任何大於第8列的位置輸入任何東西，刪除了也沒關係，就會被辨識及執行。

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
12#
發表於 2012-6-19 10:37 | 只看該作者
回復 11# oobird

版主
情形很怪
一開始我是再A1:A8的隨便區域裡面打一兩各數字
剛剛是再第8列且第一欄以外的地方輸入資料
結果如附檔
   



replace.rar (5.35 KB)
字典兩各字 還真難理解

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
13#
發表於 2012-6-19 10:38 | 只看該作者
回復 11# oobird
If [COUNTA(A1:A8)] <> [A1:A8].Count Then [A1:A8].SpecialCells(xlCellTypeBlanks) = 0
SpecialCells 一樣在新工作表 未有輸入時 會有錯誤,也需在大於 A8 的地方有輸入,才會 得到完整的資料

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
14#
發表於 2012-6-19 10:50 | 只看該作者
回復 13# GBKEE


    版主可以請教一個問題嗎
   replace方法 跟函數的差異?
    你另一篇是用函數
  不過O版主說他的是方法
  看起來很像
  我以為只差在()
字典兩各字 還真難理解

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
15#
發表於 2012-6-19 11:03 | 只看該作者
回復 14# freeffly
Replace方法  : => 工作表指令"取代" ,  儲存格文字的替換  
Replace函數  :  文字字串的替換
傳回一個字串，該字串中指定的子字串已被取代成另一子字串，並且取代發生的次數也是指定的。

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
16#
發表於 2012-6-19 11:19 | 只看該作者
回復 15# GBKEE
回復 15# oobird


    剛發現使用o版主的方式如果是舊檔案新工作表
   新工作表必須使用過
   而其他不是選擇中的工作表(已經使用過的工作表)竟然也套用方法

   所以方法是針對整各儲存格(或者說整檔案中的工作表的儲存格)
       函數是針對儲存格裡面的字串去替換
   不知道我的理解有沒有錯誤
   
   感覺方法使用上好像變成侷限在少數情形
字典兩各字 還真難理解

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
12
返回列表 上一主題