jonn0510

中學生 Rank: 2

帖子: 38
主題: 13
精華: 0
積分: 84
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-12-10
最後登錄: 2021-7-18

2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-6-18 18:06 | 只看該作者

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

請教各位大大:

若A1~A8的數字如下
A1  A2  A3  A4  A5  A6  A7  A8
   2 5       1 1       4
其中A1.A4.A7這3各儲存格式空白的,請問如何讓VBA自動將空白處自動填入數字0 ? 謝謝

希望能藉由VBA判斷後,自動填入
A1  A2  A3  A4  A5  A6  A7  A8
  0 2 5 0 1 1 0 4

樓主熱帖

感謝各位老師花心思教導

freeffly

高中生 Rank: 3 Rank: 3

帖子: 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

高中生 Rank: 3 Rank: 3

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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