〔EXCEL〕計算年資﹥幾年幾月幾日-DATEDIF--h019

   

【計算年資﹥幾年幾月幾日】

=IF(DATEDIF(到職日,IF(離職日="",TODAY(),離職日+1),"Y")=0,"",DATEDIF(到職日,IF(離職日="",TODAY(),離職日+1),"Y")&"年") & IF(DATEDIF(到職日,IF(離職日="",TODAY(),離職日+1),"YM")=0,"",DATEDIF(到職日,IF(離職日="",TODAY(),離職日+1),"YM")&"月")&IF(DATEDIF(到職日,IF(離職日="",TODAY(),離職日+1),"MD")=0,"",DATEDIF(到職日,IF(離職日="",TODAY(),離職日+1),"MD")&"日")



相關課程：


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※

〔VBA〕複製與貼上-Copy & Paste--v058

 

【複製與貼上-Copy & Paste】

Range("複製").Copy

Cells(列, 欄).Copy

    

Range("貼上").PasteSpecial xlPasteAll

Range("貼上值").PasteSpecial xlPasteValues

Range("貼上公式").PasteSpecial xlPasteFormulas

Range("貼上格式").PasteSpecial xlPasteFormats

注意：Cells()沒有Paste屬性

相關課程：


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※

〔VBA〕從非連續的選取區取每個Cell值(Selection.Areas)--v057

       

【從非連續的選取區取每個Cell值(Selection.Areas)】

Dim sArea  As Range

Dim sCell As Range

For Each sArea In Selection.Areas

    For Each sCell In sArea.Cells

        MsgBox sCell.Value

    Next

Next

Set sArea = Nothing: Set sCell = Nothing

相關課程：


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※