台灣數位學習數位教學平台 RSS feed provider zh-tw http://lms.xms.com.tw/board.php?courseID=143&f=doclist&folderID=1763 http://lms.xms.com.tw/board.php?courseID=143&f=doc&cid=9526 Wed, 26 Dec 2012 19:50:47 +0800 http://lms.xms.com.tw/board.php?courseID=143&f=doc&cid=9524 Tue, 25 Dec 2012 17:03:23 +0800 http://lms.xms.com.tw/board.php?courseID=143&f=doc&cid=9522 COUNTIFS 會計算某範圍內符合多個準則的儲存格數目。 語法 COUNTIFS(range1, criteria1,range2, criteria2...) Range1, range2, ...  是要在其中估算關聯準則的 1 到 127 個範圍。每個範圍中的儲存格都必須是數字或名稱、陣列，或含有數字的參照。如果是保留空白或文字值，則會予以忽略。 Criteria1, criteria2, ...  是用以定義要計算之儲存格的 1 到 127 個準則，可以是數字、運算式、儲存格參照或文字。例如，準則可以由 32、"32"、">32"、"apples" 或 B4 表示。 備註 對於範圍中的每個儲存格，只有指定的所有對應準則都為 true，該儲存格才能用於計算。 如果有任何準則是空白的儲存格，則 COUNTIFS 會將其視為 0 值。 您可以在準則中使用萬用字元、問號 (?) 及星號 (*)。問號可替代任一個字元；星號可替代任一連續字元。如果您確實要尋找實際的問號或星號，請在該字元前輸入波狀符號 (~)。   1 2 3 4 5 6 7 8 9 10 A B C D 銷售員 超出 Widgets 配額 超出 Gadgets 配額 超出 Doodads 配額 何大樓 是 否 否 王大德 是 是 否 蘇涵蘊 是 是 是 游志源 否 是 是 公式 說明 (結果) =COUNTIFS(B2:D2,"=是") 計算何大樓的銷售配額超出 Widgets、Gadgets 及 Doodads 的次數 (1) =COUNTIFS(B2:B5,"=是",C2:C5,"=是") 計算配額同時超出 Widgets 及 Gadgets 的銷售員數 (2) =COUNTIFS(B5:D5,"=是",B3:D3,"=是") Tue, 25 Dec 2012 10:13:50 +0800 http://lms.xms.com.tw/board.php?courseID=143&f=doc&cid=6114 ''-----週數轉換日期---   Private Sub Worksheet_SelectionChange(ByVal Target As Range)     If CheckBox1.Value = True Then    End    End If  If Not Intersect(Range("B3:CA6"), Target) Is Nothing Then            WeekNum = Cells(2, ActiveCell.Column)             If Not Intersect(Range("3:3"), Target) Is Nothing Then           serial = 40544 + (WeekNum - 1) * 7    ' 40544 means 2011/1/1                   End If              If Not Intersect(Range("4:4"), Target) Is Nothing Then        serial = 40544 + (WeekNum - 1) * 7 + 1             End If                      End If                     ''--------------             sWeekDay = Weekday(serial, vbMonday)         Select Case UCase(sWeekDay)        Case Is = "1"          lWeekDay = "星期一"        Case Is = "2"          lWeekDay = "星期二"        Case Is = "3"          lWeekDay = "星期三"        Case Is = "4"          lWeekDay = "星期四"        Case Is = "5"          lWeekDay = "星期五"        Case Is = "6"          lWeekDay = "星期六"        Case Is = "7"          lWeekDay = "星期日"     End Select        '---status--        str1 = Year(serial) & "/" & Month(serial) & "/" & Day(serial) & " (" & lWeekDay & ")"        Range("W23").Value = str1               MsgBox str1              End If          End Sub   Thu, 09 Jun 2011 23:13:29 +0800