可以很快的找到資料嗎?

本帖最後由 am0251 於 2011-6-21 11:50 編輯

我要做一個表,是這樣的("A7:A32, C7:C32, E7:E32")是名稱,("B7:B32, D7:D32, F7:F32")是數量,如果"數量"的一格有數字的話,左邊的"名稱"&"數量"的字體就會由"14"變大到"16",字體也會變成"粗體"但如果"數量"的一格沒有數字的話,就變回原本的大小,之後再把有"數量"的一格連同"名稱"一起COPY到下一頁,我的程度只會用"IF"的方法,每一格的工作,我知道這樣做很笨,有高手可以教我一下更快的方法嗎?謝謝!!

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-6-21 13:32 | 只看該作者

回復 1# am0251

SpecialCells(xlCellTypeConstants)

學海無涯_不恥下問

TOP

am0251

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

3^#

發表於 2011-6-21 13:46 | 只看該作者

不好意思SpecialCells(xlCellTypeConstants)這指令,我還沒學過,可以教我一下怎麼用嗎?非常感謝~!!

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-6-21 14:09 | 只看該作者

回復 3# am0251

Sub nn()
Range("A7:E32").Font.Size = 14 '還原格式
Range("A7:E32").Font.Bold = False
If Application.CountA(Range("B7:B32, D7:D32, F7:F32")) > 0 Then '數量欄位
For Each a In Range("B7:B32, D7:D32, F7:F32").SpecialCells(xlCellTypeConstants) '數量欄位有資料的位置
a.Offset(, -1).Font.Size = 16 '改變格式
a.Offset(, -1).Font.Bold = True
With Sheets(2)
a.Offset(, -1).Resize(, 2).Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0) '複製到第2工作表A欄
End With
Next
End If
End Sub