oobird

　頭銜: 街友一族

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

論壇貢獻勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-11-29 22:31 | 只看該作者

公式與基本技巧演練

下了個資料檔，可拿來練習公式與基本技巧。適合新手練習用！

綜合演練.rar (90.29 KB)

樓主熱帖

jeff2266

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 11
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-3-31
最後登錄: 2012-5-19

25^#

發表於 2012-3-31 17:20 | 只看該作者

感謝你的分享

TOP

ky2599y

中學生 Rank: 2

帖子: 54
主題: 7
精華: 0
積分: 74
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2011-7-13
最後登錄: 2016-12-16

24^#

發表於 2011-8-16 18:23 | 只看該作者

本帖最後由 ky2599y 於 2011-8-16 21:19 編輯

樞紐→直接到樞紐表裡去設儲存格格式

456.JPG (123.94 KB)

Kenny

TOP

ky2599y

中學生 Rank: 2

帖子: 54
主題: 7
精華: 0
積分: 74
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2011-7-13
最後登錄: 2016-12-16

23^#

發表於 2011-8-16 18:13 | 只看該作者

樞紐→將格子複製到右邊→輸入公式
IF(C5<65,"C",IF(C5<85,"B","A"))

123.JPG (241.39 KB)

Kenny

TOP

zeny

中學生 Rank: 2

帖子: 16
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 女
來自: Australia
註冊時間: 2011-8-11
最後登錄: 2011-9-26

22^#

發表於 2011-8-14 13:21 | 只看該作者

經大指正，知道自己錯在了哪裡

本帖最後由 zeny 於 2011-8-14 13:26 編輯

回復 zeny
這些儲存格內容都變成了日期
這是你使用bb的緣故
自訂格式改成
[>=85]!A;[>=65]!B;C
Hsieh 發表於 2011-8-12 22:08

是的，是的，我沒有注意到大大之前寫的
B原則上也算保留字
若輸入B，EXCEL會自動改成bb
顯示數值以1900年為43起算的年度
1900年日期顯示成43
1901年日期顯示成44
以此類推
加上驚嘆號!或反斜線\或用雙引號""
都代表使用字元
只是反斜線會被EXCEL自動轉成驚嘆號

現在已經成功了。
真是越學，越覺得自己淺薄
謝謝大大。

pivotetable和vlookup綜合應用.rar (11.21 KB)

我喜欢 excel

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兔年全勤獎章

21^#

發表於 2011-8-12 22:08 | 只看該作者

回復 20# zeny
這些儲存格內容都變成了日期
這是你使用bb的緣故
自訂格式改成
[>=85]!A;[>=65]!B;C

學海無涯_不恥下問

TOP

zeny

中學生 Rank: 2

帖子: 16
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 女
來自: Australia
註冊時間: 2011-8-11
最後登錄: 2011-9-26

20^#

發表於 2011-8-12 20:16 | 只看該作者

很惱人，有個43分的格式自定，就是轉換不成C

pivotetable和vlookup綜合應用.rar (10.85 KB)

很惱人，有個43分的格式自定，就是轉換不成C

我喜欢 excel

TOP

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

19^#

發表於 2011-3-17 12:41 | 只看該作者

回復 40# Hsieh
多謝H大指點

我很喜歡pivot table那個解決辦法,快捷得很(還有是怎樣錄製影片的?)

80 字節以內
不支持自定義 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兔年全勤獎章

18^#

發表於 2011-3-17 08:36 | 只看該作者

本帖最後由 Hsieh 於 2011-3-17 08:48 編輯

回復 39# FAlonso
這篇重點在於基本技巧演練，並不鼓勵使用VBA或函數解題
既然兄台使用VBA來做，而且您也提到一些VBA使用上的困擾
底下程式碼供您參考看看
您會發生錯誤原因可能發生在
dictionary物件加入項目的方法
您使用了add方法來加入項目
dictionary物件有一個特性，就是索引值不能重覆
當add方法加入索引時，若該索引值已經存在就會產生錯誤
避免此情況發生，可用exists方法先判斷索引值是否存在，然後再決定是否加入
在您的流程中dictionary物件是用不到的
而底下程式碼利用的方法是直接指定索引值對應的值
這樣，值會改變，但不會有重複索引疑慮
再則您提到速度問題
加快速度的方法因個案各有不同
以本題為例，首先是將資料範圍以陣列型態讀取
直接靠記憶體讀寫，會比一格一格的讀寫快很多
在來是當你要指定儲存格時，要儘量減少select的使用
直接指定欄列位也會使速度加快
減少不必要的循環與動作都是加速的方法
您可以自己試試看

Sub Ex()
Dim d As Object, d1 As Object, d2 As Object, Ar(), i&, A As Range, C As Range
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
d2("考生號") = "姓名"
Ar = Range([A1], [A65536].End(xlUp).Offset(, 3))
For i = 2 To UBound(Ar, 1)
d(Ar(i, 1) & Ar(i, 3)) = IIf(Ar(i, 4) < 65, "C", IIf(Ar(i, 4) < 85, "B", "A"))
d1(Ar(i, 3)) = ""
d2("'" & Ar(i, 1)) = Ar(i, 2)
Next
[G:Q].ClearContents
Application.ScreenUpdating = False
[G1].Resize(d2.Count, 1) = Application.Transpose(d2.keys)
[H1].Resize(d2.Count, 1) = Application.Transpose(d2.items)
[I1].Resize(, d1.Count) = d1.keys
For Each A In Range([I1], [I1].End(xlToRight))
For Each C In Range([G2], [G65536].End(xlUp))
Cells(C.Row, A.Column) = d(C & A)
Next
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

17^#

發表於 2011-3-16 22:16 | 只看該作者

回復 1# oobird
做了VBA程式,不過等候時間較長,有時程式會自動中斷+有顯示錯誤,所以不要濫用VBA

Option Explicit
Sub table()
Dim classnumber As Object, mycell As Range
Set classnumber = CreateObject("scripting.dictionary")
With Range("S1")
.Value = "考生號"
.Offset(, 1).Value = "姓名"
.Offset(, 2).Value = "化學"
.Offset(, 3).Value = "外語"
.Offset(, 4).Value = "生物"
.Offset(, 5).Value = "地理"
.Offset(, 6).Value = "物理"
.Offset(, 7).Value = "政治"
.Offset(, 8).Value = "語文"
.Offset(, 9).Value = "數學"
.Offset(, 10).Value = "歷史"
End With
Range("S2").Activate
For Each mycell In Sheet1.Range([a2], [a65536].End(xlUp))
If classnumber.exists(mycell.Value) Then
Else
classnumber.Add mycell.Value, mycell.Value
ActiveCell.Value = mycell.Value
ActiveCell.Offset(, 1).Value = mycell.Offset(, 1).Value
ActiveCell.Offset(, 2).Value = mycell.Offset(, 3).Value
ActiveCell.Offset(, 3).Value = mycell.Offset(1, 3).Value
ActiveCell.Offset(, 4).Value = mycell.Offset(2, 3).Value
ActiveCell.Offset(, 5).Value = mycell.Offset(3, 3).Value
ActiveCell.Offset(, 6).Value = mycell.Offset(4, 3).Value
ActiveCell.Offset(, 7).Value = mycell.Offset(5, 3).Value
ActiveCell.Offset(, 8).Value = mycell.Offset(6, 3).Value
ActiveCell.Offset(, 9).Value = mycell.Offset(7, 3).Value
ActiveCell.Offset(, 10).Value = mycell.Offset(8, 3).Value
ActiveCell.Offset(1).Activate
End If
Next
For Each mycell In Range("U2:Ac643")
If mycell.Value >= 85 Then
mycell.Value = "A"
ElseIf mycell.Value >= 65 And mycell.Value < 85 Then
mycell.Value = "B"
ElseIf mycell.Value < 65 Then
mycell.Value = "C"
End If
Next
Columns("S").NumberFormat = "0"
Columns("S").AutoFit
Set classnumber = Nothing
End Sub

複製代碼

不過呢,可否降低下載附件的門檻,看那麼多無意義的回帖

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

TOP